(* 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[     47610,       1251]
NotebookOptionsPosition[     45719,       1189]
NotebookOutlinePosition[     46112,       1206]
CellTagsIndexPosition[     46069,       1203]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Equations trigonom\[EAcute]triques simples\
\>", "Subsubsection",
 CellChangeTimes->{{3.414160682920301*^9, 3.4141606898562098`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"<<", "trigo.m"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", 
       RowBox[{"Sin", "[", 
        RowBox[{"2", "x"}], "]"}]}], "+", "1"}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Sqrt]", "2"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "x"}], "]"}]}], "+", "1"}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"2", "x"}], "]"}], "+", 
      RowBox[{"\[Sqrt]", "3"}]}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", 
       RowBox[{"Cos", "[", 
        RowBox[{"x", "+", 
         RowBox[{"\[Pi]", "/", "4"}]}], "]"}]}], "+", 
      RowBox[{"\[Sqrt]", "3"}]}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{"HoldForm", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"\[Sqrt]", "3"}]}], " ", 
        RowBox[{"Tan", "[", 
         RowBox[{
          RowBox[{"\[Pi]", "/", "3"}], "-", 
          RowBox[{"2", "x"}]}], "]"}]}], "-", "1"}], "\[Equal]", "0"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"x", "+", 
        RowBox[{"\[Pi]", "/", "4"}]}], "]"}], "+", "1"}], "\[Equal]", "0"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"\[Pi]", "/", "3"}], "-", 
         RowBox[{"3", "x"}]}], "]"}]}], "+", "1"}], "\[Equal]", "0"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"Cot", "[", 
      RowBox[{"2", "x"}], "]"}], "\[Equal]", 
     RowBox[{"\[Sqrt]", "3"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"\[Pi]", "/", "6"}], "-", 
       RowBox[{"3", "x"}]}], "]"}], "\[Equal]", 
     RowBox[{"1", "/", "2"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "++"}], ";", 
   RowBox[{
    RowBox[{"eq", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"x", "+", 
       RowBox[{"\[Pi]", "/", "6"}]}], "]"}], "\[Equal]", "0"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"i", ",", "\"\<) \>\"", ",", 
     RowBox[{"eq", "[", "i", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.4141607006015377`*^9, 3.4141607571298923`*^9}, {
  3.4141607926596537`*^9, 3.4141609927767067`*^9}, {3.414161042057436*^9, 
  3.414161098141696*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"sin", "(", 
        RowBox[{"2", " ", "x"}], ")"}]}], "+", "1"}], "\[LongEqual]", "0"}]}],
   
   SequenceForm[1, ") ", 1 + 2 Sin[2 $CellContext`x] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115683597*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SqrtBox["2"], " ", 
       RowBox[{"cos", "(", 
        RowBox[{"3", " ", "x"}], ")"}]}], "+", "1"}], "\[LongEqual]", "0"}]}],
   
   SequenceForm[2, ") ", 1 + 2^Rational[1, 2] Cos[3 $CellContext`x] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.4141621156861963`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{"tg", "(", 
        RowBox[{"2", " ", "x"}], ")"}],
       TraditionalForm], "+", 
      SqrtBox["3"]}], "\[LongEqual]", "0"}]}],
   SequenceForm[3, ") ", 3^Rational[1, 2] + Tan[2 $CellContext`x] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115688818*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"cos", "(", 
        RowBox[{"x", "+", 
         FractionBox["\[Pi]", "4"]}], ")"}]}], "+", 
      SqrtBox["3"]}], "\[LongEqual]", "0"}]}],
   SequenceForm[
   4, ") ", 3^Rational[1, 2] + 2 Cos[Rational[1, 4] Pi + $CellContext`x] == 
    0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115691527*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    TagBox[
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SqrtBox["3"]}], " ", 
        FormBox[
         RowBox[{"tg", "(", 
          RowBox[{
           FractionBox["\[Pi]", "3"], "-", 
           RowBox[{"2", " ", "x"}]}], ")"}],
         TraditionalForm]}], "-", "1"}], "\[LongEqual]", "0"}],
     HoldForm]}],
   SequenceForm[5, ") ", 
    HoldForm[(-Sqrt[3]) Tan[Pi/3 - 2 $CellContext`x] - 1 == 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115694368*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"sin", "(", 
       RowBox[{"x", "+", 
        FractionBox["\[Pi]", "4"]}], ")"}], "+", "1"}], "\[LongEqual]", 
     "0"}]}],
   SequenceForm[6, ") ", 1 + Sin[Rational[1, 4] Pi + $CellContext`x] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115697051*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"sin", "(", 
        RowBox[{
         RowBox[{"3", " ", "x"}], "+", 
         FractionBox["\[Pi]", "6"]}], ")"}]}], "+", "1"}], "\[LongEqual]", 
     "0"}]}],
   SequenceForm[
   7, ") ", 1 + 2 Sin[Rational[1, 6] Pi + 3 $CellContext`x] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.41416211569981*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     FormBox[
      RowBox[{"cotg", "(", 
       RowBox[{"2", " ", "x"}], ")"}],
      TraditionalForm], "\[LongEqual]", 
     SqrtBox["3"]}]}],
   SequenceForm[8, ") ", Cot[2 $CellContext`x] == 3^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115702573*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"sin", "(", 
      RowBox[{
       FractionBox["\[Pi]", "6"], "-", 
       RowBox[{"3", " ", "x"}]}], ")"}], "\[LongEqual]", 
     FractionBox["1", "2"]}]}],
   SequenceForm[
   9, ") ", Sin[Rational[1, 6] Pi - 3 $CellContext`x] == Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.414162115705331*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"cos", "(", 
      RowBox[{"x", "+", 
       FractionBox["\[Pi]", "6"]}], ")"}], "\[LongEqual]", "0"}]}],
   SequenceForm[10, ") ", Cos[Rational[1, 6] Pi + $CellContext`x] == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414160855388814*^9, 3.414160909228825*^9}, {
   3.414160940325629*^9, 3.4141609931014147`*^9}, {3.414161053069459*^9, 
   3.4141610996054983`*^9}, 3.414161342650593*^9, 3.414161766572748*^9, 
   3.414161837517058*^9, 3.4141621157080708`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"sol", "[", "i", "]"}], "=", 
     RowBox[{"Ensemble", "[", 
      RowBox[{
       RowBox[{"ReleaseHold", "[", " ", 
        RowBox[{"eq", "[", "i", "]"}], "]"}], ",", "x"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"i", ",", "\"\<) \>\"", ",", 
      RowBox[{"sol", "[", "i", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"CercleTrigo", "[", 
      RowBox[{"Cercle", "[", 
       RowBox[{"sol", "[", "i", "]"}], "]"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.4141611156113567`*^9, 3.414161170059573*^9}, {
  3.41416120538094*^9, 3.4141612568367977`*^9}, {3.414161389620654*^9, 
  3.414161403656054*^9}, {3.414161452193389*^9, 3.414161485121965*^9}, {
  3.414161545558481*^9, 3.414161547355384*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"k", " ", "\[Pi]"}], "-", 
           FractionBox["\[Pi]", "12"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"\[Pi]", " ", "k"}], "+", 
           FractionBox[
            RowBox[{"7", " ", "\[Pi]"}], "12"]}]}], "\<\"(2)\"\>"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[1, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == Rational[-1, 12] Pi + Pi C[1], $CellContext`x == 
       Rational[7, 12] Pi + Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118380754*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       RowBox[{"-", 
        FractionBox["\[Pi]", 
         "12"]}], {1.0659258262890683`, -0.3588190451025207}], InsetBox[
       FractionBox[
        RowBox[{"11", " ", "\[Pi]"}], 
        "12"], {-1.0659258262890683`, 0.3588190451025207}]}, {InsetBox[
       FractionBox[
        RowBox[{"7", " ", "\[Pi]"}], 
        "12"], {-0.3588190451025207, 1.0659258262890683`}], InsetBox[
       FractionBox[
        RowBox[{"19", " ", "\[Pi]"}], 
        "12"], {0.3588190451025207, -1.0659258262890683`}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
          Rational[1, 2] 
          2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}, {-0.9659258262890682, 
         0.2588190451025207}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
          Rational[-1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}, {
         0.9659258262890682, -0.2588190451025207}]]}}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
          Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {
         0.2588190451025207, -0.9659258262890682}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
          Rational[1, 2] 
          2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {-0.2588190451025207, 
         0.9659258262890682}]]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118384248*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           FractionBox[
            RowBox[{"2", " ", "k", " ", "\[Pi]"}], "3"], "-", 
           FractionBox["\[Pi]", "4"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           FractionBox[
            RowBox[{"2", " ", "\[Pi]", " ", "k"}], "3"], "+", 
           FractionBox["\[Pi]", "4"]}]}], "\<\"(2)\"\>"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[2, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == 
       Rational[-1, 4] Pi + Rational[2, 3] Pi C[1], $CellContext`x == 
       Rational[1, 4] Pi + Rational[2, 3] Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.41416211843821*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       RowBox[{"-", 
        FractionBox["\[Pi]", 
         "4"]}], {0.8071067811865474, -0.8071067811865474}], InsetBox[
       FractionBox[
        RowBox[{"5", " ", "\[Pi]"}], 
        "12"], {0.3588190451025207, 1.0659258262890683`}], InsetBox[
       FractionBox[
        RowBox[{"13", " ", "\[Pi]"}], 
        "12"], {-1.0659258262890683`, -0.3588190451025207}]}, {InsetBox[
       FractionBox["\[Pi]", "4"], {0.8071067811865474, 0.8071067811865474}], 
      InsetBox[
       FractionBox[
        RowBox[{"11", " ", "\[Pi]"}], 
        "12"], {-1.0659258262890683`, 0.3588190451025207}], InsetBox[
       FractionBox[
        RowBox[{"19", " ", "\[Pi]"}], 
        "12"], {0.3588190451025207, -1.0659258262890683`}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
          Rational[1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {
         0.2588190451025207, 0.9659258262890682}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
          Rational[-1, 2] 
          2^Rational[-1, 2] (-1 + 
           3^Rational[
             1, 2])}, {-0.9659258262890682, -0.2588190451025207}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{2^Rational[-1, 2], -2^Rational[-1, 2]}, {
         0.7071067811865475, -0.7071067811865475}]]}}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
          Rational[1, 2] 
          2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}, {-0.9659258262890682, 
         0.2588190451025207}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
          Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {
         0.2588190451025207, -0.9659258262890682}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{2^Rational[-1, 2], 2^Rational[-1, 2]}, {0.7071067811865475, 
         0.7071067811865475}]]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.4141621184587297`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"x", "\[LongEqual]", 
      RowBox[{
       FractionBox[
        RowBox[{"k", " ", "\[Pi]"}], "2"], "-", 
       FractionBox["\[Pi]", "6"]}]}],
     TraditionalForm]}],
   SequenceForm[3, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], $CellContext`x == 
      Rational[-1, 6] Pi + Rational[1, 2] Pi C[1]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118504842*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       RowBox[{"-", 
        FractionBox["\[Pi]", "6"]}], {0.9660254037844386, -0.6}], InsetBox[
       FractionBox["\[Pi]", "3"], {0.6, 0.9660254037844386}], InsetBox[
       FractionBox[
        RowBox[{"5", " ", "\[Pi]"}], "6"], {-0.9660254037844386, 0.6}], 
      InsetBox[
       FractionBox[
        RowBox[{"4", " ", "\[Pi]"}], "3"], {-0.6, -0.9660254037844386}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, {0.5, 
         0.8660254037844386}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 3^Rational[1, 2], Rational[
          1, 2]}, {-0.8660254037844386, 0.5}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2], Rational[-1, 2] 
          3^Rational[1, 2]}, {-0.5, -0.8660254037844386}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {
         0.8660254037844386, -0.5}]]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.4141621185249023`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"2", " ", "k", " ", "\[Pi]"}], "-", 
           FractionBox[
            RowBox[{"13", " ", "\[Pi]"}], "12"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"2", " ", "\[Pi]", " ", "k"}], "+", 
           FractionBox[
            RowBox[{"7", " ", "\[Pi]"}], "12"]}]}], "\<\"(2)\"\>"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[4, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == Rational[-13, 12] Pi + 2 Pi C[1], $CellContext`x == 
       Rational[7, 12] Pi + 2 Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118566786*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {InsetBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"13", " ", "\[Pi]"}], 
        "12"]}], {-1.0659258262890683`, 0.3588190451025207}], InsetBox[
      FractionBox[
       RowBox[{"7", " ", "\[Pi]"}], 
       "12"], {-0.3588190451025207, 1.0659258262890683`}], 
     {RGBColor[0, 0, 1], PointSize[Large], 
      PointBox[NCache[{
        Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
         Rational[1, 2] 
         2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}, {-0.9659258262890682, 
        0.2588190451025207}]]}, 
     {RGBColor[0, 0, 1], PointSize[Large], 
      PointBox[NCache[{
        Rational[-1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
         Rational[1, 2] 
         2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {-0.2588190451025207, 
        0.9659258262890682}]]}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118591237*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"x", "\[LongEqual]", 
      RowBox[{
       FractionBox[
        RowBox[{"k", " ", "\[Pi]"}], "2"], "-", 
       FractionBox["\[Pi]", "4"]}]}],
     TraditionalForm]}],
   SequenceForm[5, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], $CellContext`x == 
      Rational[-1, 4] Pi + Rational[1, 2] Pi C[1]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118633013*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       RowBox[{"-", 
        FractionBox["\[Pi]", 
         "4"]}], {0.8071067811865474, -0.8071067811865474}], InsetBox[
       FractionBox["\[Pi]", "4"], {0.8071067811865474, 0.8071067811865474}], 
      InsetBox[
       FractionBox[
        RowBox[{"3", " ", "\[Pi]"}], 
        "4"], {-0.8071067811865474, 0.8071067811865474}], InsetBox[
       FractionBox[
        RowBox[{"5", " ", "\[Pi]"}], 
        "4"], {-0.8071067811865474, -0.8071067811865474}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{2^Rational[-1, 2], 2^Rational[-1, 2]}, {0.7071067811865475, 
         0.7071067811865475}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{-2^Rational[-1, 2], 2^Rational[-1, 2]}, {-0.7071067811865475, 
         0.7071067811865475}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{-2^Rational[-1, 2], -2^
           Rational[-1, 2]}, {-0.7071067811865475, -0.7071067811865475}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{2^Rational[-1, 2], -2^Rational[-1, 2]}, {
         0.7071067811865475, -0.7071067811865475}]]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118658242*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"2", " ", "k", " ", "\[Pi]"}], "-", 
           FractionBox[
            RowBox[{"3", " ", "\[Pi]"}], "4"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"2", " ", "\[Pi]", " ", "k"}], "+", 
           FractionBox[
            RowBox[{"5", " ", "\[Pi]"}], "4"]}]}], "\"\<(2)\>\""}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[6, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == Rational[-3, 4] Pi + 2 Pi C[1], $CellContext`x == 
       Rational[5, 4] Pi + 2 Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118699748*^9, {3.414162617531518*^9, 
   3.4141626220955563`*^9}}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {InsetBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"3", " ", "\[Pi]"}], 
        "4"]}], {-0.8071067811865474, -0.8071067811865474}], 
     {RGBColor[0, 0, 1], PointSize[Large], 
      PointBox[NCache[{-2^Rational[-1, 2], -2^
          Rational[-1, 2]}, {-0.7071067811865475, -0.7071067811865475}]]}, 
     {RGBColor[0, 0, 1], PointSize[Large], 
      PointBox[NCache[{-2^Rational[-1, 2], -2^
          Rational[-1, 2]}, {-0.7071067811865475, -0.7071067811865475}]]}}},
   Axes->True], TraditionalForm]], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118724167*^9, {3.4141626026503487`*^9, 
   3.414162605071156*^9}}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           FractionBox[
            RowBox[{"2", " ", "k", " ", "\[Pi]"}], "3"], "-", 
           FractionBox["\[Pi]", "9"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           FractionBox[
            RowBox[{"2", " ", "\[Pi]", " ", "k"}], "3"], "+", 
           FractionBox["\[Pi]", "3"]}]}], "\<\"(2)\"\>"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[7, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == 
       Rational[-1, 9] Pi + Rational[2, 3] Pi C[1], $CellContext`x == 
       Rational[1, 3] Pi + Rational[2, 3] Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.41416211876716*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       RowBox[{"-", 
        FractionBox["\[Pi]", 
         "9"]}], {1.0396926207859085`, -0.44202014332566875`}], InsetBox[
       FractionBox[
        RowBox[{"5", " ", "\[Pi]"}], 
        "9"], {-0.27364817766693034`, 1.084807753012208}], InsetBox[
       FractionBox[
        RowBox[{"11", " ", "\[Pi]"}], 
        "9"], {-0.8660444431189781, -0.7427876096865392}]}, {InsetBox[
       FractionBox["\[Pi]", "3"], {0.6, 0.9660254037844386}], 
      InsetBox["\[Pi]", {-1.1, 0}], InsetBox[
       FractionBox[
        RowBox[{"5", " ", "\[Pi]"}], "3"], {0.6, -0.9660254037844386}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{-Sin[Rational[1, 18] Pi], Cos[
          Rational[1, 18] Pi]}, {-0.17364817766693033`, 
         0.984807753012208}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{-Cos[Rational[2, 9] Pi], -
          Sin[Rational[2, 9] 
            Pi]}, {-0.7660444431189781, -0.6427876096865393}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Cos[Rational[1, 9] Pi], -Sin[Rational[1, 9] Pi]}, {
         0.9396926207859084, -0.3420201433256687}]]}}, {
      {RGBColor[0, 0, 1], PointSize[Large], PointBox[{-1, 0}]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {
         0.5, -0.8660254037844386}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, {0.5, 
         0.8660254037844386}]]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118796113*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"x", "\[LongEqual]", 
      RowBox[{
       FractionBox[
        RowBox[{"\[Pi]", " ", "k"}], "2"], "+", 
       FractionBox["\[Pi]", "12"]}]}],
     TraditionalForm]}],
   SequenceForm[8, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], $CellContext`x == 
      Rational[1, 12] Pi + Rational[1, 2] Pi C[1]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.4141621188344507`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       FractionBox["\[Pi]", "12"], {1.0659258262890683`, 0.3588190451025207}],
       InsetBox[
       FractionBox[
        RowBox[{"7", " ", "\[Pi]"}], 
        "12"], {-0.3588190451025207, 1.0659258262890683`}], InsetBox[
       FractionBox[
        RowBox[{"13", " ", "\[Pi]"}], 
        "12"], {-1.0659258262890683`, -0.3588190451025207}], InsetBox[
       FractionBox[
        RowBox[{"19", " ", "\[Pi]"}], 
        "12"], {0.3588190451025207, -1.0659258262890683`}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
          Rational[1, 2] 
          2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {-0.2588190451025207, 
         0.9659258262890682}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
          Rational[-1, 2] 
          2^Rational[-1, 2] (-1 + 
           3^Rational[
             1, 2])}, {-0.9659258262890682, -0.2588190451025207}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 
          Rational[-1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2])}, {
         0.2588190451025207, -0.9659258262890682}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[1, 2] 2^Rational[-1, 2] (1 + 3^Rational[1, 2]), 
          Rational[1, 2] 2^Rational[-1, 2] (-1 + 3^Rational[1, 2])}, {
         0.9659258262890682, 0.2588190451025207}]]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.4141621188580227`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", "\[Pi]", " ", "k"}], "3"]}], "-", 
           FractionBox[
            RowBox[{"2", " ", "\[Pi]"}], "9"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"2", " ", "k", " ", "\[Pi]"}], "3"]}]}], "\<\"(2)\"\>"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[9, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == 
       Rational[-2, 9] Pi + Rational[-2, 3] Pi C[1], $CellContext`x == 
       Rational[-2, 3] Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118900181*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Pi]"}], 
         "9"]}], {0.8660444431189781, -0.7427876096865392}], InsetBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"8", " ", "\[Pi]"}], 
         "9"]}], {-1.0396926207859085`, -0.44202014332566875`}], InsetBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"14", " ", "\[Pi]"}], 
         "9"]}], {0.27364817766693034`, 1.084807753012208}]}, {
      InsetBox["0", {1.1, 0}], InsetBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "\[Pi]"}], "3"]}], {-0.6, -0.9660254037844386}], 
      InsetBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"4", " ", "\[Pi]"}], "3"]}], {-0.6, 0.9660254037844386}]}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{-Cos[Rational[1, 9] Pi], -
          Sin[Rational[1, 9] 
            Pi]}, {-0.9396926207859084, -0.3420201433256687}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Sin[Rational[1, 18] Pi], Cos[Rational[1, 18] Pi]}, {
         0.17364817766693033`, 0.984807753012208}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Cos[Rational[2, 9] Pi], -Sin[Rational[2, 9] Pi]}, {
         0.7660444431189781, -0.6427876096865393}]]}}, {
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2], Rational[-1, 2] 
          3^Rational[1, 2]}, {-0.5, -0.8660254037844386}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], 
       PointBox[
        NCache[{Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {-0.5, 
         0.8660254037844386}]]}, 
      {RGBColor[0, 0, 1], PointSize[Large], PointBox[{1, 0}]}}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162118925187*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FormBox[
     RowBox[{"\[Piecewise]", GridBox[{
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"2", " ", "k", " ", "\[Pi]"}], "-", 
           FractionBox[
            RowBox[{"2", " ", "\[Pi]"}], "3"]}]}], "\<\"(1)\"\>"},
        {
         RowBox[{"x", "\[LongEqual]", 
          RowBox[{
           RowBox[{"2", " ", "\[Pi]", " ", "k"}], "+", 
           FractionBox["\[Pi]", "3"]}]}], "\<\"(2)\"\>"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     TraditionalForm]}],
   SequenceForm[10, ") ", 
    trigo`Ens[
     And[
      Element[
       C[1], Integers], 
      Or[$CellContext`x == Rational[-2, 3] Pi + 2 Pi C[1], $CellContext`x == 
       Rational[1, 3] Pi + 2 Pi C[1]]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.4141621189733458`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{CircleBox[{0, 0}], {InsetBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[Pi]"}], "3"]}], {-0.6, -0.9660254037844386}], 
     InsetBox[
      FractionBox["\[Pi]", "3"], {0.6, 0.9660254037844386}], 
     {RGBColor[0, 0, 1], PointSize[Large], 
      PointBox[NCache[{
        Rational[-1, 2], Rational[-1, 2] 
         3^Rational[1, 2]}, {-0.5, -0.8660254037844386}]]}, 
     {RGBColor[0, 0, 1], PointSize[Large], 
      PointBox[NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, {0.5,
         0.8660254037844386}]]}}},
   Axes->True], TraditionalForm]], "Print",
 CellChangeTimes->{{3.414161124233017*^9, 3.414161132041382*^9}, 
   3.414161170799205*^9, {3.414161240336657*^9, 3.414161258340849*^9}, 
   3.414161345959867*^9, 3.41416140452247*^9, {3.414161453391362*^9, 
   3.4141614856729918`*^9}, 3.4141615475707397`*^9, 3.414161770122628*^9, 
   3.414161840091861*^9, 3.414162119003927*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{810, 873},
WindowMargins->{{345, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (February 7, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 143, 3, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[758, 30, 3988, 133, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[4771, 167, 651, 15, 20, "Print"],
Cell[5425, 184, 685, 16, 29, "Print"],
Cell[6113, 202, 688, 16, 29, "Print"],
Cell[6804, 220, 737, 18, 36, "Print"],
Cell[7544, 240, 865, 23, 38, "Print"],
Cell[8412, 265, 671, 15, 36, "Print"],
Cell[9086, 282, 738, 18, 38, "Print"],
Cell[9827, 302, 655, 15, 29, "Print"],
Cell[10485, 319, 703, 16, 39, "Print"],
Cell[11191, 337, 636, 13, 38, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11888, 357, 102, 1, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[12015, 362, 995, 25, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[13035, 391, 1753, 44, 57, "Print"],
Cell[14791, 437, 2027, 42, 377, "Print"],
Cell[16821, 481, 1835, 46, 61, "Print"],
Cell[18659, 529, 2614, 56, 391, "Print"],
Cell[21276, 587, 871, 22, 39, "Print"],
Cell[22150, 611, 1508, 32, 368, "Print"],
Cell[23661, 645, 1812, 45, 59, "Print"],
Cell[25476, 692, 1249, 27, 369, "Print"],
Cell[26728, 721, 871, 22, 38, "Print"],
Cell[27602, 745, 1610, 35, 365, "Print"],
Cell[29215, 782, 1908, 48, 59, "Print"],
Cell[31126, 832, 1020, 21, 365, "Print"],
Cell[32149, 855, 1835, 46, 61, "Print"],
Cell[33987, 903, 2024, 44, 369, "Print"],
Cell[36014, 949, 874, 22, 38, "Print"],
Cell[36891, 973, 2014, 42, 380, "Print"],
Cell[38908, 1017, 1841, 47, 61, "Print"],
Cell[40752, 1066, 2179, 50, 366, "Print"],
Cell[42934, 1118, 1777, 44, 59, "Print"],
Cell[44714, 1164, 965, 20, 368, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)