(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     69593,       2281]
NotebookOptionsPosition[     62503,       2042]
NotebookOutlinePosition[     63102,       2063]
CellTagsIndexPosition[     63059,       2060]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
TP 1 - CALCULS - CORRIG\[CapitalEAcute]                                       \
              \
\>", "Subtitle",
 CellChangeTimes->{{3.46116799121875*^9, 3.461167995828125*^9}, 
   3.461168929625*^9, {3.462680458453125*^9, 3.462680460890625*^9}}],

Cell["Ex1)", "Subsubtitle",
 CellChangeTimes->{{3.4626773586875*^9, 3.462677360265625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", "12345678987654321", "]"}]], "Input",
 CellChangeTimes->{{3.448884377875*^9, 3.4488844063125*^9}, 
   3.461134212484375*^9}],

Cell[BoxData["111111111"], "Output",
 CellChangeTimes->{3.462677530015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex2) ", "Subsubtitle",
 CellChangeTimes->{{3.461146465578125*^9, 3.46114647171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"\[Pi]", ",", "101"}], "]"}]], "Input",
 CellChangeTimes->{{3.461136035265625*^9, 3.4611361725*^9}, {
  3.46113705715625*^9, 3.46113709796875*^9}, {3.461137747234375*^9, 
  3.46113775015625*^9}, {3.461138153640625*^9, 3.461138156359375*^9}, {
  3.46116470034375*^9, 3.46116470115625*^9}}],

Cell[BoxData["3.\
141592653589793238462643383279502884197169399375105820974944592307816406286208\
9986280348253421170679821480865132649`101."], "Output",
 CellChangeTimes->{{3.4611370751875*^9, 3.461137098390625*^9}, 
   3.461137751625*^9, 3.461138156828125*^9, 3.461164702296875*^9, 
   3.462677540765625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex3)", "Subsubtitle",
 CellChangeTimes->{{3.461146349859375*^9, 3.46114635121875*^9}, {
  3.4611464080625*^9, 3.461146408828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2143", "/", "22"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"1", "/", "4"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"a", "-", "\[Pi]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46113754578125*^9, 3.461137576578125*^9}, {
  3.4611385518125*^9, 3.46113857340625*^9}, {3.46114193359375*^9, 
  3.46114193653125*^9}, {3.461142039921875*^9, 3.461142042984375*^9}}],

Cell[BoxData[
 RowBox[{"-", "1.007146810394488`*^-9"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.461137565109375*^9, {3.461138555265625*^9, 3.46113857440625*^9}, 
   3.46114193809375*^9, 3.46114204378125*^9, 3.461142471234375*^9, 
   3.46141195965625*^9, 3.461411992109375*^9, {3.462677433984375*^9, 
   3.46267743459375*^9}, 3.462677562359375*^9}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   FractionBox["2143", "22"], ")"}], 
  RowBox[{"1", "/", "4"}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.461137565109375*^9, {3.461138555265625*^9, 3.46113857440625*^9}, 
   3.46114193809375*^9, 3.46114204378125*^9, 3.461142471234375*^9, 
   3.46141195965625*^9, 3.461411992109375*^9, {3.462677433984375*^9, 
   3.46267743459375*^9}, 3.4626775623125*^9}]
}, Open  ]],

Cell[TextData[{
 "Donc a = \[Pi] \[AGrave] ",
 Cell[BoxData[
  SuperscriptBox["10", 
   RowBox[{"-", "9"}]]],
  CellChangeTimes->{
   3.461137565109375*^9, {3.461138555265625*^9, 3.46113857440625*^9}, 
    3.46114193809375*^9, 3.46114204378125*^9, 3.461142471234375*^9, 
    3.46141195965625*^9, 3.461411992171875*^9}],
 " pr\[EGrave]s par d\[EAcute]faut"
}], "Text",
 CellChangeTimes->{{3.46113825471875*^9, 3.46113831903125*^9}, 
   3.461138494015625*^9, {3.46114204759375*^9, 3.46114204790625*^9}, {
   3.462677458140625*^9, 3.462677461609375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"b", "=", 
  RowBox[{
   RowBox[{"2", 
    RowBox[{"Sqrt", "[", "10", "]"}]}], "-", 
   RowBox[{"1193611", "/", "375000"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"b", "-", "\[Pi]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46113849940625*^9, 3.46113854009375*^9}, {
   3.46113860534375*^9, 3.461138605609375*^9}, {3.4611419421875*^9, 
   3.461141958140625*^9}, {3.461142051375*^9, 3.461142054140625*^9}, {
   3.46114345125*^9, 3.46114345175*^9}, 3.461411618203125*^9, {
   3.461411675515625*^9, 3.461411685015625*^9}, {3.461411729515625*^9, 
   3.461411729703125*^9}, 3.46141187496875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1193611", "375000"]}], "+", 
  RowBox[{"2", " ", 
   SqrtBox["10"]}]}]], "Output",
 CellChangeTimes->{{3.46113852828125*^9, 3.461138541125*^9}, 
   3.46113861040625*^9, 3.461142058375*^9, 3.46114247484375*^9, 
   3.4611434520625*^9, 3.461411687046875*^9, 3.461411730703125*^9, 
   3.461411876125*^9, 3.462677595265625*^9}],

Cell[BoxData["8.029932274666862`*^-11"], "Output",
 CellChangeTimes->{{3.46113852828125*^9, 3.461138541125*^9}, 
   3.46113861040625*^9, 3.461142058375*^9, 3.46114247484375*^9, 
   3.4611434520625*^9, 3.461411687046875*^9, 3.461411730703125*^9, 
   3.461411876125*^9, 3.462677595296875*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Donc", " ", "b"}], "=", 
   RowBox[{"\[Pi]", " ", "\[AGrave]", " ", 
    SuperscriptBox["8.10", 
     RowBox[{"-", "11"}]], " ", "pr\[EGrave]s", " ", "par", " ", 
    "exc\[EGrave]s"}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{3.462677484625*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"c", "=", 
  RowBox[{
   RowBox[{"355", "/", "113"}], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{
      RowBox[{"3", "/", "3533"}], "/", "10000"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"c", "-", "\[Pi]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46113876521875*^9, 3.461138769109375*^9}, {
  3.461141732171875*^9, 3.461141770046875*^9}, {3.4611420618125*^9, 
  3.461142064171875*^9}, {3.46114344390625*^9, 3.461143444375*^9}, {
  3.461411923015625*^9, 3.46141192328125*^9}}],

Cell[BoxData[
 FractionBox["2508429787", "798458000"]], "Output",
 CellChangeTimes->{{3.461141744640625*^9, 3.46114176646875*^9}, 
   3.461142065734375*^9, 3.46114247715625*^9, 3.4611434446875*^9, 
   3.461411924515625*^9, 3.462677603671875*^9}],

Cell[BoxData["1.3322676295501878`*^-15"], "Output",
 CellChangeTimes->{{3.461141744640625*^9, 3.46114176646875*^9}, 
   3.461142065734375*^9, 3.46114247715625*^9, 3.4611434446875*^9, 
   3.461411924515625*^9, 3.462677603703125*^9}]
}, Open  ]],

Cell[TextData[{
 "Donc c = \[Pi] \[AGrave] ",
 Cell[BoxData[
  SuperscriptBox["10", 
   RowBox[{"-", "15"}]]],
  CellChangeTimes->{{3.461141744640625*^9, 3.46114176646875*^9}, 
    3.461142065734375*^9, 3.46114247715625*^9, 3.4611434446875*^9, 
    3.461411924515625*^9, 3.462677603703125*^9}],
 " pr\[EGrave]s par exc\[EGrave]s"
}], "Text",
 CellChangeTimes->{{3.461142068421875*^9, 3.46114207603125*^9}, 
   3.46267762759375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Pi]", ",", "a", ",", "b", ",", "c"}], "}"}], ",", "Less"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.461141908578125*^9, 3.461141919484375*^9}, {
  3.4611420340625*^9, 3.461142035984375*^9}, {3.461142091375*^9, 
  3.46114210934375*^9}, {3.461142144078125*^9, 3.46114216525*^9}, {
  3.461142565578125*^9, 3.461142568671875*^9}, {3.461142866453125*^9, 
  3.461142888609375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["2143", "22"], ")"}], 
    RowBox[{"1", "/", "4"}]], ",", "\[Pi]", ",", 
   FractionBox["2508429787", "798458000"], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1193611", "375000"]}], "+", 
    RowBox[{"2", " ", 
     SqrtBox["10"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.461412004203125*^9, 3.46267766375*^9}]
}, Open  ]],

