New answers tagged

0

https://www.youtube.com/watch?v=CMor1VtBZzA Watch this helpful video Make a table of gifs. Then save then into one gif.


3

ListAnimate[ Table[ Show[Toro, Knot, Graphics3D@{Red, Sphere[torus[u, 2 u], .3]}, PlotRange -> {{-4.5, 4.5}, {-4.5, 4.5}, {-1.2, 1.2}}], {u, 0, 1, .01}] ]


8

You can simply increase the display duration for the last frame. Export["test.GIF", frames, "Interlaced" -> True, "DisplayDurations" -> ReplacePart[Table[0.1, Length[frames]], -1 -> 1.0], "AnimationRepetitions" -> ∞] Citing the GIF documentation: "DisplayDurations"->{d1, d2, ...} specifies the display durations for each frame in ...


4

ClearAll[f] f[p_, a_] := {Cos[a Sin[p #1]] Cos[#1], Cos[a Sin[p #1]] Sin[#1], -Sin[a Sin[p #1]]} &; sphere = Graphics3D[{Opacity[0.7], Sphere[]}]; Dynamic[Show[sphere, ParametricPlot3D[f[10, .25][u], {u, 0, 2 Pi]}, Mesh -> {{{Clock[{0, 2 Pi}], {Red, PointSize[.05]}}}}, MeshFunctions -> {#4 &}], Boxed -> False] /. Point[x_] :> ...


3

With[{path = CoordinateTransform[ "Spherical" -> "Cartesian", {1, (Sin[5 fi] .5 + Pi/2), fi} ]} , Show[ ParametricPlot3D[path, {fi, -Pi, Pi}], Graphics3D[{Sphere[], AbsolutePointSize @ 12, Dynamic[Point[1.01 path /. fi -> Clock[2 Pi, 3]], UpdateInterval -> .05]}], PlotRange -> 1.5] ]


6

Here you go, sphereplot = With[ {z = 1/2 Cos[8 ϕ], r = 1}, Show[ Graphics3D@Sphere[], ParametricPlot3D[{Cos[ϕ] Sqrt[r^2 - z^2], Sin[ϕ] Sqrt[r^2 - z^2], z}, {ϕ, 0, 2 π}], Boxed -> False ] ]; Now you just need a function that will place the animation point at a given angle around the curve, ball[ϕ_] := With[ {z = 1/2 ...


18

Here is a simple modification of the original code in the question that seems to do what's desired: curve[t_] := {Cos[2 Pi*t]/Cosh[Cot[Pi/4]*t], Sin[2 Pi*t]/Cosh[Cot[Pi/4]*t], Tanh[Cot[Pi/4]*t]}; lineSegment[t_] := ParametricPlot3D[curve[t1], {t1, -0.001, t}, PlotRange -> {-1, 1}, PlotStyle -> {Thick, Red}]; sphere = With[{w = 1.2}, ...


18

Below is an animation that tips a proton precessing in the presence of a static B0 magnetic field from the z direction into the x-y plane with a 90 degree B1 pulse and attempts to explain the rotating frame. Unfortunately it is way too long to put into an answer but I have uploaded the notebook using Halirutan's SE Uploader tool. The notebook was built for ...


2

Animate[Plot[Sin[a*t], {t, 0, 2}, PlotRange -> {0, 2}, Epilog -> Text[Style[Row[{"a value =", Pane[a, Alignment -> Right, ImageSize -> {50, Automatic}], " some more text"}], Bold, Blue, 15], {0.8, 1.5}]], {a, 0, 11, 0.1}]


6

Maybe you could fix the left-hand end of the text position, something like this: Animate[Plot[Sin[a*t], {t, 0, 2}, PlotRange -> {0, 2},Epilog->Text[Style[Row@{"a value = ", a}, Bold, Blue, 15], {0.8, 1.5}, {-1, 0}]], {a, 0, 10, 0.1}]


4

Ok, lets go step by step. First you want to create a torus. The right parametric form is {Cos[v] (r + Cos[u]), Sin[v] (r + Cos[u]), Sin[u]}. r = 2; pl1 = ParametricPlot3D[{Cos[v] (r + Cos[u]), Sin[v] (r + Cos[u]), Sin[u]}, {v, 0, 2 Pi}, {u, 0, 2 Pi}, Mesh -> False, PlotStyle -> Opacity[0.7]]; Then you want to make a line on this torus ...


2

ParametricPlot3D[ {(2 + Cos[ 2 Pi v]) Cos[ 2 Pi u], (2 + Cos[ 2 Pi v]) Sin[2 Pi u], Sin[2 Pi v]}, {v, 0, 1}, {u, 0, 1}] You want to draw certain lines on above torus it appears. Next,please describe the character of winding lines you choose to depict on it, as that comes at first. For example do you want to draw geodesics? loxodromes? Planar ...


1

Use the same parametric form for the point Animate[ Block[{r = 1, a = .2}, Show[{Graphics3D[{Opacity[.3], Sphere[{0, 0, 0}, r]}], ParametricPlot3D[curve, {t, -30, 30}, PlotRange -> All], Graphics3D[Point[curve /. t -> t0]]}]] , {t0, -30, 30}]


3

I always prefer to make a list of images, and use ListAnimate to animate them, rather than Animate, curve[t_] := With[{c = ArcTan[a t]}, r {Cos[t] Cos[c], Sin[t] Cos[c], -Sin[c]}] Block[{r = 1, a = .2}, sphere = Show[ {Graphics3D[{Opacity[.3], Sphere[{0, 0, 0}, r]}], ParametricPlot3D[curve[t], {t, -30, 30}, PlotRange -> All]} ]; imglist = ...


5

Manipulate[Show[Graphics[dottedCircle1[{0, 0}, Pi/2 + a, R]], Graphics[dottedCircle2[{R + r, 0}, -Pi/2 + s a, r]], AspectRatio -> Automatic], {a, 0, 2 Pi}, {{R, 1}, 0, 10}, {{r, .5}, 0, 10}, {{s, 0}, 0, 10, 1}]


1

Animate[PolarPlot[2 Sin[4 θ], {θ, 0, 2 Pi}, Axes -> False, MeshFunctions -> {#3 &}, Mesh -> {{{θ, Directive[Red, PointSize[Large]]}}}], {θ, 0, 2 Pi}, AnimationRunning -> False]


3

AnimationRate sets the fraction of the animation variables range to move through in one second. 0.5 says move through half the range in one second. 2 says move through the entire range twice in one second. RefreshRate sets how many times per second the display is updated. You will only get a stationary image when both f and fs equal 1. The animation will ...


1

Update: Manipulate[ ParametricPlot[radius {Sin[x], Cos[x]}, {x, 0, 2 Pi}, PlotRange -> {{-10, 10}, {-10, 10}}, MeshFunctions -> {#3 &}, Axes -> True, Mesh -> {{{t, {Red, PointSize[.05]}}}}], {t, 0, 2 Pi}, {{radius, 2, "Play"}, 1, 10}] Original post: Using Clock and ParametricPlot with MeshFunctions ...


2

Example: Manipulate[ Graphics[{ Circle[], {Red, PointSize @ .05, Point@{Cos[x], Sin[x]}} }], {x, 0, 2 Pi} ] Alternatively, if you would like to animate it: Animate[ Graphics[{ Circle[], {Red, PointSize @ .05, Point@{Cos[x], Sin[x]}} }], {x, 0, 2 Pi} ] Output:



Top 50 recent answers are included