1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
-
+
-
+
+
-
+
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
-
|
function sys = mtt2sys (Name)
function sys = mtt2sys (Name,par)
## usage: sys = mtt2sys (Name)
## usage: sys = mtt2sys (Name[,par])
##
## Creates a sys structure for the Octave Control Systems Toolbox
## from an MTT system with name "Name"
## Optional second argument is system parameter list
## Assumes that Name_sm.m and Name_struc.m exist
## Assumes that Name_sm.m, Name_struc.m and Name_numpar.m exist
## Copyright (C) 2000 by Peter J Gawthrop
if nargin<1
error("missing system name, usage: sys = mtt2sys (Name)");
endif
## Function names
numpar_name = sprintf("%s_numpar",Name);
sm_name = sprintf("%s_sm",Name);
struc_name = sprintf("%s_struc",Name);
## Check files exist
if exist(numpar_name)!=2
error("File %s.m does not exist: use <mtt %s numpar m> to create it",\
numpar_name,Name);
endif
if nargin<2 # Use predefined parameters
if exist(numpar_name)!=2 # Check file exists
error("File %s.m does not exist: use <mtt %s numpar m> to create it",\
numpar_name,Name);
endif
eval(sprintf("par=%s_numpar;", Name)); # Parameters
endif
## Check files exist
if exist(sm_name)!=2
error("File %s.m does not exist: use <mtt %s sm m> to create it",\
sm_name,Name);
endif
if exist(struc_name)!=2
error("File %s.m does not exist: use <mtt %s struc m> to create it",\
struc_name,Name);
endif
eval(sprintf("par=%s_numpar;", Name)); # Parameters
|