বিবরণ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).
তারিখ	৫ মে ২০০৮
উৎস	নিজের কাজ  এই ডায়াগ্রামটি 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 ]