
No higher resolution available.
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]
Licensing[edit]
| Public domainPublic domainfalsefalse |
 |
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.
Public domainPublic domainfalsefalse
|
(* 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/Time | Thumbnail | Dimensions | User | Comment |
| current | 19:46, 25 March 2010 |  | 360 × 323 (11 KB) | Aiyizo | optimized animation, converted to 16 color mode |
Pages using this file
There are no pages that embed this file. There may be pages that link to this file without embedding it.