index_lnk_4.html

La spirale ipnotica.

Animiamo una curva a spirale, con un numero di fotogrammi fissato da una costante.

Definiamo una funzione f[t] che genera la spirale ruotata di un angolo t*alpha.

f[t_]:=
ParametricPlot3D[
 {s^2*Cos[2 Pi cycles s + t*alpha], 
  s^2*Sin[2 Pi cycles s + t*alpha],
  0,
  RGBColor[0,0,s]},       
 {s, 0, 1}, 
  Axes -> False,
  PlotRange -> 
   {{-1+e, 1-e},{-1+e, 1-e},{-1+e, 1-e}},
   (* ci riduciamo al cubo di lato:
    [-1+e, 1-e] *)
  ViewPoint->{0,0,2},
   (* visione dall'alto *)
  PlotPoints->500,    
   (* usiamo 500 segmenti *)
  ImageSize->600];