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