在 Mathematica 中为 Graphics3D 保持一致的绘图区域

Question

我正在尝试将Animate 与Graphics3D 结合使用来制作具有振荡长度的向量列表。基本上，从原点绘制的随机 3D 矢量列表。然后向量的长度由具有随机相位的余弦函数控制。

例如，

randomVec[r_] := r*Normalize@RandomVariate[NormalDistribution[], 3]
vecs = Table[randomVec[i], {i, 10^2}];
hues = Table[RandomReal[], {i, 10^2}];
rans = Table[RandomReal[], {i, 10^2}];

Animate[
    Graphics3D[
        Table[{Hue[hues[[i]]], 
              Arrow[Tube[{{0, 0, 0}, 
              vecs[[i]] + Cos[\[Eta] + rans[[i]]*Pi]*vecs[[i]]}, 
              Scaled[0.007]]]}, {i, 10^2}],
     Boxed -> False, AxesOrigin -> {0, 0, 0}, 
     ViewPoint -> {Pi, Pi, Pi}],
{\[Eta], 0, 2*Pi}]

但是，当我运行此代码时，动画的原点似乎在查看框架内反弹。如何强制Graphics3D 每次在Animate 中调用时使用完全相同的查看框？

此外，此代码可能效率低下，因此任何有关如何使其动画更流畅的提示将不胜感激！

Answer 1

我认为在你的情况下首先要尝试的是添加一个

 PlotRange->{{xmin, xmax},{ymin, ymax},{zmin, zmax}}

选项。

它将独立于计算的控制立方体的大小 数据。

您可能还想查看选项BoxRatios 和SphericalRegion 以获得很好的结果缩放。