I want to make a animation based on the dataset like
data = Flatten[Table[{x, y, x^2 - y^2}, {x, -3, 3}, {y, -3, 3}], 1];
I show this data using a ListPlot3D.
p2[θ_] := RotationTransform[θ, {0, 0, 1}]
When I use Table to generate the different images, it works fine.
test11 = Table[
ListPlot3D[p2[a][data] /. {x_, y_, z_} -> {x, y, z*a}, Mesh -> 5,
MeshStyle -> White, Axes -> {False, False, True},
PlotRange -> {{-4, 4}, {-4, 4}, {-10, 10}}], {a, -1, 1, 0.1}]
Export["anigraf2.GIF", test11, "DisplayDurations" -> 1]
When I use 'Animate' to create the same output, Mathematica stops responding en I have to restart the software.
Animate[ListPlot3D[p2[a][data] /. {x_, y_, z_} -> {x, y, z*a},
Mesh -> 5, MeshStyle -> White, Axes -> False,
PlotRange -> {{-4, 4}, {-4, 4}, {-10, 10}}], {a, -1, 1, 0.1},
AnimationDirection -> ForwardBackward, AnimationRunning -> True,
SaveDefinitions -> True]
Is there somebody who has suggestion for this issue?
Animate
and useListAnimate
instead, since it generates the frames beforehand. I've hadAnimate
crash my entire system before, to where I needed to just restart my computer. Here,ListAnimate[test11, AnimationDirection -> ForwardBackward, AnimationRunning -> True, SaveDefinitions -> True]
works perfectly. $\endgroup$