(* 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[     48381,       1165]
NotebookOptionsPosition[     46771,       1108]
NotebookOutlinePosition[     47155,       1125]
CellTagsIndexPosition[     47112,       1122]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RacinesCarrees", "[", "z_", "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"mod", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]",
       
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Re", "[", "z", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"b", "=", 
        RowBox[{"Im", "[", "z", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"mod", "=", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "+", 
          RowBox[{"b", "^", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"b", ">", "0"}], ",", " ", 
         RowBox[{
          RowBox[{"Return", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"+", 
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "+", "mod"}], ")"}], "/", "2"}], "]"}]}], "+", 
              
              RowBox[{
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "a"}], "+", "mod"}], ")"}], "/", "2"}], "]"}],
                "\[ImaginaryI]"}]}], ",", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "+", "mod"}], ")"}], "/", "2"}], "]"}]}], "-", 
              
              RowBox[{
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "a"}], "+", "mod"}], ")"}], "/", "2"}], "]"}],
                "\[ImaginaryI]"}]}]}], "}"}], "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"b", "<", "0"}], ",", " ", 
         RowBox[{
          RowBox[{"Return", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"+", 
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "+", "mod"}], ")"}], "/", "2"}], "]"}]}], "-", 
              
              RowBox[{
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "a"}], "+", "mod"}], ")"}], "/", "2"}], "]"}],
                "\[ImaginaryI]"}]}], ",", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "+", "mod"}], ")"}], "/", "2"}], "]"}]}], "+", 
              
              RowBox[{
               RowBox[{"Sqrt", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "a"}], "+", "mod"}], ")"}], "/", "2"}], "]"}],
                "\[ImaginaryI]"}]}]}], "}"}], "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"b", "\[Equal]", "0"}], ",", 
         RowBox[{"Return", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sqrt", "[", "a", "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Sqrt", "[", "a", "]"}]}]}], "}"}], "]"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ResoudreC", "[", 
     RowBox[{"eq_", ",", "z_"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "membre1", ",", "a", ",", "b", ",", "c", ",", "z1", ",", "z2"}], "}"}],
       ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"membre1", "=", 
        RowBox[{
         RowBox[{"eq", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", 
         RowBox[{"eq", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Exponent", "[", 
           RowBox[{"membre1", ",", "z"}], "]"}], "\[Equal]", "2"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"a", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"membre1", ",", "z", ",", " ", "2"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"b", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"membre1", ",", "z", ",", " ", "1"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"c", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"membre1", ",", "z", ",", " ", "0"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Return", "[", 
           RowBox[{"ResolutionC", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}], "]"}]}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Exponent", "[", 
           RowBox[{"membre1", ",", "z"}], "]"}], "\[Equal]", "4"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"a", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"membre1", ",", "z", ",", "4"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"b", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"membre1", ",", "z", ",", " ", "2"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"c", "=", 
           RowBox[{"Coefficient", "[", 
            RowBox[{"membre1", ",", "z", ",", " ", "0"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"z1", ",", "z2"}], "}"}], "=", 
           RowBox[{"ResolutionC", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Return", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"RacinesCarrees", "[", "z1", "]"}], ",", 
             RowBox[{"RacinesCarrees", "[", "z2", "]"}]}], "}"}], "]"}]}]}], 
        "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ResolutionC", "[", 
    RowBox[{"{", 
     RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Rho]", ",", "z1", ",", "z2"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]", "=", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "-", 
        RowBox[{"4", "a", " ", "c"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"z1", ",", "z2"}], "}"}], "=", 
       RowBox[{"RacinesCarrees", "[", "\[Rho]", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "b"}], "+", "z1"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", "a"}], ")"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "b"}], "+", "z2"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", "a"}], ")"}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.412256166057807*^9, 3.412256192771377*^9}, {
   3.412256225562232*^9, 3.4122564009339314`*^9}, {3.4122564523561773`*^9, 
   3.412256453278533*^9}, 3.412256493218011*^9, {3.412256546541519*^9, 
   3.412256627339981*^9}, 3.412256693917026*^9, {3.4122567707120953`*^9, 
   3.412256887420573*^9}, {3.4122569310964108`*^9, 3.412256973069923*^9}, 
   3.4122570110814667`*^9, {3.412257150491901*^9, 3.412257181843472*^9}, {
   3.412257236517692*^9, 3.412257237900115*^9}, 3.4122572844138117`*^9, {
   3.412257434218618*^9, 3.4122574498992558`*^9}, {3.412257495563506*^9, 
   3.412257500066511*^9}, {3.412257543131958*^9, 3.412257594229362*^9}, {
   3.412257704868456*^9, 3.412257727207605*^9}, {3.41225776720019*^9, 
   3.4122578650208807`*^9}, {3.412257931232339*^9, 3.412257934206058*^9}, 
   3.4122580075439873`*^9, {3.41225813723308*^9, 3.4122581374542837`*^9}, {
   3.4122591062782707`*^9, 3.4122591443615713`*^9}, {3.412259245302142*^9, 
   3.412259286102345*^9}, {3.412259359496842*^9, 3.4122594006742277`*^9}, {
   3.412259512976989*^9, 3.412259513551477*^9}, {3.4122595706688957`*^9, 
   3.412259593022876*^9}, {3.4122596476235437`*^9, 3.4122596937447443`*^9}, {
   3.412259750440661*^9, 3.4122597785045137`*^9}, {3.4122599342859364`*^9, 
   3.4122600060879717`*^9}, {3.4122600398477993`*^9, 
   3.4122601073826847`*^9}, {3.412260146354438*^9, 3.412260223653145*^9}, {
   3.412261159502431*^9, 3.41226116062169*^9}, {3.412740688294292*^9, 
   3.412740693228558*^9}, {3.412740753911792*^9, 3.4127407785528307`*^9}, {
   3.412740826802183*^9, 3.412740884546973*^9}},
 FontSize->12],

