(* 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[ 26322, 766] NotebookOptionsPosition[ 24367, 694] NotebookOutlinePosition[ 24760, 711] CellTagsIndexPosition[ 24717, 708] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Trigonom\[EAcute]trie", "Section", CellChangeTimes->{{3.414227301932909*^9, 3.414227311794223*^9}}], Cell[CellGroupData[{ Cell["\<\ Repr\[EAcute]senter les angles suivants sur le cercle trigonom\[EAcute]trique\ \ \>", "Subsubsection", CellChangeTimes->{{3.41422731583925*^9, 3.414227336898678*^9}, { 3.414227779656303*^9, 3.4142277831737022`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"<<", "trigo.m"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"120", "\[Degree]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{ RowBox[{"-", "135"}], "\[Degree]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"5", RowBox[{"\[Pi]", "/", "6"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"7", RowBox[{"\[Pi]", "/", "3"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"23", RowBox[{"\[Pi]", "/", "6"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"a", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.414227346395906*^9, 3.41422749528266*^9}, { 3.414227680504794*^9, 3.414227710423527*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{"120", " ", "\[Degree]"}]}], SequenceForm[1, ") ", 120 Degree], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414227435141492*^9, 3.414227459407937*^9}, 3.4142274995542583`*^9, {3.414227576649802*^9, 3.414227593044737*^9}, { 3.414227681509573*^9, 3.414227712858468*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "135"}], " ", "\[Degree]"}]}], SequenceForm[2, ") ", (-135) Degree], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414227435141492*^9, 3.414227459407937*^9}, 3.4142274995542583`*^9, {3.414227576649802*^9, 3.414227593044737*^9}, { 3.414227681509573*^9, 3.414227712860661*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"]}], SequenceForm[3, ") ", Rational[5, 6] Pi], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414227435141492*^9, 3.414227459407937*^9}, 3.4142274995542583`*^9, {3.414227576649802*^9, 3.414227593044737*^9}, { 3.414227681509573*^9, 3.41422771286327*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "3"]}], SequenceForm[4, ") ", Rational[7, 3] Pi], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414227435141492*^9, 3.414227459407937*^9}, 3.4142274995542583`*^9, {3.414227576649802*^9, 3.414227593044737*^9}, { 3.414227681509573*^9, 3.414227712866012*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"23", " ", "\[Pi]"}], "6"]}], SequenceForm[5, ") ", Rational[23, 6] Pi], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414227435141492*^9, 3.414227459407937*^9}, 3.4142274995542583`*^9, {3.414227576649802*^9, 3.414227593044737*^9}, { 3.414227681509573*^9, 3.414227712868754*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection", CellChangeTimes->{{3.414227602277688*^9, 3.4142276051865807`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CercleTrigo", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Angle", "[", RowBox[{"a", "[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4142276495002403`*^9, 3.4142276577640133`*^9}, { 3.414227727770198*^9, 3.4142277280138903`*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[ RowBox[{"120", " ", "\[Degree]"}], {-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}]]}}, {InsetBox[ RowBox[{ RowBox[{"-", "135"}], " ", "\[Degree]"}], {-0.8071067811865474, -0.8071067811865474}], {RGBColor[0, 0, 1], PointSize[Large], PointBox[ NCache[{-2^Rational[-1, 2], -2^ Rational[-1, 2]}, {-0.7071067811865475, -0.7071067811865475}]]}}, { InsetBox[ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "6"], {-0.9660254037844386, 0.6}], {RGBColor[0, 0, 1], PointSize[Large], PointBox[ NCache[{Rational[-1, 2] 3^Rational[1, 2], Rational[ 1, 2]}, {-0.8660254037844386, 0.5}]]}}, {InsetBox[ FractionBox[ RowBox[{"7", " ", "\[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}]]}}, {InsetBox[ FractionBox[ RowBox[{"23", " ", "\[Pi]"}], "6"], {0.9660254037844386, -0.6}], {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]], "Output", CellChangeTimes->{{3.414227658363678*^9, 3.414227728839333*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Repr\[EAcute]sente les nombres trigonom\[EAcute]triques suivants et donne \ leur valeur\ \>", "Subsubsection", CellChangeTimes->{{3.4142278114127493`*^9, 3.4142278300777407`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"<<", "trigo.m"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Sinus", "[", RowBox[{"240", "\[Degree]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Cosinus", "[", RowBox[{ RowBox[{"-", "150"}], "\[Degree]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Tangente", "[", RowBox[{"7", RowBox[{"\[Pi]", "/", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Cotangente", "[", RowBox[{"5", RowBox[{"\[Pi]", "/", "4"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Tangente", "[", RowBox[{"3", RowBox[{"\[Pi]", "/", "4"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"a", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.414227346395906*^9, 3.41422749528266*^9}, { 3.414227680504794*^9, 3.414227710423527*^9}, {3.414227905589549*^9, 3.4142279086601048`*^9}, {3.414227953717852*^9, 3.414228020645433*^9}, { 3.414228087963052*^9, 3.414228093528143*^9}, {3.414228127825902*^9, 3.4142281794024763`*^9}, {3.4142283725583477`*^9, 3.414228400360032*^9}, { 3.414228467039113*^9, 3.414228551826022*^9}, {3.414229008148651*^9, 3.414229035532733*^9}, {3.414229083134075*^9, 3.414229124124757*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"sin", "(", RowBox[{"240", " ", "\[Degree]"}], ")"}], HoldForm], TraditionalForm]}], SequenceForm[1, ") ", trigo`Sinus[240 Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.414228526266858*^9, 3.4142285569651957`*^9, 3.414228834997326*^9, 3.414228924008082*^9, {3.4142290095298443`*^9, 3.414229036211895*^9}, { 3.4142290979360313`*^9, 3.41422912468408*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"cos", "(", RowBox[{ RowBox[{"-", "150"}], " ", "\[Degree]"}], ")"}], HoldForm], TraditionalForm]}], SequenceForm[2, ") ", trigo`Cosinus[(-150) Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.414228526266858*^9, 3.4142285569651957`*^9, 3.414228834997326*^9, 3.414228924008082*^9, {3.4142290095298443`*^9, 3.414229036211895*^9}, { 3.4142290979360313`*^9, 3.414229124686597*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ FormBox[ RowBox[{"tg", "(", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "3"], ")"}], TraditionalForm], HoldForm], TraditionalForm]}], SequenceForm[3, ") ", trigo`Tangente[Rational[7, 3] Pi]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.414228526266858*^9, 3.4142285569651957`*^9, 3.414228834997326*^9, 3.414228924008082*^9, {3.4142290095298443`*^9, 3.414229036211895*^9}, { 3.4142290979360313`*^9, 3.414229124690173*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ FormBox[ RowBox[{"cotg", "(", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "4"], ")"}], TraditionalForm], HoldForm], TraditionalForm]}], SequenceForm[4, ") ", trigo`Cotangente[Rational[5, 4] Pi]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.414228526266858*^9, 3.4142285569651957`*^9, 3.414228834997326*^9, 3.414228924008082*^9, {3.4142290095298443`*^9, 3.414229036211895*^9}, { 3.4142290979360313`*^9, 3.414229124693604*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ FormBox[ RowBox[{"tg", "(", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ")"}], TraditionalForm], HoldForm], TraditionalForm]}], SequenceForm[5, ") ", trigo`Tangente[Rational[3, 4] Pi]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.414228526266858*^9, 3.4142285569651957`*^9, 3.414228834997326*^9, 3.414228924008082*^9, {3.4142290095298443`*^9, 3.414229036211895*^9}, { 3.4142290979360313`*^9, 3.41422912469671*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection", CellChangeTimes->{{3.414228903407609*^9, 3.414228905139915*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"a", "[", "i", "]"}], ",", "\"\< = \>\"", ",", RowBox[{"Val", "[", RowBox[{"a", "[", "i", "]"}], "]"}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"CercleTrigo", "[", RowBox[{"Cercle", "[", RowBox[{"a", "[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4142276495002403`*^9, 3.4142276577640133`*^9}, { 3.414227727770198*^9, 3.4142277280138903`*^9}, {3.414228592618125*^9, 3.414228731738803*^9}, {3.4142288485194902`*^9, 3.414228874128407*^9}, { 3.4142289553777103`*^9, 3.414228955544036*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"sin", "(", RowBox[{"240", " ", "\[Degree]"}], ")"}], HoldForm], TraditionalForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], SequenceForm[1, ") ", trigo`Sinus[240 Degree], " = ", Rational[-1, 2] 3^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.41422913886205*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[ RowBox[{"240", " ", "\[Degree]"}], {-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], Thickness[0.01], LineBox[NCache[{{0, 0}, {0, Rational[-1, 2] 3^Rational[1, 2]}}, {{0, 0}, {0, -0.8660254037844386}}]]}, LineBox[NCache[{{0, 0}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}}, {{0, 0}, {-0.5, -0.8660254037844386}}]], {Dashing[{Small, Small}], LineBox[NCache[{{0, Rational[-1, 2] 3^Rational[1, 2]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0, -0.8660254037844386}, {-0.5, -0.8660254037844386}}]]}}}, Axes->True], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229138864682*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"cos", "(", RowBox[{ RowBox[{"-", "150"}], " ", "\[Degree]"}], ")"}], HoldForm], TraditionalForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], SequenceForm[2, ") ", trigo`Cosinus[(-150) Degree], " = ", Rational[-1, 2] 3^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229138884265*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[ RowBox[{ RowBox[{"-", "150"}], " ", "\[Degree]"}], {-0.9660254037844386, -0.6}], {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], PointSize[Large], PointBox[ NCache[{Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {-0.8660254037844386, -0.5}]]}}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[0.01], LineBox[NCache[{{0, 0}, {Rational[-1, 2] 3^Rational[1, 2], 0}}, {{0, 0}, {-0.8660254037844386, 0}}]]}, LineBox[NCache[{{0, 0}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {{0, 0}, {-0.8660254037844386, -0.5}}]], {Dashing[{Small, Small}], LineBox[NCache[{{Rational[-1, 2] 3^Rational[1, 2], 0}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {{-0.8660254037844386, 0}, {-0.8660254037844386, -0.5}}]]}}}, Axes->True], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229138918943*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ FormBox[ RowBox[{"tg", "(", FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "3"], ")"}], TraditionalForm], HoldForm], TraditionalForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["3"]}], SequenceForm[3, ") ", trigo`Tangente[Rational[7, 3] Pi], " = ", 3^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229138960689*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[ FractionBox[ RowBox[{"7", " ", "\[Pi]"}], "3"], {0.6, 0.9660254037844386}], {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], PointSize[Large], PointBox[ NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, {0.5, 0.8660254037844386}]]}}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[0.01], LineBox[NCache[{{1, 0}, {1, 3^Rational[1, 2]}}, {{1, 0}, { 1, 1.7320508075688772`}}]]}, LineBox[NCache[{{0, 0}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0.8660254037844386}}]], {Dashing[{Small, Small}], LineBox[NCache[{{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, 3^Rational[1, 2]}}, {{0.5, 0.8660254037844386}, { 1, 1.7320508075688772`}}]]}}}, Axes->True], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229138995948*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ FormBox[ RowBox[{"cotg", "(", FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "4"], ")"}], TraditionalForm], HoldForm], TraditionalForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[4, ") ", trigo`Cotangente[Rational[5, 4] Pi], " = ", 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229139045089*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[ FractionBox[ RowBox[{"5", " ", "\[Pi]"}], "4"], {-0.8071067811865474, -0.8071067811865474}], {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], NCache[ Rational[2, 3], 0.6666666666666666], 0], PointSize[Large], PointBox[ NCache[{-2^Rational[-1, 2], -2^ Rational[-1, 2]}, {-0.7071067811865475, -0.7071067811865475}]]}}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[0.01], LineBox[{{0, 1}, {1, 1}}]}, LineBox[NCache[{{0, 0}, {-2^Rational[-1, 2], -2^Rational[-1, 2]}}, {{0, 0}, {-0.7071067811865475, -0.7071067811865475}}]], {Dashing[{Small, Small}], LineBox[NCache[{{-2^Rational[-1, 2], -2^Rational[-1, 2]}, {1, 1}}, {{-0.7071067811865475, -0.7071067811865475}, {1, 1}}]]}}}, Axes->True], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.4142291390789843`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ FormBox[ RowBox[{"tg", "(", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], ")"}], TraditionalForm], HoldForm], TraditionalForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}]}], SequenceForm[5, ") ", trigo`Tangente[Rational[3, 4] Pi], " = ", -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.4142291391315813`*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{CircleBox[{0, 0}], {{InsetBox[ FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "4"], {-0.8071067811865474, 0.8071067811865474}], {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], PointSize[Large], PointBox[ NCache[{-2^Rational[-1, 2], 2^Rational[-1, 2]}, {-0.7071067811865475, 0.7071067811865475}]]}}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[0.01], LineBox[{{1, 0}, {1, -1}}]}, LineBox[NCache[{{0, 0}, {-2^Rational[-1, 2], 2^Rational[-1, 2]}}, {{0, 0}, {-0.7071067811865475, 0.7071067811865475}}]], {Dashing[{Small, Small}], LineBox[NCache[{{-2^Rational[-1, 2], 2^Rational[-1, 2]}, { 1, -1}}, {{-0.7071067811865475, 0.7071067811865475}, {1, -1}}]]}}}, Axes->True], TraditionalForm]], "Print", CellChangeTimes->{{3.414228662899145*^9, 3.414228674284389*^9}, { 3.4142288392186117`*^9, 3.4142288746148243`*^9}, 3.414228925016148*^9, 3.414228956028453*^9, {3.414229011807004*^9, 3.4142290378600607`*^9}, 3.414229100844755*^9, 3.414229139162973*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{850, 959}, WindowMargins->{{485, 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, 106, 1, 67, "Section"], Cell[CellGroupData[{ Cell[721, 28, 228, 5, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[974, 37, 1741, 57, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[2740, 98, 435, 9, 20, "Print"], Cell[3178, 109, 459, 10, 20, "Print"], Cell[3640, 121, 459, 10, 39, "Print"], Cell[4102, 133, 460, 10, 39, "Print"], Cell[4565, 145, 462, 10, 39, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5088, 162, 102, 1, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[5215, 167, 385, 10, 20, "Input", CellOpen->False], Cell[5603, 179, 1567, 35, 374, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[7219, 220, 190, 4, 19, "Subsubsection"], Cell[CellGroupData[{ Cell[7434, 228, 2321, 67, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[9780, 299, 582, 16, 20, "Print"], Cell[10365, 317, 612, 17, 20, "Print"], Cell[10980, 336, 656, 19, 39, "Print"], Cell[11639, 357, 660, 19, 39, "Print"], Cell[12302, 378, 655, 19, 39, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13018, 404, 100, 1, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[13143, 409, 885, 22, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[14053, 435, 797, 20, 41, "Print"], Cell[14853, 457, 1160, 22, 365, "Print"], Cell[16016, 481, 827, 21, 41, "Print"], Cell[16846, 504, 1323, 29, 365, "Print"], Cell[18172, 535, 809, 21, 39, "Print"], Cell[18984, 558, 1252, 27, 440, "Print"], Cell[20239, 587, 784, 20, 39, "Print"], Cell[21026, 609, 1303, 29, 365, "Print"], Cell[22332, 640, 803, 21, 39, "Print"], Cell[23138, 663, 1177, 25, 365, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)