Gifs animats amb Mathematica (2)

Aquest nou gif animat que he fet l'he titulat "Petit tomàquet fa un passeig pel hort toroïdal".

Tot plegat amb només cinc línies de codi Mathematica:

Fotograma1:=ParametricPlot3D[{(3+Cos[v])Cos[u],(3+Cos[v])Sin[u],Sin[v]},{u,0,2Pi},{v,0,2Pi},PlotStyle->RGBColor[0,1,0,.5],Mesh->None]
Fotograma2[a_]:=Graphics3D[{PointSize[0.05],Red,Point[{(3+Cos[a])Cos[a/4],(3+Cos[a])Sin[a/4],Sin[a]}]}]
Fotograma[a_]=Show[Fotograma1,Fotograma2[a]];
Film=Table[Fotograma[a],{a,0,8Pi,8Pi/50}];
Export["c:/mathematica/film3.gif",Film]

 El més divertit és anar fent petites modificacions al Fotograma2, anar alterant la trajectòria del punt i veure que surt.