31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
endif
if exist(struc_name)!=2
mtt(Name,"struc"); # Create state matrices
endif
endif
sys = ss2sys(A,B,C,D); # Sys form
if (rindex(version,"2.0.")) # stable (pre-list)
eval(sprintf("[sys.inname,sys.outname,sys.stname]=%s_struc;", Name)); # Setup names
else # development version
eval(sprintf("[mtt_inname,mtt_outname,mtt_stname]=%s_struc;",Name)); # Setup names
eval(sprintf("sys = syssetsignals(sys,\"in\", mtt_inname);"));
eval(sprintf("sys = syssetsignals(sys,\"out\",mtt_outname);"));
eval(sprintf("sys = syssetsignals(sys,\"st\", mtt_stname);"));
|
|
<
<
|
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
endif
if exist(struc_name)!=2
mtt(Name,"struc"); # Create state matrices
endif
endif
eval(sprintf("[A,B,C,D]=%s_sm(par);", Name)); # State matrices
sys = ss(A,B,C,D); # Sys form
if (rindex(version,"2.0.")) # stable (pre-list)
eval(sprintf("[sys.inname,sys.outname,sys.stname]=%s_struc;", Name)); # Setup names
else # development version
eval(sprintf("[mtt_inname,mtt_outname,mtt_stname]=%s_struc;",Name)); # Setup names
eval(sprintf("sys = syssetsignals(sys,\"in\", mtt_inname);"));
eval(sprintf("sys = syssetsignals(sys,\"out\",mtt_outname);"));
eval(sprintf("sys = syssetsignals(sys,\"st\", mtt_stname);"));
|