Transfer function animation
- To: mathgroup at smc.vnet.net
- Subject: [mg65738] Transfer function animation
- From: "hanspi" <hanspi at schmid-werren.ch>
- Date: Sun, 16 Apr 2006 03:49:17 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
[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]
- Follow-Ups:
- Re: Transfer function animation
- From: "Christopher Arthur" <pannoniara@aol.com>
- Re: Transfer function animation