Cell["Donc a < \[Pi] < c < b", "Text",
 CellChangeTimes->{{3.461142220546875*^9, 3.461142243015625*^9}, {
  3.461164721625*^9, 3.461164723953125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex4)", "Subsubtitle",
 CellChangeTimes->{{3.461146399921875*^9, 3.46114640121875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"Exp", "[", 
    RowBox[{"Pi", " ", 
     RowBox[{"Sqrt", "[", "163", "]"}]}], "]"}]}], ";", 
  RowBox[{"N", "[", 
   RowBox[{"a", ",", "50"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"b", "=", 
  RowBox[{"Round", "[", "a", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"a", "-", "b"}], ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46114312565625*^9, 3.4611432283125*^9}, {
  3.461143277640625*^9, 3.461143304859375*^9}, {3.46114334540625*^9, 
  3.461143352609375*^9}, {3.461143417796875*^9, 3.46114342275*^9}}],

Cell[BoxData["2.\
62537412640768743999999999999250072597198185688879353856337337112`50.*^17"], \
"Output",
 CellChangeTimes->{{3.461143188140625*^9, 3.461143229296875*^9}, {
   3.46114328478125*^9, 3.46114330528125*^9}, 3.46114335425*^9, {
   3.4611434121875*^9, 3.4611434231875*^9}, 3.46267772715625*^9}],

Cell[BoxData["262537412640768744"], "Output",
 CellChangeTimes->{{3.461143188140625*^9, 3.461143229296875*^9}, {
   3.46114328478125*^9, 3.46114330528125*^9}, 3.46114335425*^9, {
   3.4611434121875*^9, 3.4611434231875*^9}, 3.462677727203125*^9}],

Cell[BoxData[
 RowBox[{"-", "7.4992740280181431`1.*^-13"}]], "Output",
 CellChangeTimes->{{3.461143188140625*^9, 3.461143229296875*^9}, {
   3.46114328478125*^9, 3.46114330528125*^9}, 3.46114335425*^9, {
   3.4611434121875*^9, 3.4611434231875*^9}, 3.46267772725*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"donc", " ", "a", " ", "est", " ", 
    RowBox[{"l", "'"}], "entier", " ", "N"}], "=", 
   RowBox[{"262537412640768744", " ", "\[AGrave]", " ", 
    SuperscriptBox["7.10", 
     RowBox[{"-", "13"}]], " ", "pr\[EGrave]s", 
    RowBox[{"(", 
     RowBox[{"a", " ", "<", "N"}], ")"}]}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{{3.461143480359375*^9, 3.46114348396875*^9}, {
   3.461143529265625*^9, 3.461143536078125*^9}, {3.46114357125*^9, 
   3.461143639*^9}, 3.462677710296875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex5)", "Subsubtitle",
 CellChangeTimes->{{3.46114652121875*^9, 3.461146522453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"3", "+", 
    RowBox[{"2", 
     RowBox[{"Sqrt", "[", "2", "]"}]}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4611444110625*^9, 3.4611444825625*^9}, {
  3.46114461871875*^9, 3.461144624265625*^9}, {3.4611446740625*^9, 
  3.46114470909375*^9}, {3.461164748109375*^9, 3.461164750671875*^9}}],

Cell[BoxData[
 RowBox[{"1", "+", 
  SqrtBox["2"]}]], "Output",
 CellChangeTimes->{{3.461144440140625*^9, 3.461144483171875*^9}, 
   3.46114462490625*^9, 3.461144680390625*^9, 3.461144710953125*^9, 
   3.461164752578125*^9, 3.4626777519375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"donc", " ", 
    SqrtBox[
     RowBox[{"3", "+", 
      RowBox[{"2", " ", 
       SqrtBox["2"]}]}]]}], "-", 
   SqrtBox[
    RowBox[{"3", "-", 
     RowBox[{"2", " ", 
      SqrtBox["2"]}]}]]}], "=", 
  RowBox[{
   RowBox[{"1", "+", 
    RowBox[{"Sqrt", "[", "2", "]"}], "+", "1", "-", 
    RowBox[{"Sqrt", "[", "2", "]"}]}], "=", "2"}]}]], "Text",
 CellChangeTimes->{{3.461164774875*^9, 3.461164809*^9}, {3.46116488459375*^9, 
  3.461164889203125*^9}, {3.46116492671875*^9, 3.461165103515625*^9}, {
  3.462677771875*^9, 3.462677779203125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex6)", "Subsubtitle",
 CellChangeTimes->{{3.461412561953125*^9, 3.461412570234375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", 
  RowBox[{
   RowBox[{"Sqrt", "[", "3", "]"}], "+", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"14", "+", 
     RowBox[{"2", 
      RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}]}], "\n", 
 RowBox[{"b", "=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"7", "+", 
     RowBox[{"Sqrt", "[", "46", "]"}]}], "]"}], "+", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"10", "-", 
     RowBox[{"Sqrt", "[", "46", "]"}], "+", 
     RowBox[{"2", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"21", "-", 
        RowBox[{"3", 
         RowBox[{"Sqrt", "[", "46", "]"}]}]}], "]"}]}]}], "]"}]}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RootReduce", "[", "b", "]"}], ",", 
   RowBox[{"RootReduce", "[", "a", "]"}]}], "}"}], "\[IndentingNewLine]", 
 RowBox[{"RootReduce", "[", 
  RowBox[{"a", "-", "b"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"a", "-", "b"}], "]"}]}], "Input",
 CellChangeTimes->{{3.46114364565625*^9, 3.46114379734375*^9}, {
  3.461143832421875*^9, 3.461143875734375*^9}, {3.461143926390625*^9, 
  3.461143991078125*^9}, {3.461412271328125*^9, 3.461412279765625*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox["3"], "+", 
  SqrtBox[
   RowBox[{"14", "+", 
    RowBox[{"2", " ", 
     SqrtBox["3"]}]}]]}]], "Output",
 CellChangeTimes->{
  3.46114373709375*^9, 3.461143797828125*^9, 3.461143842328125*^9, 
   3.46114387690625*^9, {3.461143957125*^9, 3.461143992171875*^9}, 
   3.461165124390625*^9, {3.46141226659375*^9, 3.4614122809375*^9}, 
   3.46267782165625*^9}],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{"7", "+", 
    SqrtBox["46"]}]], "+", 
  SqrtBox[
   RowBox[{"10", "-", 
    SqrtBox["46"], "+", 
    RowBox[{"2", " ", 
     SqrtBox[
      RowBox[{"21", "-", 
       RowBox[{"3", " ", 
        SqrtBox["46"]}]}]]}]}]]}]], "Output",
 CellChangeTimes->{
  3.46114373709375*^9, 3.461143797828125*^9, 3.461143842328125*^9, 
   3.46114387690625*^9, {3.461143957125*^9, 3.461143992171875*^9}, 
   3.461165124390625*^9, {3.46141226659375*^9, 3.4614122809375*^9}, 
   3.462677821703125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"109", "-", 
       RowBox[{"24", " ", "#1"}], "-", 
       RowBox[{"34", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "4"]}], "&"}], ",", "4"}], "]"}], ",", 
   RowBox[{"Root", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"109", "-", 
       RowBox[{"24", " ", "#1"}], "-", 
       RowBox[{"34", " ", 
        SuperscriptBox["#1", "2"]}], "+", 
       SuperscriptBox["#1", "4"]}], "&"}], ",", "4"}], "]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.46114373709375*^9, 3.461143797828125*^9, 3.461143842328125*^9, 
   3.46114387690625*^9, {3.461143957125*^9, 3.461143992171875*^9}, 
   3.461165124390625*^9, {3.46141226659375*^9, 3.4614122809375*^9}, 
   3.462677822609375*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.46114373709375*^9, 3.461143797828125*^9, 3.461143842328125*^9, 
   3.46114387690625*^9, {3.461143957125*^9, 3.461143992171875*^9}, 
   3.461165124390625*^9, {3.46141226659375*^9, 3.4614122809375*^9}, 
   3.46267782278125*^9}],

