记录一次非常感人的Mathematica Animation…

自己突发奇想想做一次Lissajous曲线。。

Mathematica代码咯：

Animate[ParametricPlot[{Sin[13 u], Sin[18 u]}, {u, 0, a}, 
  PlotLabel -> "u=" + a, PlotPoints -> 200, 
  PlotRange -> {{-1, 1}, {-1, 1}}],
 {a, (10)^(-100), 2 Pi}, AnimationRunning -> True, 
 AnimationRate -> 0.05, RefreshRate -> 120, AnimationRepetitions -> 1]

但是我们应该如何导出视频呢？

。。。这真是令人想砸电脑

你看我的速率和帧率是不是调得很完美，，结果你就这么开心地导出了：

1 2	Export[ "D:\\Lissajous曲线.avi", %]

然后：卧槽这个简直有毒吧跑这么快干什么？

于是你就不知道干啥了。。

我google了一下，然后在一个Forum里面找到了解答：要设置"AnimationDuration"->秒来确定动画时间…

还要"FrameRate" -> 秒来确定导出帧率….我tm….

导致得结果当然是奇慢无比得导出，并且质量还很差，比如说你会这么写：

Export[
 "D:\\Lissajous曲线.avi", Animate[ParametricPlot[{Sin[13 u], Sin[18 u]}, {u, 0, a}, 
  PlotLabel -> "u=" + a, PlotPoints -> 200, 
  PlotRange -> {{-1, 1}, {-1, 1}}],
 {a, (10)^(-100), 2 Pi}, AnimationRunning -> True, 
 AnimationRate -> 0.05, RefreshRate -> 120, AnimationRepetitions -> 1], "AnimationDuration" -> 30, 
 "FrameRate" -> 30]

结果你发现这画质跟你在Youtube上面看的240p没什么区别…

我们为什么不换个思路呢…既然我们都有1080P屏幕…

直接录屏啊！

美滋滋…效果如下（x

~~总结：早日弃掉Export视频保平安~~