Tag Info

New answers tagged

7

By default the frames of a GIF are stacked on top of each other. One can change this behavior using the Export option "TransitionEffect" -> Background: Export["D:\\InformationMaterial\\Wolfram\\vTest.gif", v, "TransparentColor" -> White, "TransitionEffect" -> Background] The default setting is "TransitionEffect" -> None.


8

I wrote something to do something a little like what you wanted. Here I've adapted it so you can get a run through for each setting of the SetterBar. Some description of the functions. autolist[control_pattern] := list of manipulate settings for the animation specs is a pattern for culling variable specifications out of a Manipulate ...


9

You can define a function that creates Manipulates with a "fake" SetterBar and a specific AutorunSequencing m[k_, seq_] := Manipulate[ Plot[{Sin[a*x] + b*Cos[3 a*x], k*x}, {x, 0, Pi}, ImageSize -> 400], {a, 1, 2}, {b, 0, 1}, Grid@{{"k", SetterBar[k, {0, .5, 1}]}}, AutorunSequencing -> seq, ContentSize -> {420, 270}] then create the frames ...


6

The export to movie is easy. (just write p=Manipulate[..] then export p to movie. Controlling the sequences as you want, I think have to be programmed in. Autorunsquences does not give one full control of all the scenario needed. Here is the Manipulate you have. It runs in 2 modes. Automode, runs pre-programmed scenario. Click again, turn this off, so you ...


7

This is just an idea how to prepare frames to export, don't have time for more now: f = Interpolation[ { {0, {1, 0, 0}}, {1, {2, 0, 0}}, {2, {2, 1, 0}}, {2.02, {1, 0, .5}}, {3, {1, 0, .5}}, {4, {2, 0, .5}}, {5, {2, 1, .5}}, {5.02, {1, 0, 1}}, {6, {1, 0, 1}}, {7, {2, 0, 1}}, {8, {2, 1, 1}} }, InterpolationOrder -> ...


1

Slider does not allow play button but Manipulator does. This is an example and I don't know if it fits you need. Grid[{{Manipulator[Dynamic[x]], Dynamic[x]}, {Manipulator[Dynamic[y]], Dynamic[y]}, {Show[{Graphics[{EdgeForm[Black], Dynamic@Circle[{x, y}, 1]}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[ Translate[{Opacity[0.3], ...


1

You can animate the function being drawn by varying the range of t, not t itself (since t is already fixed). However, you'll need to fix PlotRange (and probably PlotPoints) for animation to look nice: Animate[ ParametricPlot[ {xC[t], yC[t]}, {t, 0, u}, PlotRange -> {{-1.5, 3.5}, {-1, 4.5}}, PlotPoints -> 60 ], {u, 0.01, 2} ] ...



Top 50 recent answers are included