Weihnachtskarte 1996

Frohe Festtage und alles Gute im Neuen Jahr!

n=10000; (* Anzahl Punkte *)
 With[{c = N[Pi(1 + Sqrt[5])/2.0], x = Range[n]},
      ListPlot[{Re[#], Im[#]}& /@ FoldList[Plus, 0, Exp[I c x^2]],
               PlotJoined -> True, AspectRatio -> Automatic, Axes -> None]
  ];

Idee von J. Waldvogel, ETH Zürich. Programm von R. Mäder, MathConsult. Aus: Programming in Mathematica, 3rd Ed. Addison-Wesley, 1997.