This code here
R[n_] := (SeedRandom[n]; RandomReal[])
Export[NotebookDirectory[] <> "test.avi",
Table[Table[
Show[Table[
Plot[80 -
m + .2*Sin[
2 Pi*R[6*m] +
Sum[4*Sin[2 Pi*R[4*m] + t + R[2 n*m]*2 Pi]*
Exp[-(.3*x + 30 - 1*100*R[2 n*m])^2/20], {n, 1, 30, 1}]] +
Sum[3 (1 + R[3*n*m])*Abs[Sin[t + R[n*m]*2 Pi]]*
Exp[-(x - 1*100*R[n*m])^2/20], {n, 1, 4, 1}], {x, -50, 150},
PlotStyle -> Directive[White, Thick],
PlotRange -> {{-50, 150}, {0, 85}}, Background -> Black,
Filling -> Axis, FillingStyle -> Black, Axes -> False,
AspectRatio -> Full, ImageSize -> {1920, 1080}], {m, 1, 80,
1}]], {t, 0, 6.3*18/19, 6.3/38}]]]
is running for 2 days now and still not finished. Any ideas how to get evaluation much faster? Where exactly can I improve it with ParallelTable for example?
Other ideas for a good speedup?