wolfram-mathematica - 如何在数学中给定旋转轴动画 3d 图

Question

如果给定一个归一化的旋转轴，例如 {1/Sqrt[3],1/Sqrt[3],1/Sqrt[3]}，以及一个 3d 图，例如，
z[x_, y_] := Exp[-(Sqrt[x^2 + y^2]/Power[4, (3)^-1]) +
Power[4, (3)^-1]*Sqrt[1/2*(Sqrt[x^2 + y^2] + x)]];Plot3D[2*z[x, y], {x, -5, 5}, {y, -5, 5}]
我想为这个图围绕轴 {1/Sqrt[3],1/Sqrt[3],1/Sqrt[3]}(可以是任何其他任意一个)创建一个动画，然后将其导出为动画.gif有人会帮忙吗？非常感谢。

编辑

我还在指定旋转时遗漏了一个自由度。任何人都可以帮忙，如果还给出了旋转轴必须通过的点的坐标，如何进行可视化/动画？
再次感谢。

Answer 1

可以做如下。

axis = {1, 1, 1};

Animate[
  Plot3D[2*z[x, y], {x, -5, 5}, {y, -5, 5}] /. 
    gg : GraphicsComplex[___] :> Rotate[gg, theta, axis],
  {theta, 0., 2.*Pi}]

丹尼尔·利希布劳
Wolfram 研究