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

动画[

显示[

参数绘图[

评估[{u@\[Tau]，？0}?+?l？{Sin@\[Phi][t]，？Cos@\[Phi][t]}]？/.？

索尔。{t，？0,?\[Tau]}，？

PlotRange？-& gt；？{axisscale？{-l，？l}？+?{0.03,?0.03}?+?{-A，？A}、？{-1.1?l，？

0}},?情节要点？-& gt；？300],

图形[({圆圈[#，？0.03],?行[{{u@t，0}?/.？sol[[1]]，？#}],?

箭头[{#，？#?+?arrowscale？D[#，？t]}]}？& amp@({u@t，？0}?+?

l？{Sin@\[Phi][t]，？-Cos@\[Phi][t]}？/.？sol)[[1]])？/.？

t？-& gt；？\[Tau]]

]

,?{\[Tau]，？0.0001,?tspan}、？动画运行？-& gt；？假的，？

动画速率？-& gt；？1

]贴进去自己理解。这个代码可能有点旧，所以可能有问题。

简单的实现是:

动画[参数绘图[{x @ t，y @ t}/。解，{t，0，tau}]，{tau，0.001，tspan}]单摆做投影很方便。