Simo K. Kivelä / 07.05.2003

Animaatiot

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.

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}]