I tried the following two ways:
Animate[Plot3D[Sin[x*y^2], {x, -2, 2}, {y, -2, 2},
Axes -> True,
Boxed -> True, PlotRange -> {{-2, 2}, {-2, 2}, {-1, 1}},
AxesLabel -> {"x1", "x2", "x3"}, Boxed -> True, PlotPoints -> 100,
BoxStyle -> Directive[Gray, Thickness[0.005]],
ImageSize -> {500, 400},
ViewPoint -> 3.5 {Cos[t], Sin[t], 0.4}], {t, 0, 2 Pi},
AnimationRate -> 0.01, RefreshRate -> 50]
or
Animate[Plot3D[Sin[x*y^2], {x, -2, 2}, {y, -2, 2},
Axes -> True,
Boxed -> True, PlotRange -> {{-2, 2}, {-2, 2}, {-1, 1}},
AxesLabel -> {"x1", "x2", "x3"}, Boxed -> True, PlotPoints -> 100,
BoxStyle -> Directive[Gray, Thickness[0.005]],
ImageSize -> {500, 400},
ViewVector -> { 6 {Cos[t], Sin[t], 0.4}, {0, 0, 0}},
ViewAngle -> All, SphericalRegion -> True,
ViewVertical -> {0, 0, 1}], {t, 0, 2 Pi}, AnimationRate -> 0.01,
RefreshRate -> 50]
I would like to rotate the plot around the z-axis (around {0, 0, 1}
vector) with Boxed -> True
and Ticks
and Axes->True
and with ticks and axis labels.
The two Animate
expressions shown above work but the motion is not smooth (there are some jumps in rotation).
Does anybody have some idea how to improve the animation to make the motion smooth.
ImagePadding -> 50
to theAnimate
function. $\endgroup$ViewVector ->Dynamic @ { 6 {Cos[t], Sin[t], 0.4}, {0, 0, 0}}
will greatly improve performance but those tiny glitches still happen $\endgroup$RotationAction -> "Clip"
? $\endgroup$