คำอธิบาย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 พฤษภาคม พ.ศ. 2551
แหล่งที่มา	งานของตัว  ไฟล์GIF ภาพกราฟิกส์เวกเตอร์นี้ สร้างขึ้นโดยใช้ 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 ]