2010-07-02 16:56:31| 分类: Mathematica | 标签: |举报 |字号大中小 订阅
用以下Mathematica程序可以产生,并在Mathematica中播放:
Animate[Plot[{Sin[x + t] Cos[t]}, {x, 0, 6}, PlotRange -> {-1, 1}], {t, 0, 2 Pi, 0.1}]
如果希望将动画存为GIF格式,则应该用以下程序:
Table[Plot[{Sin[x + t] Cos[t]}, {x, 0, 6}, PlotRange -> {-1, 1}], {t, 0, 2 Pi, 0.1}];
Export["Quxian.gif", %]
产生的GIF动画如下:
感觉:Mathematica的动画存为GIF格式不如Maple方便。
2 July 2010
返回Mathematica作图教程目录
http://xuxzmail.blog.163.com/blog/static/251319162010714112840593/
评论