WOLFRAM NOTEBOOK

In[]:=
frames=Table[ListPointPlot3D[{{Sin[t],Cos[t],Sin[t]*Cos[t]}}/.t->3,​​PlotRange->{{-1.5,1.5},{-1.5,1.5},{-1.5,1.5}},BoxRatios->1,​​PlotStyle->PointSize[0.02],PlotLabel->​​"{x="<>ToString[Sin[t]]<>", y="<>ToString[Cos[t]]<>", z="<>ToString[Sin[t]Cos[t]]<>"}"],{t,0,10,0.1}];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.