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
48
49
50
51
|
numpar_name = sprintf("%s_numpar",Name);
sm_name = sprintf("%s_sm",Name);
struc_name = sprintf("%s_struc",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("[A,B,C,D]=%s_sm(par);", Name)); # State matrices
sys = ss2sys(A,B,C,D); # Sys form
eval(sprintf("[sys.inname,sys.outname,sys.stname]=%s_struc;", Name)); # Setup names
endfunction
|
|
|
>
|
|
>
|
|
>
|
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
48
49
50
51
52
53
54
|
numpar_name = sprintf("%s_numpar",Name);
sm_name = sprintf("%s_sm",Name);
struc_name = sprintf("%s_struc",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);
mtt(Name,"numpar");
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);
mtt(Name,"sm");
endif
if exist(struc_name)!=2
# error("File %s.m does not exist: use <mtt %s struc m> to create it",\
# struc_name,Name);
mtt(Name,"struc");
endif
eval(sprintf("[A,B,C,D]=%s_sm(par);", Name)); # State matrices
sys = ss2sys(A,B,C,D); # Sys form
eval(sprintf("[sys.inname,sys.outname,sys.stname]=%s_struc;", Name)); # Setup names
endfunction
|