Cell[BoxData[
 RowBox[{"-", "1.7763568394002505`*^-15"}]], "Output",
 CellChangeTimes->{
  3.46114373709375*^9, 3.461143797828125*^9, 3.461143842328125*^9, 
   3.46114387690625*^9, {3.461143957125*^9, 3.461143992171875*^9}, 
   3.461165124390625*^9, {3.46141226659375*^9, 3.4614122809375*^9}, 
   3.46267782284375*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Bien", " ", "que", " ", 
    RowBox[{"N", "[", 
     RowBox[{"a", "-", "b"}], "]"}], " ", "soit", " ", "non", " ", "nul"}], 
   ",", " ", 
   RowBox[{
    RowBox[{"a", " ", "et", " ", "b", " ", "sont", " ", 
     RowBox[{"\[EAcute]gaux", " ", ":", " ", 
      RowBox[{
       RowBox[{
       "ils", " ", "sont", " ", "tous", " ", "les", " ", "deux", " ", "la", 
        " ", "quatri\[EGrave]me", " ", "racine", " ", "de", " ", "109"}], "-", 
       RowBox[{"24", "X"}], "-", 
       RowBox[{"34", " ", 
        SuperscriptBox["X", "2"]}], "+", 
       SuperscriptBox["X", "4"]}]}]}], " ", ";", " ", 
    RowBox[{
     RowBox[{"l", "'"}], "\[EAcute]criture", " ", 
     RowBox[{"d", "'"}], "un", " ", "nombre", " ", "avec", " ", "des", " ", 
     "radicaux", " ", 
     RowBox[{"n", "'"}], "est", " ", "pas", " ", 
     RowBox[{"unique", " ", "!"}]}]}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{{3.461144020921875*^9, 3.4611440689375*^9}, {
  3.46114655659375*^9, 3.46114661734375*^9}, {3.4611651514375*^9, 
  3.461165160453125*^9}, {3.461167884484375*^9, 3.461167889578125*^9}, {
  3.461412296765625*^9, 3.4614123370625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"109", "-", 
     RowBox[{"24", "X"}], "-", 
     RowBox[{"34", " ", 
      SuperscriptBox["X", "2"]}], "+", 
     SuperscriptBox["X", "4"]}], "\[Equal]", "0"}], ",", "X"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.461144086140625*^9, 3.46114419903125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"X", "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       SqrtBox["3"]}], "-", 
      SqrtBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"7", "-", 
          SqrtBox["3"]}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"X", "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       SqrtBox["3"]}], "+", 
      SqrtBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"7", "-", 
          SqrtBox["3"]}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"X", "\[Rule]", 
     RowBox[{
      SqrtBox["3"], "-", 
      SqrtBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"7", "+", 
          SqrtBox["3"]}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"X", "\[Rule]", 
     RowBox[{
      SqrtBox["3"], "+", 
      SqrtBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"7", "+", 
          SqrtBox["3"]}], ")"}]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.461144101875*^9, 3.46114419978125*^9}, 3.462677875*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex7)", "Subsubtitle",
 CellChangeTimes->{{3.461146642*^9, 3.461146643703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mod", "[", 
  RowBox[{
   RowBox[{"Floor", "[", 
    RowBox[{
     RowBox[{"2", "^", "1000"}], "/", 
     RowBox[{"10", "^", "99"}]}], "]"}], " ", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.448884477515625*^9, 3.448884490359375*^9}, {
  3.448884525828125*^9, 3.448884555078125*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.4488844924375*^9, 3.448884536296875*^9, 
  3.462677906234375*^9}]
}, Open  ]],

Cell[TextData[{
 "Le 100 i\[EGrave]me chifffre (\[AGrave] partir de la droite) de ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", "1000"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " est 2."
}], "Text",
 CellChangeTimes->{{3.461138026171875*^9, 3.46113806628125*^9}, {
   3.462677941703125*^9, 3.4626779641875*^9}, 3.4626780213125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex8)", "Subsubtitle"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mod", "[", 
  RowBox[{
   RowBox[{"Floor", "[", 
    RowBox[{"\[Pi]", "*", 
     RowBox[{"10", "^", "100"}]}], "]"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.461136586671875*^9, 3.461136622140625*^9}, {
  3.46113672828125*^9, 3.461136772625*^9}, {3.46113797615625*^9, 
  3.461137976984375*^9}}],

Cell[BoxData["9"], "Output",
 CellChangeTimes->{3.46113662340625*^9, 3.46113674009375*^9, 
  3.4611370381875*^9, 3.461137981421875*^9, 3.46267798378125*^9}]
}, Open  ]],

Cell["\<\
La 100 - \[EGrave]me d\[EAcute]cimale de \[Pi] est donc un 9. Ce n'est pas un \
z\[EAcute]ro comme le laisserait penser Ex2, car dans ce cas il y a eu \
arrondi (79 est devenu 80).\
\>", "Text",
 CellChangeTimes->{{3.461146442828125*^9, 3.46114644371875*^9}, {
  3.46116828896875*^9, 3.461168296390625*^9}, {3.461412451265625*^9, 
  3.461412451984375*^9}, {3.46267801165625*^9, 3.462678017640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex9)", "Subsubtitle",
 CellChangeTimes->{{3.461146695390625*^9, 3.46114669696875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"n", "=", 
  RowBox[{
   RowBox[{"2", "^", "257"}], "-", "1"}]}], "\[IndentingNewLine]", 
 RowBox[{"PrimeQ", "[", "n", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Divisors", "[", "n", "]"}]}], "Input",
 CellChangeTimes->{{3.4611456824375*^9, 3.46114582528125*^9}, {
   3.461146033125*^9, 3.46114603559375*^9}, 3.461165188109375*^9}],

Cell[BoxData[\
"23158417847463239084714197001737581570653996933128112807891516801582625927987\
1"], "Output",
 CellChangeTimes->{{3.461145725578125*^9, 3.461145739734375*^9}, {
   3.4611457779375*^9, 3.461145794875*^9}, 3.461145826703125*^9, 
   3.4611460368125*^9, 3.462678050734375*^9}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.461145725578125*^9, 3.461145739734375*^9}, {
   3.4611457779375*^9, 3.461145794875*^9}, 3.461145826703125*^9, 
   3.4611460368125*^9, 3.4626780508125*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.461145725578125*^9, 3.461145739734375*^9}, {
   3.4611457779375*^9, 3.461145794875*^9}, 3.461145826703125*^9, 
   3.4611460368125*^9, 3.462678065421875*^9}]
}, Open  ]],

