ΠεριγραφήExpIPi.gif	This is a demonstration that Exp(i*Pi)=-1 (called Euler's formula, or Euler's identity). It uses the formula (1+z/N)^N --> Exp(z) (as N increases). The Nth power is displayed as a repeated multiplication in the complex plane. As N increases, you can see that the final result (the last point) approaches -1, the actual value of Exp(i*pi).
Ημερομηνία	5 Μαΐου 2008
Πηγή	Έργο αυτού που το ανεβάζει  diagram δημιουργήθηκε με Wolfram Mathematica από n
Δημιουργός	Sbyrnes321

Εγώ, ο κάτοχος των πνευματικών δικαιωμάτων αυτού του έργου, δημοσιεύω αυτό το έργο ως κοινό κτήμα. Αυτό ισχύει σε παγκόσμια κλίμακα. Σε ορισμένες χώρες αυτό μπορεί να μην είναι νομικά εφικτό. Αν ναι: Παραχωρώ σε οποιονδήποτε το δικαίωμα να χρησιμοποιήσει αυτό το έργο "για οποιονδήποτε σκοπό", χωρίς κανέναν όρο, εκτός και αν τέτοιοι όροι τίθενται από την νομοθεσία

(* Source code written in Mathematica 6.0, by Steve Byrnes, 2008. I release this code into the public domain. *)

plot1 = Table[
  ListPlot[Table[{Re[(1 + (\[ImaginaryI] \[Pi])/n)^m], 
     Im[(1 + (\[ImaginaryI] \[Pi])/n)^m]}, {m, 0, n}], 
   PlotJoined -> True, PlotMarkers -> Automatic, 
   PlotRange -> {{-2.5, 1.1}, {0, \[Pi] + .05}}, AxesOrigin -> {0, 0},
    AxesLabel -> {"Real part", "Imaginary part"}, 
   PlotLabel -> "N = " <> ToString[n], 
   AspectRatio -> Automatic], {n, {1, 2, 3, 4, 5, 10, 20, 50, 100}}];

Export["ExpIPi.gif", plot1, "DisplayDurations" -> {2}, 
 "AnimationRepititions" -> Infinity ]