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>