Cell[CellGroupData[{

Cell["Equations dans les complexes", "Subsection",
 CellChangeTimes->{{3.412255643099794*^9, 3.412255656992364*^9}, {
  3.412261186466954*^9, 3.41226119164552*^9}},
 FontSize->12],

Cell[CellGroupData[{

Cell["R\[EAcute]soudre dans \[DoubleStruckCapitalC]", "Subsubsection",
 CellChangeTimes->{{3.412255661083075*^9, 3.412255665389295*^9}},
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", 
       RowBox[{"z", "^", "2"}]}], "-", 
      RowBox[{"5", "z"}], "+", "7"}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"I", " ", 
       RowBox[{"z", "^", "2"}]}], "+", "3"}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "\[ImaginaryI]", " ", 
       RowBox[{"z", "^", "2"}]}], "+", 
      RowBox[{"3", "  ", "z"}]}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";", 
  RowBox[{
   RowBox[{"eq", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "^", "4"}], "-", 
     RowBox[{"z", "^", "2"}], "-", "6"}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";", 
  RowBox[{
   RowBox[{"eq", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "\[ImaginaryI]"}], ")"}], 
      RowBox[{"z", "^", "2"}]}], "-", "z", "+", 
     RowBox[{"3", "\[ImaginaryI]"}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";", 
  RowBox[{
   RowBox[{"eq", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], 
      RowBox[{"z", "^", "2"}]}], "-", "z", "+", "1"}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";", 
  RowBox[{
   RowBox[{"eq", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"2", 
      RowBox[{"z", "^", "2"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "z"}], "+", "1"}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";", 
  RowBox[{
   RowBox[{"eq", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "^", "2"}], "-", 
     RowBox[{"2", "z"}], "+", "1", "-", 
     RowBox[{"2", "\[ImaginaryI]"}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";", 
  RowBox[{
   RowBox[{"eq", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "^", "2"}], "-", " ", "z", "+", "\[ImaginaryI]"}], 
    "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"z", "^", "2"}], "-", 
      RowBox[{"4", "z"}], "-", 
      RowBox[{"3", "\[ImaginaryI]"}]}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"i", ",", "\"\<) \>\"", ",", 
     RowBox[{"eq", "[", "i", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.412255729147053*^9, 3.4122557791295033`*^9}, {
  3.41225586053094*^9, 3.41225593995471*^9}, {3.412255982415658*^9, 
  3.4122560034207993`*^9}, {3.4122560346869993`*^9, 3.4122560654619923`*^9}, {
  3.412257022701902*^9, 3.4122570232047586`*^9}, {3.41225720573738*^9, 
  3.4122572569045486`*^9}, {3.41225803825068*^9, 3.412258113019044*^9}, {
  3.412258144198412*^9, 3.412258153526969*^9}, {3.4122603389173517`*^9, 
  3.4122603873560753`*^9}, {3.412260446679804*^9, 3.412260452917963*^9}, {
  3.41226049454397*^9, 3.412260498734995*^9}, {3.412260578690166*^9, 
  3.412260583496702*^9}, {3.412260614945735*^9, 3.412260632930173*^9}, {
  3.412260703157168*^9, 3.412260715959774*^9}, {3.4122607468616*^9, 
  3.412260766820901*^9}, {3.412260875256778*^9, 3.412260953752232*^9}, {
  3.4122610039409237`*^9, 3.412261051035054*^9}},
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["z", "2"]}], "-", 
      RowBox[{"5", " ", "z"}], "+", "7"}], "\[LongEqual]", "0"}]}],
   SequenceForm[1, ") ", 7 - 5 $CellContext`z + 2 $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.412740897355459*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["z", "2"]}], "+", "3"}], "\[LongEqual]", "0"}]}],
   SequenceForm[2, ") ", 3 + Complex[0, 1] $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.4127408973584127`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["z", "2"]}], "+", 
      RowBox[{"3", " ", "z"}]}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   3, ") ", 3 $CellContext`z + Complex[0, 2] $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.4127408973626633`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["z", "4"], "-", 
      SuperscriptBox["z", "2"], "-", "6"}], "\[LongEqual]", "0"}]}],
   SequenceForm[4, ") ", -6 - $CellContext`z^2 + $CellContext`z^4 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.4127408973669167`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["z", "2"]}], "-", "z", "+", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   5, ") ", Complex[0, 3] - $CellContext`z + Complex[0, 2] $CellContext`z^2 == 
    0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.412740897371175*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
       SuperscriptBox["z", "2"]}], "-", "z", "+", "1"}], "\[LongEqual]", 
     "0"}]}],
   SequenceForm[
   6, ") ", 1 - $CellContext`z + Complex[1, 1] $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.4127408973753757`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["z", "2"]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "z"}], "+", "1"}], "\[LongEqual]", 
     "0"}]}],
   SequenceForm[
   7, ") ", 1 + Complex[0, -1] $CellContext`z + 2 $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.412740897379591*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["z", "2"], "-", 
      RowBox[{"2", " ", "z"}], "+", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}]}], "\[LongEqual]", 
     "0"}]}],
   SequenceForm[
   8, ") ", Complex[1, -2] - 2 $CellContext`z + $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.412740897383751*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["z", "2"], "-", "z", "+", "\[ImaginaryI]"}], 
     "\[LongEqual]", "0"}]}],
   SequenceForm[
   9, ") ", Complex[0, 1] - $CellContext`z + $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.412740897387878*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["z", "2"], "-", 
      RowBox[{"4", " ", "z"}], "-", 
      RowBox[{"3", " ", "\[ImaginaryI]"}]}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   10, ") ", Complex[0, -3] - 4 $CellContext`z + $CellContext`z^2 == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.4122603794483624`*^9, 3.412260387644319*^9}, 
   3.412260453566038*^9, 3.412260584092053*^9, 3.412260633373391*^9, {
   3.412260710555153*^9, 3.4122607161725407`*^9}, {3.412260748510826*^9, 
   3.412260767426303*^9}, {3.412260887396545*^9, 3.412260953971869*^9}, {
   3.412261004557207*^9, 3.412261018792364*^9}, 3.412261051745328*^9, 
   3.4122611800962143`*^9, 3.412740347563251*^9, 3.4127405291432343`*^9, 
   3.412740783958012*^9, 3.412740897392042*^9},
 FontSize->12]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection",
 CellChangeTimes->{{3.4122612784217043`*^9, 3.412261279951655*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"i", ",", "\"\<) \>\"", ",", 
     RowBox[{"ResoudreC", "[", 
      RowBox[{
       RowBox[{"eq", "[", "i", "]"}], ",", "z"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.412255761498343*^9, 3.41225585569166*^9}, {
  3.4122559714991417`*^9, 3.412255971645105*^9}, {3.412256016286153*^9, 
  3.412256026133708*^9}, {3.412256979510107*^9, 3.412256980909027*^9}, {
  3.412260255756104*^9, 3.412260260778295*^9}, {3.412260303370912*^9, 
  3.412260304227088*^9}, {3.412260727800331*^9, 3.412260729301639*^9}, {
  3.412260863267385*^9, 3.412260864086522*^9}},
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox["1", "4"], " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["31"]}]}], ")"}]}], ",", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["31"]}]}], ")"}]}]}], "}"}]}],
   SequenceForm[
   1, ") ", {
    Rational[1, 4] (5 + Complex[0, 1] 31^Rational[1, 2]), 
     Rational[1, 4] (5 + Complex[0, -1] 31^Rational[1, 2])}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899976495*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], " ", 
       SqrtBox[
        FractionBox["3", "2"]]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
       SqrtBox[
        FractionBox["3", "2"]]}]}], "}"}]}],
   SequenceForm[
   2, ") ", {
    Complex[-1, -1] Rational[3, 2]^Rational[1, 2], Complex[1, 1] 
     Rational[3, 2]^Rational[1, 2]}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899978814*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      FractionBox[
       RowBox[{"3", " ", "\[ImaginaryI]"}], "2"]}], "}"}]}],
   SequenceForm[3, ") ", {0, 
     Complex[0, 
      Rational[3, 2]]}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899982304*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SqrtBox["3"], 
        RowBox[{"-", 
         SqrtBox["3"]}]},
       {
        RowBox[{"\[ImaginaryI]", " ", 
         SqrtBox["2"]}], 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         SqrtBox["2"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}],
   SequenceForm[
   4, ") ", {{3^Rational[1, 2], -3^Rational[1, 2]}, {
     Complex[0, 1] 2^Rational[1, 2], Complex[0, -1] 2^Rational[1, 2]}}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899984125*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"3", " ", "\[ImaginaryI]"}], "2"]}], ",", "\[ImaginaryI]"}], 
     "}"}]}],
   SequenceForm[5, ") ", {
     Complex[0, 
      Rational[-3, 2]], 
     Complex[0, 1]}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899986168*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], ",", 
      RowBox[{
       FractionBox["1", "2"], "+", 
       FractionBox["\[ImaginaryI]", "2"]}]}], "}"}]}],
   SequenceForm[6, ") ", {
     Complex[0, -1], 
     Complex[
      Rational[1, 2], 
      Rational[1, 2]]}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.41274089998778*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{"\[ImaginaryI]", ",", 
      RowBox[{"-", 
       FractionBox["\[ImaginaryI]", "2"]}]}], "}"}]}],
   SequenceForm[7, ") ", {
     Complex[0, 1], 
     Complex[0, 
      Rational[-1, 2]]}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.4127408999894247`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", "+", "\[ImaginaryI]"}], ",", 
      RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}],
   SequenceForm[8, ") ", {
     Complex[2, 1], 
     Complex[0, -1]}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.4127408999911327`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox[
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox["17"]}], ")"}]}]]}], "+", 
         SqrtBox[
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SqrtBox["17"]}], ")"}]}]]}], ")"}]}], ",", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox[
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SqrtBox["17"]}], ")"}]}]]}], "-", 
         SqrtBox[
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SqrtBox["17"]}], ")"}]}]]}], ")"}]}]}], "}"}]}],
   SequenceForm[
   9, ") ", {
    Rational[1, 2] (1 + 
      Complex[0, -1] (Rational[1, 2] (-1 + 17^Rational[1, 2]))^
        Rational[1, 2] + (Rational[1, 2] (1 + 17^Rational[1, 2]))^
       Rational[1, 2]), 
     Rational[1, 2] (1 + 
      Complex[0, 1] (Rational[1, 2] (-1 + 17^Rational[1, 2]))^
        Rational[1, 2] - (Rational[1, 2] (1 + 17^Rational[1, 2]))^
      Rational[1, 2])}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899992981*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "+", "\[ImaginaryI]"}], ")"}], " ", 
          SqrtBox["2"]}]}], ")"}]}], ",", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"4", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "+", "\[ImaginaryI]"}], ")"}], " ", 
          SqrtBox["2"]}]}], ")"}]}]}], "}"}]}],
   SequenceForm[
   10, ") ", {
    Rational[1, 2] (4 + Complex[3, 1] 2^Rational[1, 2]), 
     Rational[1, 2] (4 + Complex[-3, -1] 2^Rational[1, 2])}],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.412255843422332*^9, 3.412255857119487*^9}, {
   3.412255945274987*^9, 3.412256067213518*^9}, 3.412256981853147*^9, {
   3.4122570140989037`*^9, 3.4122570254931107`*^9}, {3.412257160093906*^9, 
   3.412257186294591*^9}, {3.412257220217554*^9, 3.41225725879219*^9}, 
   3.4122572905406933`*^9, 3.4122573934486637`*^9, 3.412257456400875*^9, {
   3.412257505607485*^9, 3.41225751049305*^9}, 3.412257546924645*^9, {
   3.4122575981449327`*^9, 3.412257601523971*^9}, 3.41225763367197*^9, {
   3.412257710083808*^9, 3.4122577523404408`*^9}, 3.412257869564383*^9, 
   3.41225793798588*^9, {3.412258016448412*^9, 3.412258115780589*^9}, 
   3.412258156574814*^9, 3.4122594058924637`*^9, 3.412259517750491*^9, 
   3.412259701874501*^9, 3.412259787619566*^9, {3.412260010253888*^9, 
   3.412260043489593*^9}, {3.412260080637094*^9, 3.412260084451819*^9}, {
   3.4122602005022573`*^9, 3.412260229420547*^9}, 3.412260261284389*^9, 
   3.4122603048885517`*^9, 3.412260342793489*^9, {3.4122603817017612`*^9, 
   3.412260389597611*^9}, 3.4122604545508432`*^9, 3.4122605852442417`*^9, 
   3.4122606342392406`*^9, {3.4122607114706783`*^9, 3.412260749815049*^9}, {
   3.41226086461277*^9, 3.412260955610866*^9}, {3.4122610058437243`*^9, 
   3.412261020330257*^9}, 3.412261052664468*^9, 3.412261180164282*^9, {
   3.412740524374093*^9, 3.4127405350950212`*^9}, 3.412740697940732*^9, {
   3.412740763332067*^9, 3.412740787399127*^9}, 3.4127408381693287`*^9, 
   3.412740899995512*^9},
 FontSize->12]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{983, 955},
WindowMargins->{{267, Automatic}, {Automatic, 1}},
ShowSelection->True,
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 9354, 238, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[9947, 263, 179, 3, 32, "Subsection"],
Cell[CellGroupData[{
Cell[10151, 270, 151, 2, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[10327, 276, 4206, 129, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[14558, 409, 896, 18, 25, "Print"],
Cell[15457, 429, 866, 17, 25, "Print"],
Cell[16326, 448, 922, 19, 25, "Print"],
Cell[17251, 469, 870, 17, 25, "Print"],
Cell[18124, 488, 961, 20, 25, "Print"],
Cell[19088, 510, 960, 21, 25, "Print"],
Cell[20051, 533, 931, 20, 25, "Print"],
Cell[20985, 555, 985, 22, 25, "Print"],
Cell[21973, 579, 871, 18, 25, "Print"],
Cell[22847, 599, 924, 19, 25, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23832, 625, 102, 1, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[23959, 630, 751, 17, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[24735, 651, 2221, 44, 40, "Print"],
Cell[26959, 697, 2163, 43, 46, "Print"],
Cell[29125, 742, 1860, 33, 40, "Print"],
Cell[30988, 777, 2543, 51, 48, "Print"],
Cell[33534, 830, 1921, 36, 40, "Print"],
Cell[35458, 868, 1958, 37, 40, "Print"],
Cell[37419, 907, 1888, 34, 39, "Print"],
Cell[39310, 943, 1869, 33, 23, "Print"],
Cell[41182, 978, 3188, 74, 49, "Print"],
Cell[44373, 1054, 2346, 48, 40, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)