Cell["\<\
Montrer qu' un nombre n'est pas premier est bien plus facile que d'en exhiber \
un diviseur !\
\>", "Text",
 CellChangeTimes->{{3.461414703921875*^9, 3.461414738171875*^9}, {
  3.462678099890625*^9, 3.462678126328125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex10)", "Subsubtitle",
 CellChangeTimes->{{3.461165200015625*^9, 3.46116520175*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Exit", "[", "]"}], ";", 
  RowBox[{"u", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1", "/", "a"}], "+", 
      RowBox[{"1", "/", "b"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1", "/", "a"}], "-", 
      RowBox[{"1", "/", "b"}]}], ")"}]}]}], ";", 
  RowBox[{"A", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", "+", 
      RowBox[{"1", "/", "u"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"u", "-", 
      RowBox[{"1", "/", "u"}]}], ")"}]}]}], ";", 
  RowBox[{"A", "==", 
   RowBox[{"Expand", "[", 
    RowBox[{"Simplify", "[", "A", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.459832663078125*^9, 3.45983266453125*^9}, {
  3.4598327288125*^9, 3.459832737296875*^9}, {3.462678156453125*^9, 
  3.462678158296875*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    FractionBox[
     RowBox[{
      FractionBox["1", "a"], "-", 
      FractionBox["1", "b"]}], 
     RowBox[{
      FractionBox["1", "a"], "+", 
      FractionBox["1", "b"]}]], "+", 
    FractionBox[
     RowBox[{
      FractionBox["1", "a"], "+", 
      FractionBox["1", "b"]}], 
     RowBox[{
      FractionBox["1", "a"], "-", 
      FractionBox["1", "b"]}]]}], 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       FractionBox["1", "a"], "-", 
       FractionBox["1", "b"]}], 
      RowBox[{
       FractionBox["1", "a"], "+", 
       FractionBox["1", "b"]}]]}], "+", 
    FractionBox[
     RowBox[{
      FractionBox["1", "a"], "+", 
      FractionBox["1", "b"]}], 
     RowBox[{
      FractionBox["1", "a"], "-", 
      FractionBox["1", "b"]}]]}]], "\[Equal]", 
  RowBox[{
   FractionBox["a", 
    RowBox[{"2", " ", "b"}]], "+", 
   FractionBox["b", 
    RowBox[{"2", " ", "a"}]]}]}]], "Output",
 CellChangeTimes->{
  3.45337535278125*^9, 3.45983234765625*^9, 3.459832379890625*^9, 
   3.459832644703125*^9, {3.45983274946875*^9, 3.4598327788125*^9}}]
}, Open  ]],

