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

Re: Animations on mathematica

• To: mathgroup at smc.vnet.net
• Subject: [mg104043] Re: Animations on mathematica
• From: "Nasser Abbasi" <nma at 12000.org>
• Date: Fri, 16 Oct 2009 07:22:01 -0400 (EDT)
• References: <hb70o7$95f$1@smc.vnet.net>

"fd" <fdimer at gmail.com> wrote in message news:hb70o7$95f$1 at smc.vnet.net...
> All,
>
> I'm trying to export an animation from a Manipulate[] command into an
> AVI video. It only generates animations with 0.04 secs duration, but
> I'd like to make longer ones.
>
> The documentation on exporting animations (and the number of formats
> available) are deceptively scarce in Mathematica.
>

I have not tried animation directly using Manipulate, but to control 
duration, I do the animation using Animate[]  with the AnimationRate option. 
This is an example where I set the rate to 5 units per second. The lower the 
rate, the longer it will for the animation to run from start to end

r = 1; step = 0.1;
backgroundAxes = Plot[0, {x, -Pi, 3*Pi}, PlotRange -> {Automatic, {-r/2, 2*r 
+ 0.5}},
    AspectRatio -> Automatic];
Animate[Show[{backgroundAxes, ListPlot[Table[{x - Sin[x], 1 - Cos[x]}, {x, 
0, t, step}], Joined -> True],
    Graphics[{PointSize[Large], Red, Point[{t - Sin[t], 1 - Cos[t]}]}], 
Graphics[Circle[{t, 1}, r]]}],
  {t, 0, 2*Pi, step}, AnimationRate -> 5]

Export["test.avi", p]

--Nasser