In[]:=
gLT=Rationalize
3.553×
-15
10
×
4
s
-0.1642×
3
s
-0.1243×
2
s
-0.00161×s+9.121×
-17
10
5
s
+1.825×
4
s
+2.941×
3
s
+0.03508×
2
s
+0.01522×s-1.245×
-15
10
,0;
In[]:=
gLTTf=TransferFunctionModel[{{gLT}},s]
Out[]=
1
10963710119504439
-
161s
100000
-
1243
2
s
10000
-
821
3
s
5000
+
4
4
s
1125809175344779
-
2
1606425702811245
+
761s
50000
+
877
2
s
25000
+
2941
3
s
1000
+
73
4
s
40
+
5
s
In[]:=
NyquistPlot[gLTTf,PlotRange->{{-6,1},{-3,3}},AspectRatio->Full,Exclusions->None,WorkingPrecision->100000,PlotPoints->300]
Out[]=