MathGroup Archive 2005

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

Search the Archive

Re: Re: making an animated picture from many pictures

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57566] Re: [mg57528] Re: [mg57502] making an animated picture from many pictures
  • From: Pratik Desai <pdesai1 at umbc.edu>
  • Date: Wed, 1 Jun 2005 06:02:13 -0400 (EDT)
  • References: <200505310859.EAA03401@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

David Park wrote:

>Guy,
>
>Here is an example.
>
>Needs["Graphics`Animation`"]
>
>frame[phase_] :=
>  Plot[Sin[t + phase], {t, 0, 2Pi},
>    Frame -> True]
>
>Animate[frame[phase], {phase, 0, 2Pi - 2Pi/40, 2Pi/40}]
>SelectionMove[EvaluationNotebook[], All, GeneratedCell]
>FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5];
>FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
>      AnimationDirection -> Forward]}]
>
>You could have used Table instead of Animate, but it is worthwhile getting
>to know the Animation package.
>
>Although it wasn't necessary in this example, generally when making
>animations you will need to include a PlotRange option to make certain that
>all frames use the same plot range.
>
>The statements after the Animate statement select all the generated graphics
>cells, close them up, and start the animation. You do see the cells as they
>are first being generated but I don't find that objectional. In fact I like
>to see them because if the cells are complex and take some time, I want to
>know that the graphics are working as I intended and I can abort the
>animation if they aren't.
>
>If you use DrawGraphics package from my web site, the statements are on the
>DrawGraphics palette and can simply be clicked in.
>
>David Park
>djmp at earthlink.net
>http://home.earthlink.net/~djmp/
>
>From: Guy Israeli [mailto:guyi1 at netvision.net.il]
To: mathgroup at smc.vnet.net
>
>
>Hi,
>
>How do I create one image that is animated from many other images without
>displays all of them and double clicking on one of them?
>
>Thanks,
>
>Guy
>
>
>
>
>
>  
>
A related question
How do you automatically pause the animation after one cycle
t =0 to 2*pi


Also if you have complex functions is it possible to plot the magnitude 
and phase together and animate

lamda={-0.3331650057325463 - 3.1662410948948874*I,
-0.3331650057325463 + 3.1662410948948874*I,
-0.4590555619739296 - 6.232750821142238*I,
-0.4590555619739296 + 6.232750821142238*I,
-0.04711742781559086 + 9.418500468421371*I,
-0.04711742781559087 - 9.418500468421371*I}
func[lamda_]:=Sinh[lamda*x]

Thanks

-- 
Pratik Desai
Graduate Student
UMBC
Department of Mechanical Engineering
Phone: 410 455 8134



  • Prev by Date: Re: using Scripts with GUIKit (bug?)
  • Next by Date: Re: pure functions vs. functions
  • Previous by thread: Re: using Scripts with GUIKit (bug?)
  • Next by thread: Re: Re: Re: making an animated picture from many pictures