Re: Transfer function animation

*To*: mathgroup at smc.vnet.net*Subject*: [mg65804] Re: [mg65738] Transfer function animation*From*: "Christopher Arthur" <pannoniara at aol.com>*Date*: Mon, 17 Apr 2006 02:28:59 -0400 (EDT)*References*: <200604160749.DAA11167@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

When I do animations and I want more control than animated GIF's, I output single frames into, say, PNG format then assemble them into an AVI or MPEG using a third party video program such as videomach. A simple way to generate series of frames is as follows: Assume your animation depends on a natural number parameter t... myDisplay[x_][k_]:=Display[filename<>ToString[x]<>".png",k,"PNG",ImageSize->500] Do[ .... .... Show[.........(my graphics),DisplayFunction->myDisplay[t]]; .... ..... .....,{t,1,tmax}] C.Arthur ----- Original Message ----- From: "hanspi" <hanspi at schmid-werren.ch> To: mathgroup at smc.vnet.net Subject: [mg65804] [mg65738] Transfer function animation > [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] > >

**References**:**Transfer function animation***From:*"hanspi" <hanspi@schmid-werren.ch>