Cell["\<\
Au lieu de tout taper, donnez des noms \[AGrave] des expressions identiques!\
\>", "Text",
 CellChangeTimes->{{3.459832443921875*^9, 3.45983245075*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"Pi", "/", "3"}], "+", "x"}], "]"}], 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"Pi", "/", "3"}], "-", "x"}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{"3", " ", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{3.461166078421875*^9, 3.462678207390625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex11)", "Subsubtitle",
 CellChangeTimes->{{3.45983249065625*^9, 3.459832491296875*^9}, {
  3.4611652270625*^9, 3.4611652563125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "y", "+", "z", "+", "t"}], ")"}], "^", "4"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.453375242609375*^9, 3.453375259609375*^9}, {
   3.453375296765625*^9, 3.453375308953125*^9}, 3.459832469484375*^9}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["t", "4"], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["t", "3"], " ", "x"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["t", "2"], " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"4", " ", "t", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  SuperscriptBox["x", "4"], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["t", "3"], " ", "y"}], "+", 
  RowBox[{"12", " ", 
   SuperscriptBox["t", "2"], " ", "x", " ", "y"}], "+", 
  RowBox[{"12", " ", "t", " ", 
   SuperscriptBox["x", "2"], " ", "y"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "3"], " ", "y"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["t", "2"], " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"12", " ", "t", " ", "x", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"4", " ", "t", " ", 
   SuperscriptBox["y", "3"]}], "+", 
  RowBox[{"4", " ", "x", " ", 
   SuperscriptBox["y", "3"]}], "+", 
  SuperscriptBox["y", "4"], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["t", "3"], " ", "z"}], "+", 
  RowBox[{"12", " ", 
   SuperscriptBox["t", "2"], " ", "x", " ", "z"}], "+", 
  RowBox[{"12", " ", "t", " ", 
   SuperscriptBox["x", "2"], " ", "z"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "3"], " ", "z"}], "+", 
  RowBox[{"12", " ", 
   SuperscriptBox["t", "2"], " ", "y", " ", "z"}], "+", 
  RowBox[{"24", " ", "t", " ", "x", " ", "y", " ", "z"}], "+", 
  RowBox[{"12", " ", 
   SuperscriptBox["x", "2"], " ", "y", " ", "z"}], "+", 
  RowBox[{"12", " ", "t", " ", 
   SuperscriptBox["y", "2"], " ", "z"}], "+", 
  RowBox[{"12", " ", "x", " ", 
   SuperscriptBox["y", "2"], " ", "z"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["y", "3"], " ", "z"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["t", "2"], " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"12", " ", "t", " ", "x", " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"12", " ", "t", " ", "y", " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"12", " ", "x", " ", "y", " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["y", "2"], " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"4", " ", "t", " ", 
   SuperscriptBox["z", "3"]}], "+", 
  RowBox[{"4", " ", "x", " ", 
   SuperscriptBox["z", "3"]}], "+", 
  RowBox[{"4", " ", "y", " ", 
   SuperscriptBox["z", "3"]}], "+", 
  SuperscriptBox["z", "4"]}]], "Output",
 CellChangeTimes->{3.453375304578125*^9, 3.4598324770625*^9, 
  3.46267895778125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], 
     SubscriptBox["x", "i"]}], ")"}], "4"], "=", 
  RowBox[{
   RowBox[{
    UnderscriptBox["\[Sum]", "i"], 
    SuperscriptBox[
     SubscriptBox["x", "i"], "4"]}], "+", 
   RowBox[{"4", 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      RowBox[{"i", "\[NotEqual]", "j"}]], 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["x", "i"], "3"], 
      SubscriptBox["x", "j"]}]}]}], "+", 
   RowBox[{"6", 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      RowBox[{"i", "<", "j"}]], 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["x", "i"], "2"], 
      SuperscriptBox[
       SubscriptBox["x", "j"], "2"]}]}]}], "+", 
   RowBox[{"12", 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      RowBox[{
       RowBox[{"j", "<", "k"}], "\[IndentingNewLine]", 
       RowBox[{"i", "\[NotEqual]", 
        RowBox[{"j", " ", "et"}], " ", "\[NotEqual]", "k"}]}]], 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["x", "i"], "2"], 
      SubscriptBox["x", "j"], 
      SubscriptBox["x", "k"]}]}]}], "+", 
   RowBox[{"24", 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      RowBox[{"i", "<", "j"}]], 
     RowBox[{
      SubscriptBox["x", "i"], 
      SubscriptBox["x", "j"], 
      SubscriptBox["x", "k"], 
      SubscriptBox["x", "l"]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.4626782785*^9, 3.462678569328125*^9}, {
  3.46267862446875*^9, 3.462678737609375*^9}, {3.462678794265625*^9, 
  3.46267888034375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex12)", "Subsubtitle",
 CellChangeTimes->{{3.45983249896875*^9, 3.459832499734375*^9}, {
   3.461165250625*^9, 3.461165259546875*^9}, {3.46141246734375*^9, 
   3.461412467921875*^9}, 3.461414777859375*^9, {3.462678901*^9, 
   3.46267890465625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "y", "+", "z"}], ")"}], "^", "4"}], "]"}]}], ";", 
  RowBox[{"Collect", "[", 
   RowBox[{"P", ",", "x"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Coefficient", "[", 
  RowBox[{"P", ",", 
   RowBox[{"x", "^", "2"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.453375389171875*^9, 3.45337541153125*^9}, {
  3.453379320953125*^9, 3.4533793684375*^9}, {3.45337942915625*^9, 
  3.45337944559375*^9}, {3.4598325563125*^9, 3.4598325676875*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "4"], "+", 
  SuperscriptBox["y", "4"], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["y", "3"], " ", "z"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["y", "2"], " ", 
   SuperscriptBox["z", "2"]}], "+", 
  RowBox[{"4", " ", "y", " ", 
   SuperscriptBox["z", "3"]}], "+", 
  SuperscriptBox["z", "4"], "+", 
  RowBox[{
   SuperscriptBox["x", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", "y"}], "+", 
     RowBox[{"4", " ", "z"}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"6", " ", 
      SuperscriptBox["y", "2"]}], "+", 
     RowBox[{"12", " ", "y", " ", "z"}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["z", "2"]}]}], ")"}]}], "+", 
  RowBox[{"x", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["y", "3"]}], "+", 
     RowBox[{"12", " ", 
      SuperscriptBox["y", "2"], " ", "z"}], "+", 
     RowBox[{"12", " ", "y", " ", 
      SuperscriptBox["z", "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["z", "3"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.453379341296875*^9, 3.45337936996875*^9}, {
   3.45337943728125*^9, 3.45337944684375*^9}, 3.459832891171875*^9, 
   3.461166128609375*^9, 3.462678972984375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"6", " ", 
   SuperscriptBox["y", "2"]}], "+", 
  RowBox[{"12", " ", "y", " ", "z"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["z", "2"]}]}]], "Output",
 CellChangeTimes->{{3.453379341296875*^9, 3.45337936996875*^9}, {
   3.45337943728125*^9, 3.45337944684375*^9}, 3.459832891171875*^9, 
   3.461166128609375*^9, 3.46267897303125*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex13)", "Subsubtitle",
 CellChangeTimes->{{3.4598744185*^9, 3.45987441903125*^9}, {
  3.461165271015625*^9, 3.4611652728125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"S", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "^", "2"}], "b", 
     RowBox[{"(", 
      RowBox[{"a", "-", "b"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "c", 
     RowBox[{"(", 
      RowBox[{"b", "-", "c"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"c", "^", "2"}], "a", 
     RowBox[{"(", 
      RowBox[{"c", "-", "a"}], ")"}]}]}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{"S2", "=", 
  RowBox[{"S", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "->", 
      RowBox[{"y", "+", "z"}]}], ",", 
     RowBox[{"b", "->", 
      RowBox[{"x", "+", "z"}]}], ",", 
     RowBox[{"c", "->", 
      RowBox[{"x", "+", "y"}]}]}], "}"}]}]}], "\n", 
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"S2", "/", 
    RowBox[{"(", 
     RowBox[{"x", " ", "y", " ", "z"}], ")"}]}], "/", "2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.459874451546875*^9, 3.459874454515625*^9}, 
   3.4598744990625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"a", "-", "b"}], ")"}], " ", "b"}], "+", 
  RowBox[{
   SuperscriptBox["b", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"b", "-", "c"}], ")"}], " ", "c"}], "+", 
  RowBox[{"a", " ", 
   SuperscriptBox["c", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "+", "c"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.45987447109375*^9, 3.459874500453125*^9}, 
   3.462679010234375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "y"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "z"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "y"}], "+", "z"}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "y"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"x", "-", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"y", "+", "z"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "x"}], "+", "y"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"x", "+", "z"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"y", "+", "z"}], ")"}], "2"]}]}]], "Output",
 CellChangeTimes->{{3.45987447109375*^9, 3.459874500453125*^9}, 
   3.46267901028125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "x"}], "+", 
  FractionBox[
   SuperscriptBox["x", "2"], "y"], "-", "y", "+", 
  FractionBox[
   SuperscriptBox["y", "2"], "z"], "-", "z", "+", 
  FractionBox[
   SuperscriptBox["z", "2"], "x"]}]], "Output",
 CellChangeTimes->{{3.45987447109375*^9, 3.459874500453125*^9}, 
   3.462679010328125*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex14)", "Subsubtitle",
 CellChangeTimes->{{3.45987451946875*^9, 3.459874520984375*^9}, {
  3.461165297578125*^9, 3.46116529915625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{
    RowBox[{"x", 
     RowBox[{"(", 
      RowBox[{"x", "+", "y"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", 
       RowBox[{"2", "y"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", 
       RowBox[{"3", "y"}]}], ")"}]}], "+", 
    RowBox[{"y", "^", "4"}]}]}], ";", 
  RowBox[{"Factor", "[", "a", "]"}]}]], "Input",
 CellChangeTimes->{{3.45987454296875*^9, 3.45987463828125*^9}, {3.45987468*^9,
   3.4598747005625*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"3", " ", "x", " ", "y"}], "+", 
    SuperscriptBox["y", "2"]}], ")"}], "2"]], "Output",
 CellChangeTimes->{
  3.459874605265625*^9, 3.459874641265625*^9, {3.4598746811875*^9, 
   3.4598747094375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex15)", "Subsubtitle",
 CellChangeTimes->{{3.459874716125*^9, 3.45987471675*^9}, {3.46116530225*^9, 
  3.461165306890625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "-", 
    RowBox[{"2", 
     RowBox[{"y", "^", "2"}]}]}], ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"Sqrt", "[", "2", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.461166164765625*^9, 3.46116616621875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "x"}], "+", 
     RowBox[{
      SqrtBox["2"], " ", "y"}]}], ")"}]}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "+", 
    RowBox[{
     SqrtBox["2"], " ", "y"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.45987514353125*^9, 3.46116616696875*^9, 
  3.462679053078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"x", "^", "3"}], "+", 
     RowBox[{"y", "^", "3"}]}], "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{"A", ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", "3", "]"}], ",", "I"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.459874747046875*^9, 3.45987477890625*^9}, {
   3.459874881625*^9, 3.459874886609375*^9}, {3.45987492425*^9, 
   3.459874936328125*^9}, {3.45987498271875*^9, 3.4598750021875*^9}, 
   3.45987509165625*^9, {3.4598751505625*^9, 3.459875231109375*^9}, 
   3.46116619121875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["x", "2"], "-", 
    RowBox[{"x", " ", "y"}], "+", 
    SuperscriptBox["y", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.459875065734375*^9, 3.45987510728125*^9, {3.4598751796875*^9, 
   3.459875200453125*^9}, 3.459875233078125*^9, 3.4626790559375*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"x", "+", "y"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], "+", 
       SqrtBox["3"]}], ")"}], " ", "y"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "x"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", 
       SqrtBox["3"]}], ")"}], " ", "y"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.459875065734375*^9, 3.45987510728125*^9, {3.4598751796875*^9, 
   3.459875200453125*^9}, 3.459875233078125*^9, 3.46267905603125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"En", " ", "fait", " ", 
     SuperscriptBox["x", "3"]}], "+", 
    SuperscriptBox["y", "3"]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "y"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "jy"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", 
       RowBox[{
        SuperscriptBox["j", "2"], "y"}]}], ")"}], " ", "avec", " ", "j"}], 
    "=", 
    SuperscriptBox["e", 
     RowBox[{"2", 
      RowBox[{"i\[CapitalPi]", "/", "3"}]}]]}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{{3.46267907496875*^9, 3.462679125203125*^9}, {
  3.46267923084375*^9, 3.462679276046875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"x", "^", "3"}], "+", 
     RowBox[{"y", "^", "3"}], "+", 
     RowBox[{"z", "^", "3"}]}], "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{"A", ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", "3", "]"}], ",", "I"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.461166215640625*^9, 3.46116622046875*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "3"], "+", 
  SuperscriptBox["y", "3"], "+", 
  SuperscriptBox["z", "3"]}]], "Output",
 CellChangeTimes->{3.461166221796875*^9, 3.462679508625*^9}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "3"], "+", 
  SuperscriptBox["y", "3"], "+", 
  SuperscriptBox["z", "3"]}]], "Output",
 CellChangeTimes->{3.461166221796875*^9, 3.462679508734375*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"On", " ", "peut", " ", "prouver", " ", "que", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   SuperscriptBox["y", "3"], "+", 
   RowBox[{
    SuperscriptBox["z", "3"], "est", " ", "irr\[EAcute]ductible"}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{{3.46116623528125*^9, 3.4611662559375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], "+", 
     RowBox[{"y", "^", "3"}], "+", 
     RowBox[{"z", "^", "3"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{"x", "-", "y"}]}], ",", 
      RowBox[{"y", "\[Rule]", 
       RowBox[{"y", "-", "z"}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{"z", "-", "x"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4611662840625*^9, 3.461166347171875*^9}, {
  3.461166377359375*^9, 3.461166382375*^9}, {3.461166519875*^9, 
  3.461166529015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "3"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", "y"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", "z"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"y", "-", "z"}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.46116638365625*^9, {3.461166524796875*^9, 3.461166530859375*^9}, 
   3.46267951928125*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"La", " ", "transformation", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{"x", "-", "y"}]}], ",", 
      RowBox[{"y", "\[Rule]", 
       RowBox[{"y", "-", "z"}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{"z", "-", "x"}]}]}], "}"}], " ", "rend", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   SuperscriptBox["y", "3"], "+", 
   RowBox[{
    SuperscriptBox["z", "3"], 
    RowBox[{"r\[EAcute]ductible", "."}]}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{{3.461166439359375*^9, 3.4611664604375*^9}, {
   3.46116653459375*^9, 3.461166535671875*^9}, 3.462679565*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"y", "^", "2"}], "+", 
     RowBox[{"z", "^", "2"}]}], "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{"A", ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", "2", "]"}], ",", "I"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4611666224375*^9, 3.46116663146875*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "2"], "+", 
  SuperscriptBox["y", "2"], "+", 
  SuperscriptBox["z", "2"]}]], "Output",
 CellChangeTimes->{3.4611666339375*^9, 3.462679647578125*^9}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "2"], "+", 
  SuperscriptBox["y", "2"], "+", 
  SuperscriptBox["z", "2"]}]], "Output",
 CellChangeTimes->{3.4611666339375*^9, 3.462679647640625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"On", " ", "peut", " ", "prouver", " ", "que", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  SuperscriptBox["y", "2"], "+", 
  RowBox[{
   SuperscriptBox["z", "2"], "est", " ", "irr\[EAcute]ductible"}]}]], "Text",
 CellChangeTimes->{3.461166651125*^9},
 FontFamily->"Times New Roman"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"y", "^", "2"}], "+", 
    RowBox[{"z", "^", "2"}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", " ", "y"}], "+", 
       RowBox[{"y", " ", "z"}], "+", 
       RowBox[{"z", " ", "x"}]}], ")"}]}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.461166714375*^9, 3.461166739484375*^9}}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"x", "+", "y", "+", "z"}], ")"}], "2"]], "Output",
 CellChangeTimes->{{3.461166726234375*^9, 3.46116674021875*^9}, 
   3.462679649609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"y", "^", "2"}], "+", 
     RowBox[{"z", "^", "2"}], "-", 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", " ", "y"}], "+", 
        RowBox[{"y", " ", "z"}], "+", 
        RowBox[{"z", " ", "x"}]}], ")"}]}]}], "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{"A", ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", "2", "]"}], ",", "I"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.461166756390625*^9, 3.461166773765625*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "2"], "-", 
  RowBox[{"2", " ", "x", " ", "y"}], "+", 
  SuperscriptBox["y", "2"], "-", 
  RowBox[{"2", " ", "x", " ", "z"}], "-", 
  RowBox[{"2", " ", "y", " ", "z"}], "+", 
  SuperscriptBox["z", "2"]}]], "Output",
 CellChangeTimes->{{3.461166764390625*^9, 3.461166775703125*^9}, 
   3.46267969315625*^9}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "2"], "-", 
  RowBox[{"2", " ", "x", " ", "y"}], "+", 
  SuperscriptBox["y", "2"], "-", 
  RowBox[{"2", " ", "x", " ", "z"}], "-", 
  RowBox[{"2", " ", "y", " ", "z"}], "+", 
  SuperscriptBox["z", "2"]}]], "Output",
 CellChangeTimes->{{3.461166764390625*^9, 3.461166775703125*^9}, 
   3.462679693265625*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"On", " ", "peut", " ", "prouver", " ", "que", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   SuperscriptBox["y", "2"], "+", 
   SuperscriptBox["z", "2"], "-", 
   RowBox[{"2", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", " ", "y"}], "+", 
      RowBox[{"y", " ", "z"}], "+", 
      RowBox[{"z", " ", "x"}]}], ")"}], "est", " ", "irr\[EAcute]ductible"}]}],
  FontFamily->"Times New Roman"]], "Text",
 CellChangeTimes->{3.461166796828125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["y", "2"], "+", 
     SuperscriptBox["z", "2"], "-", 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", " ", "y"}], "+", 
        RowBox[{"y", " ", "z"}], "+", 
        RowBox[{"z", " ", "x"}]}], ")"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "\[Rule]", 
       RowBox[{"x", "^", "2"}]}], ",", 
      RowBox[{"y", "\[Rule]", 
       RowBox[{"y", "^", "2"}]}], ",", 
      RowBox[{"z", "\[Rule]", 
       RowBox[{"z", "^", "2"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46116687346875*^9, 3.46116689084375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "-", "y", "-", "z"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "+", "y", "-", "z"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "-", "y", "+", "z"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"x", "+", "y", "+", "z"}], ")"}]}]], "Output",
 CellChangeTimes->{3.461166891234375*^9, 3.46267969534375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Factor", "[", 
    RowBox[{
     RowBox[{"x", "^", "4"}], "+", 
     RowBox[{"y", "^", "4"}]}], "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{"A", ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Sqrt", "[", "2", "]"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{"A", ",", 
   RowBox[{"Extension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", "2", "]"}], ",", "I"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4611669328125*^9, 3.461166960578125*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["x", "4"], "+", 
  SuperscriptBox["y", "4"]}]], "Output",
 CellChangeTimes->{{3.46116694065625*^9, 3.461166961546875*^9}, 
   3.462679698234375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{
      SqrtBox["2"], " ", "x", " ", "y"}], "-", 
     SuperscriptBox["y", "2"]}], ")"}]}], " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{
     SqrtBox["2"], " ", "x", " ", "y"}], "+", 
    SuperscriptBox["y", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.46116694065625*^9, 3.461166961546875*^9}, 
   3.46267969825*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}], " ", "x"}], "+", 
    RowBox[{
     SqrtBox["2"], " ", "y"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}], " ", "x"}], "+", 
    RowBox[{
     SqrtBox["2"], " ", "y"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], " ", "x"}], "+", 
    RowBox[{
     SqrtBox["2"], " ", "y"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", "x"}], "+", 
    RowBox[{
     SqrtBox["2"], " ", "y"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.46116694065625*^9, 3.461166961546875*^9}, 
   3.462679698359375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ex16)", "Subsubtitle",
 CellChangeTimes->{{3.459875512796875*^9, 3.459875514296875*^9}, {
  3.4611653175*^9, 3.46116531940625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"TrigExpand", "[", 
     RowBox[{"Cos", "[", 
      RowBox[{"7", " ", "t"}], "]"}], "]"}], "/.", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", "t", "]"}], "^", "p_"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], "^", "2"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "/", "2"}], ")"}]}]}], " ", ")"}]}], " ", "//", " ", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.459876088953125*^9, 3.459876163734375*^9}, {
  3.4598765748125*^9, 3.459876582890625*^9}, {3.459876670609375*^9, 
  3.4598767519375*^9}, {3.459876953296875*^9, 3.45987695596875*^9}, {
  3.459877110375*^9, 3.459877124734375*^9}, {3.461167078703125*^9, 
  3.461167083578125*^9}, {3.462679815828125*^9, 3.462679817015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "7"}], " ", 
   RowBox[{"Cos", "[", "t", "]"}]}], "+", 
  RowBox[{"56", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "3"]}], "-", 
  RowBox[{"112", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "5"]}], "+", 
  RowBox[{"64", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "7"]}]}]], "Output",
 CellChangeTimes->{
  3.459876113390625*^9, 3.459876144921875*^9, {3.459876512171875*^9, 
   3.45987658571875*^9}, {3.459876717640625*^9, 3.4598767569375*^9}, 
   3.45987695753125*^9, {3.45987711778125*^9, 3.45987712684375*^9}, 
   3.461167088734375*^9, 3.46116725496875*^9, 3.46116757484375*^9, 
   3.4626797401875*^9, {3.462679786921875*^9, 3.462679818453125*^9}, 
   3.46267988059375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"P", "+", "1"}], "/.", 
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], "\[Rule]", 
    RowBox[{"x", "/", "2"}]}]}], "//", "Factor"}]], "Input",
 CellChangeTimes->{{3.46116749803125*^9, 3.461167607953125*^9}, 
   3.4611677506875*^9, {3.46267977465625*^9, 3.462679875*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "x"}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"2", " ", "x"}], "-", 
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["x", "3"]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.461167570984375*^9, 3.461167576890625*^9}, 
   3.461167608640625*^9, 3.462679742171875*^9, {3.462679776234375*^9, 
   3.462679823609375*^9}, {3.4626798620625*^9, 3.462679882046875*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   StyleBox["2",
    FontFamily->"Times New Roman"], 
   StyleBox["cos",
    FontFamily->"Times New Roman"], 
   StyleBox[" ",
    FontFamily->"Times New Roman"], 
   StyleBox[
    RowBox[{"(", 
     RowBox[{"\[Pi]", "/", "7"}], ")"}],
    FontFamily->"Times New Roman"], 
   StyleBox[" ",
    FontFamily->"Times New Roman"], 
   StyleBox["est",
    FontFamily->"Times New Roman"], 
   StyleBox[" ",
    FontFamily->"Times New Roman"], 
   StyleBox["donc",
    FontFamily->"Times New Roman"], 
   StyleBox[" ",
    FontFamily->"Times New Roman"], 
   StyleBox["solution",
    FontFamily->"Times New Roman"], 
   StyleBox[" ",
    FontFamily->"Times New Roman"], 
   StyleBox["de",
    FontFamily->"Times New Roman"], 
   StyleBox["  ",
    FontFamily->"Times New Roman"], 
   SuperscriptBox["x", "3"]}], 
  StyleBox["=",
   FontFamily->"Times New Roman"], 
  StyleBox[
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"2", "x"}], "-", "1"}],
   FontFamily->"Times New Roman"]}]], "Text",
 CellChangeTimes->{{3.4598764488125*^9, 3.4598764723125*^9}, 
   3.46116726853125*^9, {3.46116762596875*^9, 3.461167629140625*^9}, {
   3.462680668546875*^9, 3.462680685625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "-", 
     RowBox[{"2", " ", "x"}], "-", 
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["x", "3"]}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4611672720625*^9, 3.46116728975*^9}, {
  3.46116732540625*^9, 3.461167364109375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", "3"], "+", 
      FractionBox[
       SuperscriptBox["7", 
        RowBox[{"2", "/", "3"}]], 
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"3", " ", "\[ImaginaryI]", " ", 
              SqrtBox["3"]}]}], ")"}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}]], "+", 
      RowBox[{
       FractionBox["1", "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["7", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"3", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", "3"], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["7", "2"], ")"}], 
         RowBox[{"2", "/", "3"}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}]}], 
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"3", " ", "\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}]], "-", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["3"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["7", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"3", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", "3"], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["7", "2"], ")"}], 
         RowBox[{"2", "/", "3"}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}]}], 
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"3", " ", "\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}]], "-", 
      RowBox[{
       FractionBox["1", "6"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["3"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["7", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"3", " ", "\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.461167286703125*^9, 3.461167290140625*^9}, {
   3.461167352265625*^9, 3.461167365421875*^9}, 3.462679954*^9}]
}, Open  ]],

