Animazione di Tori e Sfere (Damiano Berardo, Dicembre 2003)

In[120]:=

RowBox[{g, =, RowBox[{Show, [, RowBox[{ParametricPlot3D[{(50 + 10 * Cos[t]) * Sin[u], 10 * Sin ... 1;, RowBox[{ViewPoint, ->, RowBox[{{, RowBox[{2.241, ,,  , 1.498, ,,  , 2.054}], }}]}]}], ]}]}]

[Graphics:../HTMLFiles/index_931.gif]

[Graphics:../HTMLFiles/index_932.gif]

[Graphics:../HTMLFiles/index_933.gif]

[Graphics:../HTMLFiles/index_934.gif]

[Graphics:../HTMLFiles/index_935.gif]

Out[120]=

⁃Graphics3D⁃

In[121]:=

SpinShow[g, Frames13, SpinRange {0 Degree, 90 Degree}]

[Graphics:../HTMLFiles/index_938.gif]

[Graphics:../HTMLFiles/index_939.gif]

[Graphics:../HTMLFiles/index_940.gif]

[Graphics:../HTMLFiles/index_941.gif]

[Graphics:../HTMLFiles/index_942.gif]

[Graphics:../HTMLFiles/index_943.gif]

[Graphics:../HTMLFiles/index_944.gif]

[Graphics:../HTMLFiles/index_945.gif]

[Graphics:../HTMLFiles/index_946.gif]

[Graphics:../HTMLFiles/index_947.gif]

[Graphics:../HTMLFiles/index_948.gif]

[Graphics:../HTMLFiles/index_949.gif]

[Graphics:../HTMLFiles/index_950.gif]


Created by Mathematica  (September 18, 2006)