我正在尝试在Mathematica中可视化分子振动,并使用如下命令制作一些3D动画:
Animate[Graphics3D[{x[t],y[t],z[t]}],{t,tmin,tmax}]
我找不到出口的方法。有3D图形和2D动画的官方文档。我尝试了大多数文件类型,但都失败了。如果这是不可能的,那么从某个角度看2D gif是可以接受的。任何建议都会有所帮助。
发布于 2013-11-23 16:14:55
这就行了。
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中的第二个示例
https://stackoverflow.com/questions/20160103
复制相似问题