(* 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[      7167,        219]
NotebookOptionsPosition[      6520,        195]
NotebookOutlinePosition[      6958,        212]
CellTagsIndexPosition[      6915,        209]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Roots of Unity", "Title",
 CellChangeTimes->{{3.4365494652440166`*^9, 3.43654946817677*^9}},
 TextAlignment->Center],

Cell["\<\
by Ruth Dover
Illinois Mathematics and Science Academy\
\>", "Subsubtitle",
 CellChangeTimes->{{3.692575169204879*^9, 3.692575182040756*^9}}],

Cell[TextData[{
 "For curiosity, see solutions of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "n"], " ", "=", " ", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " for ",
 StyleBox["n",
  FontSlant->"Italic"],
 " = 6 in a not-so-useful form."
}], "Text",
 CellChangeTimes->{{3.422659967765683*^9, 3.422660003362645*^9}, {
  3.436549548059153*^9, 3.4365495661756887`*^9}, {3.6925751939889727`*^9, 
  3.692575229542083*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "n"], "-", "1"}], "\[Equal]", "0"}], ",", " ", "x"}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.4223953275506144`*^9, 3.422395354431872*^9}, {
  3.4223959924669037`*^9, 3.422395999202437*^9}, {3.4223960353143063`*^9, 
  3.422396037610383*^9}}],

Cell["See the complex form of these solutions.", "Text",
 CellChangeTimes->{{3.422659981170589*^9, 3.422659990296548*^9}, 
   3.6925752460447197`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "n"], "-", "1"}], "\[Equal]", "0"}], ",", " ", 
    "x"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4223953275506144`*^9, 3.422395354431872*^9}, {
  3.4223959924669037`*^9, 3.422396029473999*^9}, {3.436549578034762*^9, 
  3.436549581889165*^9}}],

Cell[TextData[{
 "Here are solutions and the graphs of these values for the roots of unity \
from ",
 StyleBox["n",
  FontSlant->"Italic"],
 " = 2 through ",
 StyleBox["n",
  FontSlant->"Italic"],
 " = 10.  The last couple are probably most useful only for seeing patterns."
}], "Text",
 CellChangeTimes->{{3.4365496117704067`*^9, 3.436549700635643*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"solns", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["x", "n"], "-", "1"}], "\[Equal]", "0"}], ",", " ", 
        "x"}], "]"}]}], ";", 
     RowBox[{"myxvals", "=", 
      RowBox[{"x", "/.", "solns"}]}], ";", 
     RowBox[{"myarrows", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Re", "[", 
              RowBox[{"myxvals", "[", 
               RowBox[{"[", "k", "]"}], "]"}], "]"}], ",", " ", 
             RowBox[{"Im", "[", 
              RowBox[{"myxvals", "[", 
               RowBox[{"[", "k", "]"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}],
         ",", " ", 
        RowBox[{"{", 
         RowBox[{"k", ",", " ", "1", ",", " ", "n"}], "}"}]}], "]"}]}], ";", 
     RowBox[{"mytext", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"ComplexExpand", "[", 
           RowBox[{"x", "/.", 
            RowBox[{"solns", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Re", "[", 
              RowBox[{"myxvals", "[", 
               RowBox[{"[", "k", "]"}], "]"}], "]"}], "+", ".1"}], ",", " ", 
            RowBox[{
             RowBox[{"Im", "[", 
              RowBox[{"myxvals", "[", 
               RowBox[{"[", "k", "]"}], "]"}], "]"}], "-", ".1"}]}], "}"}], 
          ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", " ", "0"}], "}"}]}], "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"k", ",", " ", "1", ",", " ", "n"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", " ", 
     RowBox[{"Show", "[", 
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Red", ",", "myarrows"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"PointSize", "[", "Large", "]"}], ",", "Blue", ",", " ", 
            RowBox[{"Point", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}]}], " ", "}"}], 
        ",", " ", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"StringForm", "[", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(x\), \(``\)]\)-1=0\>\"", ",", " ", 
             "n"}], "]"}], ",", " ", 
           RowBox[{"FontSize", "\[Rule]", "24"}], ",", " ", 
           RowBox[{"FontWeight", "\[Rule]", "Bold"}]}], "]"}]}], ",", 
        RowBox[{"Epilog", "\[Rule]", "mytext"}], ",", " ", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1.1"}], ",", " ", "1.3"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1.5"}], ",", " ", "1.1"}], "}"}]}], "}"}]}]}], 
       "]"}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", "2", ",", "10", ",", "1", ",", " ", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.422396119026059*^9, 3.4223961313199244`*^9}, {
  3.422396162731763*^9, 3.4223962226066437`*^9}, {3.4226593011586123`*^9, 
  3.4226593629271603`*^9}, {3.42265944565843*^9, 3.4226594797424107`*^9}, {
  3.4226595498875523`*^9, 3.422659589537099*^9}, {3.436549589265401*^9, 
  3.436549590585308*^9}}]
}, Open  ]]
},
WindowSize->{733, 729},
WindowMargins->{{595, Automatic}, {Automatic, 74}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 122, 2, 92, "Title"],
Cell[692, 26, 151, 4, 49, "Subsubtitle"],
Cell[846, 32, 457, 14, 31, "Text"],
Cell[1306, 48, 412, 11, 56, "Input"],
Cell[1721, 61, 150, 2, 30, "Text"],
Cell[1874, 65, 456, 12, 56, "Input"],
Cell[2333, 79, 354, 10, 49, "Text"],
Cell[2690, 91, 3814, 101, 274, "Input"]
}, Open  ]]
}
]
*)