Cell["\<\
L' une de ces trois solutions est 2 cos (\[Pi]/7) ! Mais on peut \
d\[EAcute]montrer qu' il est impossible de l'\[EAcute]crire avec des radicaux \
R\[CapitalEAcute]ELS.\
\>", "Text",
 CellChangeTimes->{{3.461167374203125*^9, 3.461167400078125*^9}, {
   3.4611684111875*^9, 3.461168465265625*^9}, {3.462679949125*^9, 
   3.462679998171875*^9}, 3.462680086953125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"TrigExpand", "[", 
     RowBox[{"Cos", "[", 
      RowBox[{"9", "t"}], "]"}], "]"}], "/.", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", "t", "]"}], "^", "p_"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], "^", "2"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "/", "2"}], ")"}]}]}], " ", ")"}]}], " ", "//", " ", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.459876088953125*^9, 3.459876163734375*^9}, {
  3.4598765748125*^9, 3.459876582890625*^9}, {3.459876670609375*^9, 
  3.4598767519375*^9}, {3.459876953296875*^9, 3.45987695596875*^9}, {
  3.459877110375*^9, 3.459877124734375*^9}, {3.461167078703125*^9, 
  3.461167083578125*^9}, {3.4611676545*^9, 3.461167658546875*^9}, {
  3.462680040046875*^9, 3.4626800405*^9}, {3.462680277421875*^9, 
  3.462680278328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"9", " ", 
   RowBox[{"Cos", "[", "t", "]"}]}], "-", 
  RowBox[{"120", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "3"]}], "+", 
  RowBox[{"432", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "5"]}], "-", 
  RowBox[{"576", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "7"]}], "+", 
  RowBox[{"256", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "9"]}]}]], "Output",
 CellChangeTimes->{
  3.459876113390625*^9, 3.459876144921875*^9, {3.459876512171875*^9, 
   3.45987658571875*^9}, {3.459876717640625*^9, 3.4598767569375*^9}, 
   3.45987695753125*^9, {3.45987711778125*^9, 3.45987712684375*^9}, 
   3.461167088734375*^9, 3.46116725496875*^9, 3.46116757484375*^9, 
   3.461167664125*^9, 3.462680119796875*^9, {3.462680268875*^9, 
   3.462680281359375*^9}, 3.462680327015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"P", "+", "1"}], "/.", 
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], "\[Rule]", 
    RowBox[{"x", "/", "2"}]}]}], "//", "Factor"}]], "Input",
 CellChangeTimes->{{3.46116749803125*^9, 3.461167607953125*^9}, 
   3.46116768459375*^9, {3.462680115390625*^9, 3.462680134625*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", "x"}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     RowBox[{"3", " ", "x"}], "+", 
     SuperscriptBox["x", "3"]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.461167570984375*^9, 3.461167576890625*^9}, 
   3.461167608640625*^9, {3.46116767209375*^9, 3.461167685921875*^9}, {
   3.46268011709375*^9, 3.462680137828125*^9}, 3.46268033009375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    StyleBox["2",
     FontFamily->"Times New Roman"], 
    StyleBox["cos",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"(", 
      RowBox[{"\[Pi]", "/", "9"}], ")"}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["est",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["donc",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["solution",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["de",
     FontFamily->"Times New Roman"], 
    StyleBox["  ",
     FontFamily->"Times New Roman"], 
    SuperscriptBox["x", "3"]}], 
   StyleBox["=",
    FontFamily->"Times New Roman"], 
   StyleBox[
    RowBox[{
     RowBox[{"3", "x"}], " ", "+", " ", "1"}],
    FontFamily->"Times New Roman"]}], 
  StyleBox[" ",
   FontFamily->"Times New Roman"], 
  StyleBox[";",
   FontFamily->"Times New Roman"], 
  StyleBox[" ",
   FontFamily->"Times New Roman"], 
  StyleBox[
   RowBox[{"on", " ", "peut", " ", "aussi", " ", "d\[EAcute]montrer", " ", 
    RowBox[{"qu", "'"}], " ", "il", " ", "est", " ", "impossible", " ", "de", 
    " ", 
    RowBox[{"l", "'"}], "\[EAcute]crire", " ", "avec", " ", "des", " ", 
    "radicaux", " ", 
    RowBox[{"R\[CapitalEAcute]ELS", ".", "\[IndentingNewLine]", "Ce"}], " ", 
    "r\[EAcute]sultat", " ", "est", " ", "historiquement", " ", "important", 
    " ", "car", " ", "il", " ", "prouve", " ", 
    RowBox[{"l", "'"}], "impossiblit\[EAcute]", " ", "de", " ", "la", " ", 
    "trisection", " ", "de", " ", 
    RowBox[{"l", "'"}], "angle", " ", "de", " ", "30", "\[Degree]", " ", 
    "\[AGrave]", " ", 
    RowBox[{"l", "'"}], "aide", " ", "de", " ", "la", " ", "r\[EHat]gle", " ",
     "et", " ", "du", " ", 
    RowBox[{"compas", "."}]}],
   FontFamily->"Times New Roman"]}]], "Text",
 CellChangeTimes->{{3.46116770209375*^9, 3.461167710375*^9}, {
  3.46268019615625*^9, 3.46268020259375*^9}, {3.462680253796875*^9, 
  3.462680263125*^9}, {3.462680377390625*^9, 3.462680442921875*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1352, 663},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"PrintingMargins"->{{54.000000584999995`, \
54.000000584999995`}, {56.692913999999995`, 56.692913999999995`}}},
Magnification->1.5000001192092896`,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 256, 5, 74, "Subtitle"],
Cell[826, 29, 91, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[942, 34, 160, 3, 43, "Input"],
Cell[1105, 39, 78, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1220, 45, 93, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[1338, 50, 332, 6, 43, "Input"],
Cell[1673, 58, 310, 5, 42, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2032, 69, 139, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2196, 75, 462, 11, 71, "Input"],
Cell[2661, 88, 392, 8, 45, "Output"],
Cell[3056, 98, 447, 11, 63, "Output"]
}, Open  ]],
Cell[3518, 112, 551, 13, 43, "Text"],
Cell[CellGroupData[{
Cell[4094, 129, 633, 13, 71, "Input"],
Cell[4730, 144, 378, 9, 62, "Output"],
Cell[5111, 155, 290, 4, 45, "Output"]
}, Open  ]],
Cell[5416, 162, 317, 9, 44, "Text"],
Cell[CellGroupData[{
Cell[5758, 175, 544, 14, 71, "Input"],
Cell[6305, 191, 245, 4, 62, "Output"],
Cell[6553, 197, 231, 3, 45, "Output"]
}, Open  ]],
Cell[6799, 203, 431, 11, 43, "Text"],
Cell[CellGroupData[{
Cell[7255, 218, 457, 10, 43, "Input"],
Cell[7715, 230, 419, 13, 63, "Output"]
}, Open  ]],
Cell[8149, 246, 150, 2, 41, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8336, 253, 92, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[8453, 258, 606, 15, 98, "Input"],
Cell[9062, 275, 305, 5, 45, "Output"],
Cell[9370, 282, 245, 3, 42, "Output"],
Cell[9618, 287, 266, 4, 45, "Output"]
}, Open  ]],
Cell[9899, 294, 552, 13, 44, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10488, 312, 92, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10605, 317, 376, 8, 43, "Input"],
Cell[10984, 327, 243, 5, 47, "Output"]
}, Open  ]],
Cell[11242, 335, 591, 18, 53, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11870, 358, 93, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[11988, 363, 1124, 31, 152, "Input"],
Cell[13115, 396, 389, 11, 54, "Output"],
Cell[13507, 409, 529, 17, 77, "Output"],
Cell[14039, 428, 821, 24, 48, "Output"],
Cell[14863, 454, 278, 5, 42, "Output"],
Cell[15144, 461, 318, 6, 45, "Output"]
}, Open  ]],
Cell[15477, 470, 1196, 28, 71, "Text"],
Cell[CellGroupData[{
Cell[16698, 502, 331, 10, 48, "Input"],
Cell[17032, 514, 1097, 41, 76, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18178, 561, 87, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[18290, 566, 315, 8, 43, "Input"],
Cell[18608, 576, 115, 2, 42, "Output"]
}, Open  ]],
Cell[18738, 581, 351, 9, 43, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19126, 595, 27, 0, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[19178, 599, 330, 8, 43, "Input"],
Cell[19511, 609, 156, 2, 42, "Output"]
}, Open  ]],
Cell[19682, 614, 411, 7, 41, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20130, 626, 92, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[20247, 631, 353, 7, 98, "Input"],
Cell[20603, 640, 288, 5, 42, "Output"],
Cell[20894, 647, 209, 3, 42, "Output"],
Cell[21106, 652, 214, 3, 42, "Output"]
}, Open  ]],
Cell[21335, 658, 232, 5, 41, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21604, 668, 90, 1, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[21719, 673, 811, 26, 43, "Input"],
Cell[22533, 701, 1126, 41, 132, "Output"]
}, Open  ]],
Cell[23674, 745, 162, 3, 41, "Text"],
Cell[CellGroupData[{
Cell[23861, 752, 285, 9, 43, "Input"],
Cell[24149, 763, 189, 5, 62, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24387, 774, 138, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[24550, 780, 292, 7, 43, "Input"],
Cell[24845, 789, 2638, 74, 102, "Output"]
}, Open  ]],
Cell[27498, 866, 1565, 53, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29100, 924, 254, 4, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[29379, 932, 567, 14, 71, "Input"],
Cell[29949, 948, 1305, 40, 48, "Output"],
Cell[31257, 990, 372, 9, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31678, 1005, 135, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[31838, 1011, 954, 32, 98, "Input"],
Cell[32795, 1045, 493, 16, 45, "Output"],
Cell[33291, 1063, 813, 29, 45, "Output"],
Cell[34107, 1094, 337, 10, 70, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34493, 1110, 141, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[34659, 1116, 493, 16, 43, "Input"],
Cell[35155, 1134, 308, 9, 50, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35512, 1149, 132, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[35669, 1155, 313, 9, 43, "Input"],
Cell[35985, 1166, 354, 13, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36376, 1184, 682, 17, 71, "Input"],
Cell[37061, 1203, 387, 11, 48, "Output"],
Cell[37451, 1216, 741, 23, 62, "Output"]
}, Open  ]],
Cell[38207, 1242, 699, 23, 48, "Text"],
Cell[CellGroupData[{
Cell[38931, 1269, 488, 14, 71, "Input"],
Cell[39422, 1285, 193, 5, 45, "Output"],
Cell[39618, 1292, 196, 5, 45, "Output"]
}, Open  ]],
Cell[39829, 1300, 360, 9, 44, "Text"],
Cell[CellGroupData[{
Cell[40214, 1313, 620, 18, 43, "Input"],
Cell[40837, 1333, 344, 11, 42, "Output"]
}, Open  ]],
Cell[41196, 1347, 681, 19, 44, "Text"],
Cell[CellGroupData[{
Cell[41902, 1370, 486, 14, 71, "Input"],
Cell[42391, 1386, 194, 5, 45, "Output"],
Cell[42588, 1393, 194, 5, 45, "Output"]
}, Open  ]],
Cell[42797, 1401, 317, 8, 44, "Text"],
Cell[CellGroupData[{
Cell[43139, 1413, 436, 13, 43, "Input"],
Cell[43578, 1428, 199, 5, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43814, 1438, 675, 21, 71, "Input"],
Cell[44492, 1461, 352, 9, 45, "Output"],
Cell[44847, 1472, 353, 9, 45, "Output"]
}, Open  ]],
Cell[45215, 1484, 495, 14, 44, "Text"],
Cell[CellGroupData[{
Cell[45735, 1502, 714, 22, 48, "Input"],
Cell[46452, 1526, 361, 10, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46850, 1541, 631, 18, 98, "Input"],
Cell[47484, 1561, 189, 5, 45, "Output"],
Cell[47676, 1568, 501, 17, 50, "Output"],
Cell[48180, 1587, 946, 34, 62, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49175, 1627, 137, 2, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[49337, 1633, 906, 23, 43, "Input"],
Cell[50246, 1658, 779, 20, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51062, 1683, 318, 8, 43, "Input"],
Cell[51383, 1693, 509, 13, 62, "Output"]
}, Open  ]],
Cell[51907, 1709, 1212, 41, 45, "Text"],
Cell[CellGroupData[{
Cell[53144, 1754, 348, 10, 48, "Input"],
Cell[53495, 1766, 3455, 110, 241, "Output"]
}, Open  ]],
Cell[56965, 1879, 375, 7, 41, "Text"],
Cell[CellGroupData[{
Cell[57365, 1890, 989, 25, 43, "Input"],
Cell[58357, 1917, 873, 22, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59267, 1944, 323, 8, 43, "Input"],
Cell[59593, 1954, 596, 17, 62, "Output"]
}, Open  ]],
Cell[60204, 1974, 2271, 64, 71, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)