MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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]
>
>



  • Prev by Date: Calculating contradicts plotting
  • Next by Date: Re: Re: bug in Partition?
  • Previous by thread: Transfer function animation
  • Next by thread: Re: Transfer function animation