### How to create animation?

Posted:

**Wed Nov 12, 2014 8:34 pm**Can someone tell me please, how to create a video with Mathematica?

An .avi in 1080i or 720p, with following code for example:

Or this

Should be a simple infinite loop if ready, running ~30seconds for example.

An .avi in 1080i or 720p, with following code for example:

Code: Select all

```
r[t_] := {Sin[t] + 2 Sin[2*t], Cos[t] - 2 Cos[2*t], -Sin[3*t]};
T[t_] := 1/Norm[r'[t]]*r'[t];
U[t_] := 1/Norm[r''[t]]*r''[t];
V[t_] := Cross[T[t], U[t]];
W[a_, d_, t_] := r[t] + d*Cos[a]*U[t] + d*Sin[a]*V[t]
Manipulate[With[{d = .5, M = 124, Q = 124},
Graphics3D[
Table[
GraphicsComplex[
Flatten[Table[
W[(a + s)*2 Pi/3, d, t + s*8*Pi/M],
{t, {j*2 Pi/M, (j + 1) 2 Pi/M}}, {a, 0, 2, 1}], 1],
Polygon[{{1, 2, 5, 4}, {2, 3, 6, 5}, {3, 1, 4, 6}}]],
{j, 0, Q, 1}],
Lighting -> "Neutral", Boxed -> False, ViewPoint -> Above,
ImageSize -> 600, PlotRange -> 3.5]],
{s, 0, 1}]
```

Code: Select all

```
WfPlot[ s_, t_] :=
Graphics[
Table[
{AbsoluteThickness[1.5],
Line[
Table[
{i + If[Mod[i, 2] == 0, s*Sin[j*2 Pi/66 + i*2 Pi/6 + t], 0],
(-1)^i*.5 + .4*j},
{i, 1, 19}]]},
{j, 1, 69, 1}],
PlotRange -> {{1, 19}, {.8, 27.2}},
ImageSize -> {500, 500}]
LogPolar[x_, y_] := {Log[Sqrt[x^2 + y^2]], ArcTan[x, y]}
Manipulate[
ImageTransformation[
WfPlot[s, t],
LogPolar[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}],
{s, 0, 1}, {t, 0, 2Pi}]
```