[This post has been delayed due to email problems - moderator]
Dear colleagues,
just something I wanted to share with you. I made an animated GIF for
my students showing how a pair of poles moves when the pole quality
factor is changed, and what effect this has on the magnitude of the
system's transfer function.
Try, share, enjoy, and please send feedback if you see that there's
something I could do better or faster ...
Kind regards,
Hanspeter
-----
\!\(Tq\ = s\/\(s\^2 + \[Xi]\ s + 1\)\)
Tqi=Abs[Tq /. iSubs]
g2=Show[Graphics3D[Polygon[{{0,-2,0},{0,-2,5},{0,2,5},{0,2,0}}],
PlotRange\[Rule]{0,5},SphericalRegion\[Rule]True,Boxed\[Rule]False,
Axes\[Rule]False]]
g6=Show[{Plot3D[Tqi /.
{\[Xi]\[Rule]0.2},{\[Sigma],-3,1},{\[Omega],-2,2},
PlotRange\[Rule]{0,5},PlotPoints\[Rule]50,SphericalRegion\[Rule]True,
Boxed\[Rule]False,Axes\[Rule]False],g2}]
g7=Table[Plot3D[Tqi,{\[Sigma],-3,1},{\[Omega],-2,2},PlotRange\[Rule]{0,5},
PlotPoints\[Rule]50,SphericalRegion\[Rule]True,Boxed\[Rule]False,
Axes\[Rule]False],{\[Xi],4,0.2,-0.05}]
MyShow[x_] := Show[{x,g2}]
g8 = MyShow /@ g7
Export["different_pole_q.gif",g8, ImageResolution\[Rule]150]