Simo K. Kivelä / 07.05.2003

Animaatiot

In[1]:=

Remove["Global`*"]

Animaatioita voidaan muodostaa tuottamalla aluksi lista graafisia kuvia. Nämä muodostavat animaation samaan tapaan kuin elokuvan yksittäiset kuvat. Animaatio käynnistetään napauttamalla kuvia yhdistävä hakanen aktiiviseksi ja valitsemalla valikosta Cell vaihtoehto Animate Selected Graphics.

In[2]:=

Table[ParametricPlot3D[{(Sin[v - k 2 Pi/36] + 2) Cos[u], (Sin[v - k 2 Pi/36] + 2) Sin[u], v}, {u, 0, 2 Pi}, {v, 0, 4 Pi}, Boxed -> False, Axes -> False], {k, 0, 35}]

animaatio

Out[2]=

{-Graphics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -, -Gr ... ics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -, -Graphics3D -}

Converted by Mathematica  (May 7, 2003)