RationalWiki's 2019 Fundraiser

There is no RationalWiki without you. We are a small non-profit with no staff – we are hundreds of volunteers who document pseudoscience and crankery around the world every day. We will never allow ads because we must remain independent. We cannot rely on big donors with corresponding big agendas. We are not the largest website around, but we believe we play an important role in defending truth and objectivity.

If everyone seeing this today donates $5, we will meet our goal for 2019.

Fighting pseudoscience isn't free.
We are 100% user-supported! Help and donate $5, $20 or whatever you can today with PayPal Logo.png!

Donations so far: $2900Goal: $6000

File:ExpIPi.gif

From RationalWiki
Jump to: navigation, search
ExpIPi.gif(360 × 323 pixels, file size: 11 KB, MIME type: image/gif, looped, 9 frames, 4.5 s)

This file is from Wikimedia Commons and may be used by other projects. The description on its file description page there is shown below.

Summary[edit]

Description

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).

Date
Source Own work
Icon Mathematical Plot.svg
This mathematical image was created with Mathematica.
Author Sbyrnes321

Licensing[edit]

Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

(* 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 ]

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current19:46, 25 March 2010Thumbnail for version as of 19:46, 25 March 2010360 × 323 (11 KB)Aiyizooptimized animation, converted to 16 color mode

There are no pages that embed this file. There may be pages that link to this file without embedding it.