WOLFRAM NOTEBOOK

In[]:=
xsol[t_]={x[t],x'[t]}/.NDSolvex''[t]+Sin[x[t]]0,x[0]
-π
4
,x'[0]-1,x,{t,0,7.1}[[1]];​​post[t_]={Sin[xsol[t][[1]]],-Cos[xsol[t][[1]]]};​​frames=TableGraphicsGrid[{{Show[ListPlot[{xsol[t1]},PlotStylePointSize[0.04],PlotRange{{-2,2},{-2,2}},AspectRatio1,AxesLabel{"
x
1
​(t)","
x
2
​(t)"}],ParametricPlot[xsol[t],{t,0,7.1},PlotRange{{-2,2},{-2,2}},AspectRatio1]],Show[ListPlot[{post[t1]},PlotStylePointSize[0.04],PlotRange{{-2,2},{-2,2}},AspectRatio1],Graphics[Line[{{0,0},post[t1]}]]]}}],t1,0,7.1,
7.1
10
;​​ListAnimate[​​frames,SaveDefinitionsTrue]
Out[]=

​​JonathanShock,UniversityofCapeTown2021​​jon.shock@gmail.com

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.