如何在Mathematica中导出3D动画？

Question

我正在尝试使用Mathematica中的分子振动进行可视化，并使用以下命令制作一些3D动画：

Animate[Graphics3D[{x[t],y[t],z[t]}],{t,tmin,tmax}]

我找不到导出它的方法。有关于3D图形和2D动画的官方文档。我尝试了大多数这些文件类型但失败了。如果不可能，则可以接受以某个角度观看的2D gif。任何建议都会有所帮助。

Answer 1

这才有效。

In[1]:= x[t_]:=Sin[t];y[t_]:=Cos[t];z[t_]:=t;
plots = Table[
ParametricPlot3D[{x[a+t], y[a+t], z[a+t]}, {t,0,2 Pi}], {a,5}]

<<<snip plots>>>

In[4]:= ListAnimate[plots]

<<<snip animation>>>

In[5]:= Export["animate.avi", plots]

Out[5]= "animate.avi"

<<<find your file in your Mathematica folder and run your exported animation>>>

所有这些都只是模仿第二个例子 http://reference.wolfram.com/mathematica/howto/ImportAndExportAnimations.html