(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      8376,        201]
NotebookOptionsPosition[      7366,        171]
NotebookOutlinePosition[      7701,        186]
CellTagsIndexPosition[      7658,        183]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Equally Spaced Points on a Circle", "Title",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.426015650800522*^9, 3.426015658866811*^9}, 
   3.463790576946272*^9},
 TextAlignment->Center],

Cell["Sean E. O'Connor", "Subtitle",
 CellMargins->{{7, Inherited}, {Inherited, Inherited}},
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.4637905769463778`*^9},
 TextAlignment->Center],

Cell[TextData[StyleBox["artificer!AT!seanerikoconnor!DOT!freeservers!DOT!com",\
 "Subsubtitle"]], "Subtitle",
 CellMargins->{{7, Inherited}, {Inherited, Inherited}},
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.463790576946433*^9},
 TextAlignment->Center],

Cell["Abstract", "Section",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.463790576946508*^9}],

Cell["Draw equally spaced points on a circle.", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.426015816100543*^9, 3.4260158228320417`*^9}, 
   3.4637905769465723`*^9},
 ParagraphIndent->0],

Cell[BoxData[
 RowBox[{"For", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"i", " ", "=", " ", "0"}], ";", " ", 
    RowBox[{"x", "=", 
     RowBox[{"{", "}"}]}]}], ",", "\[IndentingNewLine]", "       ", 
   RowBox[{"i", " ", "<", " ", "15"}], " ", ",", "\[IndentingNewLine]", 
   "       ", 
   RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", " ", "=", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "i", " ", "\[Pi]", " ", 
       RowBox[{"\[ImaginaryI]", "/", "15"}]}]]}], ";", "\[IndentingNewLine]", 
    " ", 
    RowBox[{"x", "=", 
     RowBox[{"Append", "[", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Re", "[", "p", "]"}], ",", 
         RowBox[{"Im", "[", "p", "]"}]}], "}"}]}], "]"}]}]}]}], 
  "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4260154818060713`*^9, 3.426015497567288*^9}, {
  3.42601555407592*^9, 3.426015559997239*^9}, {3.426015613425881*^9, 
  3.42601562610487*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"x", ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02", "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"500", ",", "500"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.4260154818066387`*^9, 3.42601557804213*^9, {3.463790572217226*^9, 
   3.46379057247781*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointSize[0.02], 
   PointBox[{{1., 0.}, {0.9135454576426009, 0.40673664307580015`}, {
    0.6691306063588582, 0.7431448254773942}, {0.30901699437494745`, 
    0.9510565162951535}, {-0.10452846326765346`, 0.9945218953682733}, {-0.5, 
    0.8660254037844386}, {-0.8090169943749475, 
    0.5877852522924731}, {-0.9781476007338057, 
    0.20791169081775931`}, {-0.9781476007338057, -0.20791169081775931`}, \
{-0.8090169943749475, -0.5877852522924731}, {-0.5, -0.8660254037844386}, \
{-0.10452846326765346`, -0.9945218953682733}, {
    0.30901699437494745`, -0.9510565162951535}, {
    0.6691306063588582, -0.7431448254773942}, {
    0.9135454576426009, -0.40673664307580015`}}]},
  AspectRatio->1,
  Axes->True,
  ImageSize->{500, 500},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.4260154818227167`*^9, 3.426015507758452*^9}, {
   3.426015566792918*^9, 3.426015579003935*^9}, 3.42601563217391*^9, 
   3.4260158420156107`*^9, {3.463790573667287*^9, 3.463790577790373*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztHN+LG0V470dytNcqgopKlfoHmBeVVkRt8Ecp0gZUig95OUpDLf2xtteH
ICoGfFjwJeBDq0gECbReEe/FYOUoHIJ5yUushNKzPXvd0ouwyvpjK/vwOTM7
s51cZnZ2s4ndOzeQ2ex8M9/M93My3347e2dmDx08OjP71oGZ7btPzOiH3jpw
cvsrx0+gqokxTRv7E3+3a5PoN2haT4E/f+FC/vsfcpkA1hzf3R4RaJmCbPs2
LF+z8FW7h9YBuGB1LVSClpGjuEouU7Cy8jucmv0Gdj1/Bl547gy54ntUr02S
NlsA7A4YBcSKggHNZZvguTK3D7RddXCsFuh5Hep1Awr6HDgAk/JRf6YgPOre
Vz/HI6JRcDlB7nE9IwO0abCbBuSNFvgfx4JV6w9olDQoNbqkarGcA71haiGG
xYRhIvGA46TcjMqP4YnH98C2R/fAzh37oVwug17SYX7JI9RuoSlUmt6Msqjo
QkXLw4LlDdGq5kCrNAMGX+KERblMad4Ez+404Jkd6Iuuly9fA9M0wXKAH1jz
R3ZakEcjN715gbVYwXAycgYP/HfveFgxGLFTpMySOv7jtKq9xFlg5O4Q167m
ByAuS4fE97iefVwkvFa9hATKEYUUpl7AwjRJGyxYJMyIsszQEXEd/3G7Hajp
eShUm1Q9MpivnsLOeQqLuBlGdVQau5m2wwRZls0Gi2N+98u7ixzAg/LmIley
W4DiK3nzl0NM+Ly8+0sh2filGkW/4Cd4wWvn5Che5Gju1dYJXlvDoOi3rgne
urSzI53FEHgxBInE1ImIGjiqxTQGiEBioflAwINT8ubvh+D4SXn39yhIJfO3
1ShUmqfLUbzL0Ryk/yFQqKzw+EhnMQReDEEiMXUiogYmyfwSAorvBRIM+ozW
8erxprz5p6QMVsb98u6f0DqVObyhRqEyytflKM5wNAe5hhAoVA7qtZHOYgi8
GIJEYupERA1MvUAKSjJoBwXx6nxR3vxpcgk2ngV596coSGW+36lRqJzIBVzy
VvAkR2mQA7sgH5uhULnRb9UoYswiEgdGJoeYmhBR7xJiLckHdSnItS2wHJfc
sXiSY9tgu17zgGDQKrlMQ6umQ6lah2qpCPWOFwZkcdbzJQ20XAmMShmM+U4Q
ulvkshXAnEd3OpAZ2ouQ08pAomwkiOqgGdtAY43QKBWgtuQERcKuUxCOcDWM
MujlsjaOw6VIJ3HAtH72HciVF71OJFaZw7FKf6ZtowDlRcvHIhlmhYKsrknC
oeiLhsFlFr7/KA85PxzcBSNXgEXbDzh323OISA3qwYR4/MmS4HKuvLB2wuNU
hE5nDlWRBwBQPN0kZPBxVobGXaoTNhPWdjHLCZsZGhxvLBUq0MYxeReUajAJ
baYGxQJSA3vSry6RXvhba9sBBDKVdJBKMvXL+nx3waFqGiCFhBjXhgN1aB3v
hR+TN/+JlME+f5u8+yVap1p1HlGjUK19D8tR/MjRHLQCh0Ch+h/w0EhnMQgv
CIYhyCGmJkTUu4RYSwpKAijd2a5fEMsK4O3+lrz5FnIJ9jI35d2nKUjl526o
Uah87IocBXsUq/L0IVCo1pvrI51FJF7wVjoEOcTUhIh6lxBrSUFJBaVrkAw0
RUGu6+30XMf1t9x8TOIorUOV0PVyjPxNsuvYyEK9dqKHlXrIvuy5IZ+DluWn
OQ2dhkFQG3NNIFky7hUo4h3tFWdt/EM7QvpsAatVg0KpCvVqCfR6xyPzF7zr
3gcL5/CuOAcVowJlYx7jFD30PT4YKjaDiBlwmV7RoO4kVNF0QPPCAlNgmavg
iAM02mHSZisqlkFHRMyTBhZU0OQaJma1A6umRcRh0wiOOa9Dsd4RPvE+FgPf
USq3KJl4lHy0BDpLDRIbwkl13lcH3Wh4kkczqOZJAIdlg+GUNkEI6SCdw1Kj
CiW9fAebXgKj/gVqZng8RHirOQ0qTcs3AadtMJSUDyLeICW1FkR4RGiO0Dqa
oEfuxhkacXog48gE4VtvWCsDZpf9o/A5ojGW4BQ8QcjrIJuX1e2Lkl29+CEa
q0qZDNCs5DEpvsFabSjjmFagtmQJeSHRMN8i5Ig4bVFgImtJl8TnDjPEdhNV
VXyJnfYk5o2L0DsdKOe9cJlWPI2bBZI7ADpGNs2iXKMIwlRKSrbnFDErkaM0
W1DSCpg0RrkkpOhT7naIz/Ts2PRs2nT9iCOafa1YhLm2CY7rihz6sYEwMXoj
JHL20etAZ6GGGE3ovRPa7Il4HqHVdps6a4M460mumgVCi7W23N2HxcAMmk8X
ZX7a/wN784e+tFFK3L1MDbhwq7/aotXRoqsj03XHcfyJsnbC1TZUX9lf9K/h
0qUbtJ/w/8MqrVNtEjJqFKoNyqQcBdsUqLZJIVCoNmueqnr0EG/8Gy7GvJvN
AsSiBNwH0rr/pO4+UmZ41SJfjayiUhVLxZisOiZGzsn4YhyXOxuRGGcFdaJE
RVHdCVL2ukoM56MZU6MZmvXFjgzX40jIJm+ohOwgU9BdBaWhjRSUxutD/AXs
C3Ovwyj9yOSQxutT0OCgdA1KQYGg5OctEQxptlI/E2PwIs1b2uCgXylIlbys
TDaNlrwcgM4LKQ6WvByQz+qhlT5hEuUoj6uxSR7OiPKRydz49GGGI1oWspJz
UfORlZINm48cwHymZap85ACOJ8Rekg/a2K8XiVGkLxoNKBH+b3/6elEKWh+g
JG1W09fj09fjY0rk//F6/Ib2AncBlB4clB4cFFMiMXUiEQcHrRMvkB62lx62
F1Mioztsb1kACjhMMubRlWEP1GTPRPl3CQY6FrRXSF6MKXJGf0B0S34Eaq+G
DXKmbYhhVbbBgmoRstWHRmykjPCAUcMKl6GIkJDdF5eNdkRxpGToAArDGJX/
Vk/IU20DhhOZPEtj5k+wDTC4u72kUhC5ERzHrY39Cz7nZLc=\
\>"]]
}, Open  ]]
},
WindowSize->{729, 872},
WindowMargins->{{86, Automatic}, {87, Automatic}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 219, 4, 76, "Title",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[812, 29, 213, 4, 46, "Subtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1028, 35, 284, 5, 38, "Subtitle",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1315, 42, 122, 2, 67, "Section",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1440, 46, 225, 4, 26, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1668, 52, 1041, 27, 102, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[2712, 81, 486, 12, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[3201, 95, 4149, 73, 515, 848, 18, "CachedBoxData", "BoxData", "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]]
}
]
*)

(* End of internal cache information *)