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>
- Transfer function animation