       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]

```

• Prev by Date: WebMathematica install question
• Next by Date: Re: Mathematica's CPU utilization
• Previous by thread: Re: WebMathematica install question
• Next by thread: Re: Transfer function animation