MathGroup Archive 2006

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

Search the Archive

RE: RE: Animate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg67041] RE: [mg66997] RE: [mg66956] Animate
  • From: "King, Peter R" <peter.king at imperial.ac.uk>
  • Date: Thu, 8 Jun 2006 04:52:53 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

This great - it has just help me create an animation of a dispersing
pulse. Is htere any way to export the resulting animation to an avi file
(or any similar movie file)?

Thanks,

Peter

> -----Original Message-----
> From: David Park [mailto:djmp at earthlink.net] 
To: mathgroup at smc.vnet.net
> Subject: [mg67041] [mg66997] RE: [mg66956] Animate
> 
> 
> You  have to select the group of 6 graphics cells, close them 
> up, and then
> double click on the image to start the animation. Or just 
> double click on
> any image without closing them up.
> 
> Alternatively, you could attach the following lines of code, 
> which will
> automatically do this for you.
> 
> Needs["Graphics`Animation`"]
> 
> Module[{n}, Animate[Plot[Sin[n x], {x, 0, 2 Pi}], {n, 1, 6, 1}]]
> SelectionMove[EvaluationNotebook[], All, GeneratedCell]
> FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5];
> FrontEndExecute[{FrontEnd`SelectionAnimate[200, 
> AnimationDisplayTime -> 0.1,
> AnimationDirection -> Forward]}]
> 
> The 'A' button from the DrawGraphics palette that comes with the
> DrawGraphics package, for those who have it, will paste in 
> those lines of
> code.
> 
> Also, don't forget that you can control the animation with 
> keyboard keys.
> 1) up/down arrows will advance one frame at a time.
> 2) left/right arrows will start animation in forward or 
> reverse direction.
> 3) 'p' will pause or restart the animation.
> 4) 'c' will put the animation in the ForwardBackward mode.
> 5) The number keys will control the speed of the animation.
> 
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
> 
> 
> 
> 
> From: MR [mailto:marcinrak at gmail.com]
To: mathgroup at smc.vnet.net
> 
> Hey everyone
> 
> Module[{n}, Animate[Plot[Sin[n x], {x, 0, 2 Pi}], {n, 1, 6, 1}]];
> 
> running the above command doesn't yield an animation in one plot, but
> much rather six different still plots which appear one beneath the
> other.
> 
> Any ideas?
> 
> 
> 



  • Prev by Date: Re: calling mathematica from an external program
  • Next by Date: RE: Two questions (1) Sollve and (2) Precision
  • Previous by thread: Re: Animate
  • Next by thread: RE: RE: Animate