New answers tagged

3

Not sure about your strategy generating the data, but provided you have already defined {rGraphicsList, bGraphicsList, blGraphicsList}, then you can do ListAnimate[ Show @@@ Transpose[ {rGraphicsList, bGraphicsList, blGraphicsList} ] ] Here @@@ stands for Apply as in Apply[f,expr,{1}] or f@@@expr replaces heads at level 1 of expr by f. ...


0

Build a Table of segments and display the desired number of segments. surf[u_, v_] := {Cos[ u] (16.958793136378254` E^(0.16568669119550355` u) + \ (1.2436985521695564`*^-15 + 8.299999999999999` E^(0.16568669119550355` u) + 0.34091663610461015` Sqrt[ 8.881784197001252`*^-16 + 5.927385595690565` E^(0.16568669119550355` ...


15

ColorFunction and Epilog were around in version 7. However, ColorFunction did get an update in version 9 so I am not certain if this will work in version 7. Animate[ ParametricPlot[circle[t], {t, Max[0, u - .2], u}, PlotRange -> {{-dMax, dMax}, {-dMax, dMax}}, ColorFunction -> Function[{x, y, w}, Opacity[w, Blue]], Frame -> True, Axes ...


3

Another option would be to use the With scoping construct With[{ x = Xm Cos[ω t + ϕ], v = -ω Xm Sin[ω t + ϕ], a = -ω^2 Xm Cos[ω t + ϕ] }, Animate[Plot[{x, v, a}, {t, -12.5, 12}, PlotStyle -> {Blue, Red, DarkGreen}], {{ω, 1.57}, 0, 6.28}, {{ϕ, 0}, 0, 10}, {{Xm, 1}, 0, 3}, AnimationRunning -> False] ]


4

Make the definition as function of all the variables. x[ω_, ϕ_, t_, Xm_] := Xm*Cos[ω t + ϕ]; v[ω_, ϕ_, t_, Xm_] := -ω*Xm*Sin[ω t + ϕ]; a[ω_, ϕ_, t_, Xm_] := -ω^2*Xm*Cos[ω t + ϕ]; Animate[ Plot[{x[ω, ϕ, t, Xm], v[ω, ϕ, t, Xm], a[ω, ϕ,t, Xm]}, {t, -12.5, 12}, PlotStyle -> {Blue, Red, Green}], {{ω, 1.57}, 0, 6.28}, {{ϕ, 0}, 0, 10}, {{Xm, 1}, 0, 3}, ...


1

Saved as a movie in mov format: SetDirectory@NotebookDirectory[]; Figure1[c_] := Plot[c + Log[2, x], {x, -2, 2}]; {a, b} = {2, 3}; m1 = Manipulate[ Show[Figure1[c], PlotRange -> {{-a, a}, {-b, b}}], {c, -1, 3, .0001} ]; Export["movie.mov", m1]; Figure2[c_] := Plot[c + Log[2, x + c], {x, -3, 3}]; {a, b} = {3, 3}; m2 = Manipulate[ ...



Top 50 recent answers are included