In[]:=
SetOptions[EvaluationNotebook[],CellEpilog:>SelectionMove[EvaluationNotebook[],Next,Cell]]
In[]:=
tfMatrix=TransferFunctionModel[List[List[List[1,0,0,0],List[0,1,0,0],List[0,0,Power[s,2],0],List[0,0,0,Power[s,2]]],1],s,Rule[SystemsModelLabels,List[List["F0.actuation_local","F1.actuation_local","GND.longitudinal","GND.vertical"],Automatic,Automatic]]]
Out[]=
F0.actuation_local
F1.actuation_local
GND.longitudinal
GND.vertical
1
0
0
0
0
1
0
0
0
0
2
s
0
0
0
0
2
s
In[]:=
Out[]=
In[]:=
tfMulti=SystemsModelSeriesConnect[tfMatrix,tfMimo];​​Print["Finished"]
TransferFunctionModel
:Unable to automatically separate polynomial numerators and denominators in
​
F0.actuation_local
F1.actuation_local
GND.longitudinal
GND.vertical
F0.vertical_local
◼
◼
◼
◼
F1.vertical_local
◼
◼
◼
◼
. Try simplifying the object.
Finished
In[]:=
aa=SystemsModelExtract[tfMimo,{4},{1}][s];​​bb=SystemsModelExtract[tfMulti,{4},{1}][s];
In[]:=
bb/aa
Out[]=
{{
2
s
}}
In[]:=
cc=SystemsModelExtract[tfMimo,{3},{1}][s];​​dd=SystemsModelExtract[tfMulti,{3},{1}][s];​​dd/cc
Out[]=
{{
2
s
}}