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