In[]:=
$Version
Out[]=
14.2.0 for Microsoft Windows (64-bit) (December 26, 2024)
In[]:=
tfm1=TransferFunctionModel
2(1+s+s^2)
2+6s+6s^2+s^3
,
6s(1+s)
2+6s+6s^2+s^3
,
2(2+s)
2+6s+6s^2+s^3
,
2(1+s+s^2)
2+6s+6s^2+s^3
,s
Out[]=
2(1+s+
2
s
)
2+6s+6
2
s
+
3
s
6s(1+s)
2+6s+6
2
s
+
3
s
2(2+s)
2+6s+6
2
s
+
3
s
2(1+s+
2
s
)
2+6s+6
2
s
+
3
s
In[]:=
stepr=OutputResponse[tfm1,{UnitStep[t],0},t];
In[]:=
Plot[Abs[stepr],{t,-2,20},WorkingPrecision->50]
Out[]=