使用Mathematica绘制蝴蝶线（Butterfly Curve）

教材中有一个“漂亮图形”，今晚才看出来三张图应该是不同角度下的蝴蝶图，为什么之前没看出来呢？哈哈。

动态图是这样的：

动态图代码：

Export["Butterfly.gif", 
 Manipulate[
  PolarPlot[Sin [x] + Sin[a x]^3, {x, 0, 2 \[Pi]}], {a, {3.5, 3, 5}}],
  "ControlAppearance" -> None]

再看看别人画的蝴蝶，马上就知道差距有多大了，呵呵，继续好好学习吧！

这里还有另一个蝴蝶线（所谓蝴蝶线，应该还有很多了，长得像蝴蝶的曲线应该也有无限个吧？）