Animate[Plot3D[Sin[x y+t] Cos[y+t],{x,0,6},{y,0,6},PlotRange->{-1,1},PlotStyle->{AbsoluteThickness[2],RGBColor[1,0,0]}],{t,0,2 Pi,0.4}]
这一条命令产生的动画在Mathematica中播放:
Table[Plot3D[Sin[x y+t] Cos[y+t],{x,0,6},{y,0,6},PlotRange->{-1,1},PlotStyle->{AbsoluteThickness[2],RGBColor[1,0,0]}],{t,0,2 Pi,0.4}]
这一条命令产生一系列图片
Export["animation.gif", %]
这一条命令可将以上一系列图片存为GIF格式的动画:
下面是另一个曲面的动画 (旋转抛物面) :
评论