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,SaveDefinitionsTrue]
Out[]=
Homepage

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