Tag Info

New answers tagged

3

I believe the issue relates to increment size., e.g. an = Table[ Show[ParametricPlot[{rx1, ry1} /. \[Omega] -> pulsefrequency, {T, 0, u}, PlotStyle -> {Thick, Red}], Graphics[{Blue, PointSize[0.02], Point[{rx1, ry1} /. \[Omega] -> pulsefrequency /. T -> u]}], PlotRange -> {{-1.5 10^-11, 1.4 10^-11}, {-1.6 ...


2

For variety, one can do this with ControllerManipulate imgs = Plot[Sin[x + #], {x, 0, 2 Pi}] & /@ Range[0, 2 Pi, Pi/10]; ControllerManipulate[ Show[imgs[[(Pause[0.05]; 1 + Mod[x++, Length@imgs - 0])]]], {x, 0, 1}]


1

I haven't carefully looked over the makeAnimation that is suggested in the comments but it looks like it might be even be more advanced than what you need, it certainly is more advanced that what I had written so here goes a basic version that might help you: animation[frames_, delay_] := Module[{fr = frames}, Dynamic[ Refresh[First[fr = ...


3

Is there a way of creating a 3D animation from the 2D animation? You have misunderstood the whole thing. An animation is simply a series of images that are displayed after one another. If you want a 3D animation, make the frames in 3D. If you want 2D, make the frames in 2D. u[x_, t_] = -(1/2) Cos[x - t]^2 + 1; frames = Table[Plot3D[u[x, t], {x, -2 Pi, ...


4

Simply replace Animate with Table and store the result in a variable. I also edited your time range and suppressed the result with a semi-colon. u[x_, t_] = -(1/2) Cos[x - t]^2 + 1; pics = Table[Plot[u[x, t], {x, -10, 10}, PlotRange -> {0, 1.5}, PlotStyle -> {Red, Thickness[0.005]}], {t, 0, 2 Pi, 2 Pi/50}]; Now, Export: Export["anim.gif", pics] ...


3

The problem Animate returns a Manipulate: Animate[var++, {n, 0, 9, 1}] // InputForm (* Manipulate[ var++, {{n, 1}, 0, 9, 1, AppearanceElements -> {"ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}, ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle ...



Top 50 recent answers are included