¿Cómo crear una animación de péndulo caótica usando Mathematica?

No quiero dar el código para un problema tan simple... Tengo uno ya preparado, así que cópialo.

Animación[

Visualización[

Dibujo paramétrico[

Evaluar[{u@\[Tau],? 0}?+?l? {Sin@\[Phi][t],? ¿Cos@\[Phi][t]}]? /.?

Saúl. {t,? 0,?\[Tau]},?

¿Rango de trama? ->? {escala de ejes? {-yo,? l}? +?{0.03,?0.03}?+?{-A,? A},? {-1.1?l,?

0}},?Puntos de trama? ->? 300],

Gráficos[({circle[#,?0.03],?line[{{u@t,0}?/.?sol[[1]],?#}],?

Flecha[{#,?#?+?arrowscale?D[#,?t]}]}?&@({u@t,?0}?+?

l?{Sin@\[Phi][t],?-Cos@\[Phi][t]}? /.?

t? ->? \[Tau]]

]

,?{\[Tau],? 0,0001,?tspan},? ¿Animación en ejecución? ->? Falso,?

¿Tasa de animación? ->? 1

]Publícalo y entiéndelo tú mismo. Este código puede ser un poco antiguo, por lo que es posible que haya algún problema.

Una implementación simple es:

Animación [dibujo de parámetros[{x@t,y@t}/. Solución: {t, 0, tau}], {tau, 0.001, tspan}] es muy conveniente para la proyección.