怎么用Mathematica制作动态图片

Mathematica有一个非常强大的功能，就是生成可以互动的内容，甚至可以到处帧数很大的动态图。 下面，就用几个例子，简单的讲一下这个问题。

2、 导出的文件在哪里呢？这个好像因人而异。我的电脑上的导出文件是在“文档”文件夹里。如果你的电脑不是这样，可以慢慢找，也可以全盘搜索"abcd.gif"。

4、 上面并不是动态图，因为你的电脑文件夹里面没有这个东西（还没导出来）。 怎么导出？当然还是用Export，代码如下：Export["sinx.gif", Table[Plot[Sin[x + a], {x, 0, 10}], {a, 0, 5}]] 出来的结果如图：

5、三焦点曲线 在《耦嘀扔硇怎么用Mathematica处理多焦点曲线》里面，作者提到了多焦点曲线的概念。 下面把三焦点曲线导出为动态图。 先建立一个图的列表，一帧一帧的图像，都在这个列表里。Table[ContourPlot[ Sqrt[(x - 1)^2 + (y - 1)^2] + Sqrt[(x - 0)^2 + (y - 0)^2] + Sqrt[ x^2 + (y - 1)^2] == a, {x, -5, 5}, {y, -5, 5}], {a, 1.8, 10, 0.1}] 然后用Export：Export["三焦点曲线.gif",Table[ContourPlot[ Sqrt[(x - 1)^2 + (y - 1)^2] + Sqrt[(x - 0)^2 + (y - 0)^2] + Sqrt[ x^2 + (y - 1)^2] == a, {x, -5, 5}, {y, -5, 5}], {a, 1.8, 10, 0.1}]]

6、双摆的模拟 双摆和单摆比起来，就复杂的太多了。它的运动状态，看起来非常的混乱。下面，就用Mathematica模拟一下它的运动。 它的运动，由四个函数根据不同的初始状态所确定。这四个函数设为p1[t]、p2[t]、θ1[t]、θ2[t]，它们满足一个微分方程组（见图）。 代码如下图。