Question

如何用mathematica制作混沌摆动画？

已经通过计算算出了摆球随时间变化的位置，如何做成动画？求代码！

Answer 1

这么简单的问题本来不想给代码的……手上有个现成的，复制过来算了。

Animate[
 Show[
  ParametricPlot[
   Evaluate[{u@\[Tau], 0} + l {Sin@\[Phi][t], Cos@\[Phi][t]}] /. 
    sol, {t, 0, \[Tau]}, 
   PlotRange -> {axisscale {-l, l} + {0.03, 0.03} + {-A, A}, {-1.1 l, 
      0}}, PlotPoints -> 300],
  Graphics[({Circle[#, 0.03], Line[{{u@t, 0} /. sol[[1]], #}], 
        Arrow[{#, # + arrowscale D[#, t]}]} &@({u@t, 0} + 
          l {Sin@\[Phi][t], -Cos@\[Phi][t]} /. sol)[[1]]) /. 
    t -> \[Tau]]
  ]
 , {\[Tau], 0.0001, tspan}, AnimationRunning -> False, 
 AnimationRate -> 1
 ]

自己粘贴进去理解一下吧，这段代码可能有点老，所以说不定还有不妥的地方。

简单点的实现就是：

Animate[ParametricPlot[{x@t,y@t}/.solution,{t,0,tau}],{tau,0.001,tspan}]

做个投影对于一个摆是很方便的。

Answer 2

Manipulate 函数或 1 楼所述的函数都能实现。动画文件可以输出成 AVI 格式的文件，但文件略大一些。

Answer 3

用Mathematica模拟双摆

http://jingyan.baidu.com/article/0f5fb0992795e46d8334eadd.html

Answer 4

你可以参考这里：http://zhidao.baidu.com/question/489350888.html?oldq=1

追问

我对与MATHEMATICA基本没概念，这个好像是给出函数画动态图吧。但是我只有数组，没有函数，具体代码应该是怎么样的？求一段直接能用的代码~谢谢啦

追答

你又不告知我你数据的具体形式，我怎么可能给你具体的代码呢？万一对不上号你照样不会用。Mathematica的自带帮助是最强大的教科书，多看看吧。你有数组依旧是可以画图的，函数画图是Plot，数组画图是ListPlot，你要的不是动态图而是数组的话就用ListAnimate，具体语法你自己看帮助吧。

追问

其实就三列数据，时间和两个摆角。我用MATLAB倒是能画出来，但是也只会用drawnow来画，不知道怎么导出动画……

追答

……你不能描述的更清楚的话我也做不了什么。说到底这是个什么样的摆？看百度知道上的图，根本就不是三个参数能描述的体系啊。

追问

简单的双摆，只要两个角就能描述了。我已经使用MATLAB搞定了，还是谢谢你