Animate[ Manipulate[ ParametricPlot[ Evaluate[{x[t], v[t]} /. Quiet @ NDSolve[ {x'[t] == v[t], v'[t] == μ (1 - x[t]^2) v[t] - x[t] + A*Cos[ω*t], x[0] == xv0[[1]], v[0] == xv0[[2]]}, {x[t], v[t]}, {t, 0, tt}]], {t, 0, tt}, ImageSize -> {450, 450}, PlotRange -> 4, AxesLabel -> {TraditionalForm[x[t]], TraditionalForm[v[t]]}, PlotStyle -> PointSize[.5] ], {{μ, 0.75, "parameter μ"}, 0, 3, 0.01, Appearance -> "Labeled"}, {{ω, 0.75, "parameter ω"}, 0, 3, 0.01, Appearance -> "Labeled"}, {{A, 0.75, "parameter A"}, 0, 3, 0.01, Appearance -> "Labeled"}, {{xv0, {1, 1}}, {-4, -4}, {4, 4}, Locator}], {tt, 0, 200}, AnimationRate -> 3, AnimationRepetitions -> 3, AnimationRunning -> True ] $\begingroup$ $\endgroup$
6 
5 Answers
$\begingroup$ $\endgroup$
5 You have to set values which are dynamic in Manipulate.
μ = .75; ω = .75; A = .075; xv0 = {1, 1}; Table pictures for different tt:
sol = Quiet@NDSolve[{x'[t] == v[t], v'[t] == μ (1 - x[t]^2) v[t] - x[t] + A*Cos[ω*t], x[0] == xv0[[1]], v[0] == xv0[[2]] }, {x[t], v[t]}, {t, 0, 20}]; dat = Table[ ParametricPlot[Evaluate[{x[t], v[t]} /. sol, {t, 0, tt}, PlotRange -> 4, AxesLabel -> {x[t], v[t]}] , {tt, .1, 20, .2}]; Create gif.
SetDirectory@NotebookDirectory[] Export["gif.gif", dat] 
- $\begingroup$ Can you include a slider by this method too where you can decide the speed of the animation? So other format needed too then. Any possibilities with Mathematica? $\endgroup$Léo Léopold Hertz 준영– Léo Léopold Hertz 준영2014-12-29 21:29:17 +00:00Commented Dec 29, 2014 at 21:29
- 1$\begingroup$ @Masi You can add DisplayDurations option: mathematica.stackexchange.com/a/29485/5478 $\endgroup$Kuba– Kuba2014-12-29 21:30:36 +00:00Commented Dec 29, 2014 at 21:30
- $\begingroup$ But I want the user to decide real-time the speed of animation. So I think gif is not a choice. $\endgroup$Léo Léopold Hertz 준영– Léo Léopold Hertz 준영2014-12-29 21:34:31 +00:00Commented Dec 29, 2014 at 21:34
- $\begingroup$ @Masi you can save
Manipulate/Animateas CDF. If not then it does not matter if you use gif or other movie extension, you need a player able to specify frames per second. (I hope I get your question) $\endgroup$Kuba– Kuba2014-12-29 21:49:00 +00:00Commented Dec 29, 2014 at 21:49 - $\begingroup$ Do You mean that you can have this kind of speed bar in the animation in Gif too? stackoverflow.com/q/27680783/54964 $\endgroup$Léo Léopold Hertz 준영– Léo Léopold Hertz 준영2014-12-29 22:09:48 +00:00Commented Dec 29, 2014 at 22:09
$\begingroup$ $\endgroup$
You can capture the frames as you manually manipulate like this:
frames = {} Animate[Manipulate[(AppendTo[frames, ParametricPlot[ ... ] ])[[-1]] .. ] ] disable dynamic updating when done, then
Export["test.gif",frames] 
warning this will quickly generate a large number of frames..
$\begingroup$ $\endgroup$
You can adjust the step size by changing the increment in the Table and you can adjust the animation rate using "DisplayDurations", e.g. for the Table above.
Export["dat.gif",dat, "DisplayDurations"->Table[t,{Length[dat]}]] where t is display duration in seconds (frame rate: 1/t). Other options for exporting are in the GIF documentation
$\begingroup$ $\endgroup$
I came across this very helpful video when perusing Wolfram's documentation:
$\begingroup$ $\endgroup$
1 I did not take a deep look at your code,but since you are using animate command,I suppose that your code is producing an animation which you can export it as movie into your powerpoint slides.
Export["test.avi",%] which produces an .avi movie in your document folder.
- $\begingroup$ works for me, while .mov does not work. Takes a long time to finish though. $\endgroup$ivbc– ivbc2017-05-16 18:05:31 +00:00Commented May 16, 2017 at 18:05
Exportetc.), but I moved from GIF to MOV which works nicely as described here: mathematica.stackexchange.com/a/4236/131. The quicktime movies have true color and integrate nicely into Powerpoint. $\endgroup$Exportshould be list of pictures. It is written in help. $\endgroup$