WOLFRAM NOTEBOOK

In[]:=
Table[GraphicsGrid[{{Show[pl2,ListPlot[{{t,solx[t][[2]]}},PlotStyle{PointSize[0.02],Blue}]],Show[Plot[
x
,{x,-2π,2π},AxesLabel(Style[#,20]&/@{"x","
x
"})],ListPlot[{{solx[t][[2]],0}},PlotStyle{PointSize[0.02],Blue}]]}}],{t,0,8,0.5}];​​ListAnimate[%,2,SaveDefinitions->True]
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.