(* 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[ 83010, 2425] NotebookOptionsPosition[ 74741, 2157] NotebookOutlinePosition[ 75403, 2179] CellTagsIndexPosition[ 75360, 2176] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{ RowBox[{"TP", " ", "3"}], "-", RowBox[{ "INSTRUCTIONS", " ", "R\[CapitalEAcute]P\[CapitalEAcute]T\[CapitalEAcute]ES"}], "-", "CORRIG\[CapitalEAcute]"}], "Subtitle"], "\n"}]], "Input", CellChangeTimes->{{3.459923848640625*^9, 3.459923862390625*^9}, { 3.459932709796875*^9, 3.459932710625*^9}, {3.46000021615625*^9, 3.46000021884375*^9}, {3.461167979390625*^9, 3.461167979953125*^9}, { 3.4643500185*^9, 3.46435004265625*^9}}], Cell[CellGroupData[{ Cell["Ex1) b)", "Subsubtitle", CellChangeTimes->{{3.459931302390625*^9, 3.459931303*^9}, { 3.459944580046875*^9, 3.459944608984375*^9}, {3.459945384046875*^9, 3.4599453845*^9}, {3.460000235953125*^9, 3.460000236359375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "10"}], " ", ";", RowBox[{"u", "=", "1"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"a", " ", "u"}]}], ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.45993655703125*^9, 3.45993656440625*^9}, 3.459944642890625*^9, {3.4599447080625*^9, 3.459944712265625*^9}, 3.46008269534375*^9, {3.462718404609375*^9, 3.462718405765625*^9}}], Cell[BoxData[ SuperscriptBox["a", "10"]], "Output", CellChangeTimes->{3.459936558171875*^9, 3.459945125765625*^9, 3.462712409171875*^9, 3.462718406984375*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "Si", " ", "la", " ", "valeur", " ", "de", " ", "u", " ", "au", " ", "sortir", " ", "de", " ", "la", " ", "k"}], "-", RowBox[{"i\[EGrave]me", " ", "boucle", " ", "est", " ", SubscriptBox["u", "k"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"on", " ", "a", " ", "la", " ", "relation", " ", "de", " ", RowBox[{"r\[EAcute]currence", ":", SubscriptBox["u", "k"]}]}], "=", SubscriptBox["au", RowBox[{"k", "-", "1"}]]}], ";", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", RowBox[{"a", ".", "a"}]}], "..."}], "a"}], " ", "=", RowBox[{ SuperscriptBox["a", "n"], "."}]}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459944716078125*^9, 3.45994479840625*^9}}], Cell["c)", "Text", CellChangeTimes->{{3.459944987421875*^9, 3.4599449879375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"u", "=", "a"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"u", "^", "a"}]}], ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.4599364315*^9, 3.459936458125*^9}, {3.4599366*^9, 3.459936626890625*^9}, {3.459945028921875*^9, 3.459945034703125*^9}, { 3.462718393484375*^9, 3.46271839534375*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", SuperscriptBox["a", "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"], ")"}], "a"]], "Output", CellChangeTimes->{3.459936459734375*^9, 3.459936611171875*^9, 3.4627183963125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox["Ici", FontFamily->"Times New Roman"], StyleBox[",", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], RowBox[{ RowBox[{ StyleBox[ SubscriptBox["u", "k"], FontFamily->"Times New Roman"], StyleBox["=", FontFamily->"Times New Roman"], SuperscriptBox[ RowBox[{ StyleBox["(", FontFamily->"Times New Roman"], SubscriptBox["u", RowBox[{"k", "-", "1"}]], StyleBox[")", FontFamily->"Times New Roman"]}], "a"]}], StyleBox[";", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox[ RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", RowBox[{ SuperscriptBox["a", SuperscriptBox["a", "n"]], "."}]}], FontFamily->"Times New Roman"]}]}]], "Text", CellChangeTimes->{{3.45994483696875*^9, 3.45994487796875*^9}, { 3.459944912546875*^9, 3.45994494365625*^9}, {3.46271356484375*^9, 3.46271357653125*^9}, {3.46435005878125*^9, 3.464350080859375*^9}}], Cell["d)", "Text", CellChangeTimes->{{3.4599450088125*^9, 3.45994500928125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"u", "=", "a"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"a", "^", "u"}]}], ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.459945047015625*^9, 3.459945049890625*^9}, { 3.46271838440625*^9, 3.46271838575*^9}}], Cell[BoxData[ SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["a", "a"]]]]]]]]]]], "Output", CellChangeTimes->{{3.459945117703125*^9, 3.45994513109375*^9}, { 3.462718377296875*^9, 3.46271838696875*^9}}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"Ici", ",", " ", RowBox[{ RowBox[{ SubscriptBox["u", "k"], "=", SuperscriptBox["a", SubscriptBox["u", RowBox[{"k", "-", "1"}]]]}], ";", " ", RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", SuperscriptBox["a", SuperscriptBox["a", SuperscriptBox["", RowBox[{"..", "a"}]]]], " ", "avec", " ", "n", " ", "\"\\"", " ", "dans", " ", RowBox[{"l", "'"}], RowBox[{"exposant", "."}]}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459945172109375*^9, 3.45994524771875*^9}, { 3.46435010684375*^9, 3.46435012425*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Ex2)", "Subsubtitle", CellChangeTimes->{{3.45994548896875*^9, 3.45994549365625*^9}, 3.4600315978125*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Evidemment", ",", RowBox[{ SubscriptBox["u", "n"], "=", RowBox[{ RowBox[{"1", "/", "3"}], " ", "pour", " ", "tout", " ", "n"}]}], ",", RowBox[{"mais", ":"}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459945502734375*^9, 3.459945509078125*^9}, 3.45994608884375*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "1000"}], ";", RowBox[{"u", "=", RowBox[{"1.", "/", "3"}]}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "u"}], "+", "1"}]}], ",", RowBox[{"{", " ", "n", "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.4599455516875*^9, 3.459945663265625*^9}, { 3.459945723609375*^9, 3.459945758765625*^9}, {3.46003156825*^9, 3.460031581046875*^9}, 3.462718522328125*^9, {3.464350419765625*^9, 3.464350437296875*^9}}], Cell[BoxData[ RowBox[{"-", "1.982689211303711`*^284"}]], "Output", CellChangeTimes->{{3.45994573809375*^9, 3.45994576215625*^9}, 3.46003157665625*^9, {3.46271851859375*^9, 3.46271852375*^9}, { 3.464350424921875*^9, 3.46435044334375*^9}}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"Ceci", " ", "provient", " ", "de", " ", "ce", " ", "que", " ", RowBox[{"1.", "/", "3"}], " ", RowBox[{"n", "'"}], "est", " ", "pas", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", RowBox[{"1", "/", "3"}], " ", "mais", " ", "\[AGrave]", " ", "0.3333333333333333`", "et", " ", "que", " ", "la", " ", "suite", " ", RowBox[{"(", SubscriptBox["u", "n"], ")"}], " ", "diverge", " ", "d\[EGrave]s", " ", "que", " ", SubscriptBox["u", "0"], " ", "est", " ", "diff\[EAcute]rent", " ", "de", " ", RowBox[{"1", "/", RowBox[{"3", " ", "."}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459945959234375*^9, 3.459945961078125*^9}, { 3.4599460025*^9, 3.45994603678125*^9}, {3.459946218765625*^9, 3.45994622846875*^9}, {3.460048171015625*^9, 3.460048176*^9}, { 3.462718544421875*^9, 3.46271854821875*^9}, {3.464350147578125*^9, 3.464350156984375*^9}, {3.4643501905625*^9, 3.464350192484375*^9}, 3.49473809821875*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Ex3)", "Subsubtitle", CellChangeTimes->{3.460031593890625*^9}], Cell["a)", "Text", CellChangeTimes->{{3.45994731709375*^9, 3.45994732075*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "6"}], ";", RowBox[{ RowBox[{"{", RowBox[{"F", ",", "G"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"F", ",", "\"\< \>\"", ",", "G"}], "]"}], ";", RowBox[{ RowBox[{"{", RowBox[{"F", ",", "G"}], "}"}], "=", RowBox[{"{", RowBox[{"G", ",", RowBox[{"F", "+", "G"}]}], "}"}]}]}], " ", ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "F"}]], "Input", CellChangeTimes->{{3.459946254140625*^9, 3.45994648578125*^9}, { 3.4599465351875*^9, 3.459946537359375*^9}, {3.459946588984375*^9, 3.459946630984375*^9}, {3.459946872078125*^9, 3.4599468759375*^9}, 3.45994745559375*^9, {3.46004268646875*^9, 3.460042702578125*^9}, { 3.460048123953125*^9, 3.46004812684375*^9}, {3.462718622609375*^9, 3.462718623875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[0, " ", 1], Editable->False]], "Print", CellChangeTimes->{ 3.459946591109375*^9, 3.4599466239375*^9, {3.460042696578125*^9, 3.460042703640625*^9}, 3.4600481310625*^9, {3.462718610171875*^9, 3.462718625328125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[1, " ", 1], Editable->False]], "Print", CellChangeTimes->{ 3.459946591109375*^9, 3.4599466239375*^9, {3.460042696578125*^9, 3.460042703640625*^9}, 3.4600481310625*^9, {3.462718610171875*^9, 3.462718625375*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2"}], SequenceForm[1, " ", 2], Editable->False]], "Print", CellChangeTimes->{ 3.459946591109375*^9, 3.4599466239375*^9, {3.460042696578125*^9, 3.460042703640625*^9}, 3.4600481310625*^9, {3.462718610171875*^9, 3.462718625421875*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "3"}], SequenceForm[2, " ", 3], Editable->False]], "Print", CellChangeTimes->{ 3.459946591109375*^9, 3.4599466239375*^9, {3.460042696578125*^9, 3.460042703640625*^9}, 3.4600481310625*^9, {3.462718610171875*^9, 3.46271862546875*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5"}], SequenceForm[3, " ", 5], Editable->False]], "Print", CellChangeTimes->{ 3.459946591109375*^9, 3.4599466239375*^9, {3.460042696578125*^9, 3.460042703640625*^9}, 3.4600481310625*^9, {3.462718610171875*^9, 3.462718625515625*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "8"}], SequenceForm[5, " ", 8], Editable->False]], "Print", CellChangeTimes->{ 3.459946591109375*^9, 3.4599466239375*^9, {3.460042696578125*^9, 3.460042703640625*^9}, 3.4600481310625*^9, {3.462718610171875*^9, 3.4627186255625*^9}}] }, Open ]], Cell[BoxData["8"], "Output", CellChangeTimes->{ 3.459946539296875*^9, 3.459946591296875*^9, 3.459946624046875*^9, { 3.460042696875*^9, 3.460042703921875*^9}, 3.46004813134375*^9, { 3.462718610484375*^9, 3.462718625609375*^9}}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ "A", " ", "la", " ", "sortie", " ", "de", " ", "la", " ", "boucle"}], ",", RowBox[{ "F", " ", "et", " ", "G", " ", "sont", " ", "\[EAcute]gaux", " ", "respectivement", " ", "\[AGrave]", " ", SubscriptBox["F", "n"], "et", " ", SubscriptBox["F", RowBox[{"n", "+", "1"}]]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459946802484375*^9, 3.45994681225*^9}, { 3.4599469324375*^9, 3.45994698759375*^9}}], Cell["b)", "Text", CellChangeTimes->{{3.4599473400625*^9, 3.4599473414375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "6"}], ";", RowBox[{ RowBox[{"{", RowBox[{"F", ",", "G"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"F", ",", "\"\< \>\"", ",", "G"}], "]"}], ";", RowBox[{"F", "=", "G"}], ";", RowBox[{"G", "=", RowBox[{"F", "+", "G"}]}]}], " ", ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "F"}]], "Input", CellChangeTimes->{{3.45994703721875*^9, 3.459947054109375*^9}, 3.459947452625*^9, {3.459949837890625*^9, 3.4599498399375*^9}, 3.46004271884375*^9, {3.462718664296875*^9, 3.462718665609375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[0, " ", 1], Editable->False]], "Print", CellChangeTimes->{3.4599470785625*^9, 3.460042721046875*^9, 3.462718666734375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2"}], SequenceForm[1, " ", 2], Editable->False]], "Print", CellChangeTimes->{3.4599470785625*^9, 3.460042721046875*^9, 3.46271866678125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "4"}], SequenceForm[2, " ", 4], Editable->False]], "Print", CellChangeTimes->{3.4599470785625*^9, 3.460042721046875*^9, 3.462718666828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "8"}], SequenceForm[4, " ", 8], Editable->False]], "Print", CellChangeTimes->{3.4599470785625*^9, 3.460042721046875*^9, 3.462718666875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "16"}], SequenceForm[8, " ", 16], Editable->False]], "Print", CellChangeTimes->{3.4599470785625*^9, 3.460042721046875*^9, 3.462718666921875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "32"}], SequenceForm[16, " ", 32], Editable->False]], "Print", CellChangeTimes->{3.4599470785625*^9, 3.460042721046875*^9, 3.46271866696875*^9}] }, Open ]], Cell[BoxData["32"], "Output", CellChangeTimes->{3.45994707875*^9, 3.46004272134375*^9, 3.462718667015625*^9}] }, Open ]], Cell["\<\ En effet, une fois que F a \[EAcute]t\[EAcute] modifi\[EAcute]e, elle a perdu \ sa valeur ant\[EAcute]rieure!\ \>", "Text", CellChangeTimes->{3.4599473005625*^9}], Cell["\<\ c) Une parade sans utiliser les couples : introduire une variable auxiliaire F1 qui conserve la valeur de F.\ \>", "Text", CellChangeTimes->{{3.459946243171875*^9, 3.45994624353125*^9}, 3.459947303640625*^9, {3.45994735846875*^9, 3.459947359234375*^9}, { 3.46004820071875*^9, 3.460048213328125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "6"}], ";", RowBox[{ RowBox[{"{", RowBox[{"F", ",", "G"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"F", ",", "\"\< \>\"", ",", "G"}], "]"}], ";", RowBox[{"F1", "=", "F"}], ";", RowBox[{"F", "=", "G"}], ";", RowBox[{"G", "=", RowBox[{"F1", "+", "G"}]}]}], " ", ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "F"}]], "Input", CellChangeTimes->{{3.45994738578125*^9, 3.45994739015625*^9}, { 3.459947421421875*^9, 3.45994744903125*^9}, {3.459949843171875*^9, 3.45994984534375*^9}, 3.4600427264375*^9, {3.462718700765625*^9, 3.462718702375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[0, " ", 1], Editable->False]], "Print", CellChangeTimes->{{3.45994741275*^9, 3.459947422359375*^9}, 3.460042728203125*^9, 3.462718703546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[1, " ", 1], Editable->False]], "Print", CellChangeTimes->{{3.45994741275*^9, 3.459947422359375*^9}, 3.460042728203125*^9, 3.46271870359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2"}], SequenceForm[1, " ", 2], Editable->False]], "Print", CellChangeTimes->{{3.45994741275*^9, 3.459947422359375*^9}, 3.460042728203125*^9, 3.462718703640625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "3"}], SequenceForm[2, " ", 3], Editable->False]], "Print", CellChangeTimes->{{3.45994741275*^9, 3.459947422359375*^9}, 3.460042728203125*^9, 3.4627187036875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5"}], SequenceForm[3, " ", 5], Editable->False]], "Print", CellChangeTimes->{{3.45994741275*^9, 3.459947422359375*^9}, 3.460042728203125*^9, 3.462718703734375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "8"}], SequenceForm[5, " ", 8], Editable->False]], "Print", CellChangeTimes->{{3.45994741275*^9, 3.459947422359375*^9}, 3.460042728203125*^9, 3.46271870378125*^9}] }, Open ]], Cell[BoxData["8"], "Output", CellChangeTimes->{{3.45994741296875*^9, 3.4599474225625*^9}, 3.4600427285*^9, 3.462718703828125*^9}] }, Open ]], Cell["d)", "Text", CellChangeTimes->{{3.459947631484375*^9, 3.459947634484375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "6"}], ";", RowBox[{ RowBox[{"{", RowBox[{"F", ",", "G"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"F", ",", "\"\< \>\"", ",", "G"}], "]"}], ";", RowBox[{"F", "=", RowBox[{"F", "+", "G"}]}], ";", RowBox[{"G", "=", RowBox[{"F", "+", "G"}]}]}], " ", ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "F"}]], "Input", CellChangeTimes->{{3.4599491018125*^9, 3.459949118984375*^9}, { 3.4599498480625*^9, 3.45994984975*^9}, 3.46004273265625*^9, { 3.462718771578125*^9, 3.4627187726875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1"}], SequenceForm[0, " ", 1], Editable->False]], "Print", CellChangeTimes->{3.459949123046875*^9, 3.460042733796875*^9, 3.46271877371875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2"}], SequenceForm[1, " ", 2], Editable->False]], "Print", CellChangeTimes->{3.459949123046875*^9, 3.460042733796875*^9, 3.46271877375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "5"}], SequenceForm[3, " ", 5], Editable->False]], "Print", CellChangeTimes->{3.459949123046875*^9, 3.460042733796875*^9, 3.4627187738125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "13"}], SequenceForm[8, " ", 13], Editable->False]], "Print", CellChangeTimes->{3.459949123046875*^9, 3.460042733796875*^9, 3.462718773859375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "34"}], SequenceForm[21, " ", 34], Editable->False]], "Print", CellChangeTimes->{3.459949123046875*^9, 3.460042733796875*^9, 3.46271877390625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"55", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "89"}], SequenceForm[55, " ", 89], Editable->False]], "Print", CellChangeTimes->{3.459949123046875*^9, 3.460042733796875*^9, 3.462718773953125*^9}] }, Open ]], Cell[BoxData["144"], "Output", CellChangeTimes->{3.459949123296875*^9, 3.46004273409375*^9, 3.462718774*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ "A", " ", "la", " ", "sortie", " ", "de", " ", "la", " ", "boucle"}], ",", RowBox[{ "F", " ", "et", " ", "G", " ", "sont", " ", "cette", " ", "fois", " ", "\[EAcute]gaux", " ", "respectivement", " ", "\[AGrave]", " ", SubscriptBox["F", RowBox[{"2", "n"}]], "et", " ", SubscriptBox["F", RowBox[{ RowBox[{"2", "n"}], "+", "1"}]]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459949177453125*^9, 3.459949187515625*^9}}], Cell["e)", "Text", CellChangeTimes->{{3.459949687078125*^9, 3.45994968871875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "6"}], ";", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}]}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"u", ",", "\"\< \>\"", ",", "v", ",", "\"\< \>\"", ",", "w"}], "]"}], ";", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v", ",", "w"}], "}"}], "=", RowBox[{"{", RowBox[{"v", ",", "w", ",", RowBox[{ RowBox[{"2", "w"}], "+", "u"}]}], "}"}]}]}], " ", ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.4599497161875*^9, 3.4599498033125*^9}, { 3.45994985465625*^9, 3.45994985709375*^9}, {3.459949926609375*^9, 3.459949969828125*^9}, {3.46004274459375*^9, 3.46004276128125*^9}, { 3.462718856515625*^9, 3.462718857171875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2"}], SequenceForm[0, " ", 1, " ", 2], Editable->False]], "Print", CellChangeTimes->{{3.459949795734375*^9, 3.4599498045625*^9}, 3.4599498639375*^9, {3.45994995553125*^9, 3.459949970546875*^9}, 3.460042762515625*^9, 3.462718858125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "4"}], SequenceForm[1, " ", 2, " ", 4], Editable->False]], "Print", CellChangeTimes->{{3.459949795734375*^9, 3.4599498045625*^9}, 3.4599498639375*^9, {3.45994995553125*^9, 3.459949970546875*^9}, 3.460042762515625*^9, 3.46271885815625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9"}], SequenceForm[2, " ", 4, " ", 9], Editable->False]], "Print", CellChangeTimes->{{3.459949795734375*^9, 3.4599498045625*^9}, 3.4599498639375*^9, {3.45994995553125*^9, 3.459949970546875*^9}, 3.460042762515625*^9, 3.46271885821875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "20"}], SequenceForm[4, " ", 9, " ", 20], Editable->False]], "Print", CellChangeTimes->{{3.459949795734375*^9, 3.4599498045625*^9}, 3.4599498639375*^9, {3.45994995553125*^9, 3.459949970546875*^9}, 3.460042762515625*^9, 3.462718858265625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "44"}], SequenceForm[9, " ", 20, " ", 44], Editable->False]], "Print", CellChangeTimes->{{3.459949795734375*^9, 3.4599498045625*^9}, 3.4599498639375*^9, {3.45994995553125*^9, 3.459949970546875*^9}, 3.460042762515625*^9, 3.4627188583125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "44", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "97"}], SequenceForm[20, " ", 44, " ", 97], Editable->False]], "Print", CellChangeTimes->{{3.459949795734375*^9, 3.4599498045625*^9}, 3.4599498639375*^9, {3.45994995553125*^9, 3.459949970546875*^9}, 3.460042762515625*^9, 3.462718858359375*^9}] }, Open ]], Cell[BoxData["44"], "Output", CellChangeTimes->{{3.45994979590625*^9, 3.45994980475*^9}, 3.459949864125*^9, {3.459949955703125*^9, 3.459949970703125*^9}, 3.4600427628125*^9, 3.462718858421875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ex4)", "Subsubtitle", CellChangeTimes->{{3.459950117859375*^9, 3.459950120125*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "6"}], ";", RowBox[{"T", "=", "1"}], ";", RowBox[{"U", "=", RowBox[{"Cos", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", "T", "]"}], ";", RowBox[{ RowBox[{"{", RowBox[{"T", ",", "U"}], "}"}], "=", RowBox[{"{", RowBox[{"U", ",", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}], "U"}], "-", "T"}], "//", " ", "Expand"}]}], "}"}]}]}], ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "T"}], "\n", RowBox[{ RowBox[{ RowBox[{"TrigExpand", "[", RowBox[{"Cos", "[", RowBox[{"n", " ", "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.4599501121875*^9, 3.45995032690625*^9}, { 3.4599503621875*^9, 3.459950363046875*^9}, {3.459950404921875*^9, 3.45995049315625*^9}, {3.4599506250625*^9, 3.45995067171875*^9}, 3.460048272734375*^9, {3.460082753609375*^9, 3.460082803640625*^9}, 3.46034884271875*^9, {3.460348884140625*^9, 3.46034892075*^9}, { 3.460348961234375*^9, 3.4603489665625*^9}, {3.462718882765625*^9, 3.462718884140625*^9}}], Cell[CellGroupData[{ Cell[BoxData["1"], "Print", CellChangeTimes->{ 3.4599503284375*^9, 3.459950364125*^9, {3.45995042265625*^9, 3.45995049425*^9}, 3.459950674671875*^9, {3.460082795*^9, 3.46008280475*^9}, 3.460348849828125*^9, {3.460348894859375*^9, 3.46034892184375*^9}, 3.46034896759375*^9, 3.462718885890625*^9}], Cell[BoxData[ RowBox[{"Cos", "[", "t", "]"}]], "Print", CellChangeTimes->{ 3.4599503284375*^9, 3.459950364125*^9, {3.45995042265625*^9, 3.45995049425*^9}, 3.459950674671875*^9, {3.460082795*^9, 3.46008280475*^9}, 3.460348849828125*^9, {3.460348894859375*^9, 3.46034892184375*^9}, 3.46034896759375*^9, 3.46271888596875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "2"]}]}]], "Print", CellChangeTimes->{ 3.4599503284375*^9, 3.459950364125*^9, {3.45995042265625*^9, 3.45995049425*^9}, 3.459950674671875*^9, {3.460082795*^9, 3.46008280475*^9}, 3.460348849828125*^9, {3.460348894859375*^9, 3.46034892184375*^9}, 3.46034896759375*^9, 3.462718886*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "3"]}]}]], "Print", CellChangeTimes->{ 3.4599503284375*^9, 3.459950364125*^9, {3.45995042265625*^9, 3.45995049425*^9}, 3.459950674671875*^9, {3.460082795*^9, 3.46008280475*^9}, 3.460348849828125*^9, {3.460348894859375*^9, 3.46034892184375*^9}, 3.46034896759375*^9, 3.462718886046875*^9}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "4"]}]}]], "Print", CellChangeTimes->{ 3.4599503284375*^9, 3.459950364125*^9, {3.45995042265625*^9, 3.45995049425*^9}, 3.459950674671875*^9, {3.460082795*^9, 3.46008280475*^9}, 3.460348849828125*^9, {3.460348894859375*^9, 3.46034892184375*^9}, 3.46034896759375*^9, 3.46271888609375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"5", " ", RowBox[{"Cos", "[", "t", "]"}]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "3"]}], "+", RowBox[{"16", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "5"]}]}]], "Print", CellChangeTimes->{ 3.4599503284375*^9, 3.459950364125*^9, {3.45995042265625*^9, 3.45995049425*^9}, 3.459950674671875*^9, {3.460082795*^9, 3.46008280475*^9}, 3.460348849828125*^9, {3.460348894859375*^9, 3.46034892184375*^9}, 3.46034896759375*^9, 3.462718886140625*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"18", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "2"]}], "-", RowBox[{"48", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "4"]}], "+", RowBox[{"32", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "6"]}]}]], "Output", CellChangeTimes->{{3.45995028403125*^9, 3.4599502953125*^9}, 3.45995032859375*^9, 3.459950364359375*^9, {3.459950422890625*^9, 3.459950494453125*^9}, 3.459950674890625*^9, {3.460082795375*^9, 3.460082805015625*^9}, 3.460348850125*^9, {3.460348895125*^9, 3.46034892203125*^9}, 3.460348967859375*^9, 3.4627188861875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"18", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "2"]}], "-", RowBox[{"48", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "4"]}], "+", RowBox[{"32", " ", SuperscriptBox[ RowBox[{"Cos", "[", "t", "]"}], "6"]}]}]], "Output", CellChangeTimes->{{3.45995028403125*^9, 3.4599502953125*^9}, 3.45995032859375*^9, 3.459950364359375*^9, {3.459950422890625*^9, 3.459950494453125*^9}, 3.459950674890625*^9, {3.460082795375*^9, 3.460082805015625*^9}, 3.460348850125*^9, {3.460348895125*^9, 3.46034892203125*^9}, 3.460348967859375*^9, 3.4627188863125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ex5) a)\ \>", "Subsubtitle", CellChangeTimes->{{3.45996021446875*^9, 3.459960228859375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "10"}], ";", RowBox[{"u", "=", "0"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"u", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.4599230285625*^9, 3.459923143*^9}, {3.45992319071875*^9, 3.459923204203125*^9}, {3.459932106328125*^9, 3.459932109125*^9}, 3.459944640109375*^9, {3.45995833171875*^9, 3.459958352265625*^9}, 3.459960232890625*^9, {3.460000320140625*^9, 3.46000035725*^9}, { 3.462718930703125*^9, 3.462718937125*^9}}], Cell[BoxData["55"], "Output", CellChangeTimes->{ 3.45992310325*^9, 3.459923137265625*^9, {3.4599231925625*^9, 3.459923205171875*^9}, 3.459932111515625*^9, {3.459958341046875*^9, 3.4599583539375*^9}, 3.4599602400625*^9, 3.45996055975*^9, { 3.46000032246875*^9, 3.4600003593125*^9}, 3.46271893815625*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "Si", " ", "la", " ", "valeur", " ", "de", " ", "u", " ", "au", " ", "sortir", " ", "de", " ", "la", " ", "k"}], "-", RowBox[{"i\[EGrave]me", " ", "boucle", " ", "est", " ", SubscriptBox["u", "k"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"on", " ", "a", " ", "la", " ", "relation", " ", "de", " ", RowBox[{"r\[EAcute]currence", ":", SubscriptBox["u", "k"]}]}], "=", RowBox[{ SubscriptBox["u", RowBox[{"k", "-", "1"}]], "+", "k"}]}], " ", ";", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", "1"}], "+", "2", "+"}], "..."}], "+", "n"}], " ", "=", RowBox[{"n", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", "2."}]}]}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459923300921875*^9, 3.45992331784375*^9}, { 3.45992390578125*^9, 3.459924033*^9}, {3.459926863734375*^9, 3.459926865265625*^9}, 3.46435026996875*^9}], Cell["b)", "Text", CellChangeTimes->{{3.45996025275*^9, 3.459960253171875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"u", "=", "0"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"u", "+", RowBox[{"2", "k"}], "-", "1"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.4599230285625*^9, 3.459923143*^9}, {3.45992319071875*^9, 3.459923204203125*^9}, {3.45992459584375*^9, 3.459924648921875*^9}, { 3.45992656703125*^9, 3.45992657184375*^9}, {3.459932136640625*^9, 3.45993213909375*^9}, 3.459958698203125*^9, {3.45995880128125*^9, 3.459958807390625*^9}, {3.4599588754375*^9, 3.459958883421875*^9}, { 3.459958945578125*^9, 3.4599589494375*^9}, {3.45995905784375*^9, 3.4599590580625*^9}, {3.459960188890625*^9, 3.4599601964375*^9}, { 3.459960488140625*^9, 3.459960488359375*^9}, 3.459960551875*^9, { 3.462718981703125*^9, 3.46271898578125*^9}}], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.45992310325*^9, 3.459923137265625*^9, {3.4599231925625*^9, 3.459923205171875*^9}, {3.45992462703125*^9, 3.45992465025*^9}, 3.459958808453125*^9, 3.45995889209375*^9, 3.459958951453125*^9, 3.45995905975*^9, 3.45996019765625*^9, 3.459960489875*^9, { 3.45996055403125*^9, 3.459960563234375*^9}, 3.462718983359375*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "Si", " ", "la", " ", "valeur", " ", "de", " ", "u", " ", "au", " ", "sortir", " ", "de", " ", "la", " ", "k"}], "-", RowBox[{"i\[EGrave]me", " ", "boucle", " ", "est", " ", SubscriptBox["u", "k"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"on", " ", "a", " ", "la", " ", "relation", " ", "de", " ", RowBox[{"r\[EAcute]currence", ":", SubscriptBox["u", "k"]}]}], "=", RowBox[{ SubscriptBox["u", RowBox[{"k", "-", "1"}]], "+", RowBox[{"2", "k"}], "-", "1"}]}], " ", ";", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", "1"}], "+", "3", "+"}], "..."}], "+", RowBox[{"2", "n"}], "-", "1"}], " ", "=", RowBox[{ SuperscriptBox["n", "2"], "."}]}]}]}]], "Text", CellChangeTimes->{{3.459923300921875*^9, 3.45992331784375*^9}, { 3.45992390578125*^9, 3.459924033*^9}, {3.459924678328125*^9, 3.45992473525*^9}, {3.459926513046875*^9, 3.459926517*^9}, { 3.459926869234375*^9, 3.459926869703125*^9}, 3.462719051328125*^9}, FontFamily->"Times New Roman"], Cell["c)", "Text", CellChangeTimes->{{3.459960393796875*^9, 3.45996039428125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"u", "=", "0"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"u", "+", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"2", "n"}], ",", "2"}], "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.45996051415625*^9, 3.45996052225*^9}, 3.4599605698125*^9, {3.46271906003125*^9, 3.462719060546875*^9}}], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.45996020309375*^9, {3.45996051865625*^9, 3.459960523390625*^9}, 3.459960570609375*^9, 3.462719061828125*^9}] }, Open ]], Cell["\<\ Ici, le u final est la somme de tous les impairs de 1 jusqu' \[AGrave] 2 n \ (le dernier est donc 2 n - 1), donc le r\[EAcute]sultat est le m\[EHat]me que \ pour b).\ \>", "Text", CellChangeTimes->{{3.4599602849375*^9, 3.4599603893125*^9}, 3.4599608321875*^9, {3.460048307875*^9, 3.460048308859375*^9}, { 3.460048364390625*^9, 3.460048368265625*^9}, 3.4627190746875*^9}], Cell["d)", "Text", CellChangeTimes->{{3.460048371109375*^9, 3.460048371984375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"u", "=", "1"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"u", " ", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}], ";", "u"}], "\[IndentingNewLine]", RowBox[{"n", "!"}]}], "Input", CellChangeTimes->{{3.4599230285625*^9, 3.459923143*^9}, {3.45992319071875*^9, 3.459923204203125*^9}, {3.45992459584375*^9, 3.459924648921875*^9}, { 3.45992656703125*^9, 3.459926616359375*^9}, {3.459960454671875*^9, 3.459960465859375*^9}, {3.459960533234375*^9, 3.459960544875*^9}, { 3.462719091125*^9, 3.4627190916875*^9}}], Cell[BoxData["3628800"], "Output", CellChangeTimes->{ 3.45992310325*^9, 3.459923137265625*^9, {3.4599231925625*^9, 3.459923205171875*^9}, {3.45992462703125*^9, 3.45992465025*^9}, 3.45992662146875*^9, 3.459960468171875*^9, {3.45996053453125*^9, 3.45996054603125*^9}, 3.459960576203125*^9, 3.46271909334375*^9}], Cell[BoxData["3628800"], "Output", CellChangeTimes->{ 3.45992310325*^9, 3.459923137265625*^9, {3.4599231925625*^9, 3.459923205171875*^9}, {3.45992462703125*^9, 3.45992465025*^9}, 3.45992662146875*^9, 3.459960468171875*^9, {3.45996053453125*^9, 3.45996054603125*^9}, 3.459960576203125*^9, 3.462719093390625*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "Si", " ", "la", " ", "valeur", " ", "de", " ", "u", " ", "au", " ", "sortir", " ", "de", " ", "la", " ", "k"}], "-", RowBox[{"i\[EGrave]me", " ", "boucle", " ", "est", " ", SubscriptBox["u", "k"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"on", " ", "a", " ", "la", " ", "relation", " ", "de", " ", RowBox[{"r\[EAcute]currence", ":", SubscriptBox["u", "k"]}]}], "=", RowBox[{"k", " ", SubscriptBox["u", RowBox[{"k", "-", "1", " "}]]}]}], ";", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", "1.2"}], "..."}], ".."}], "n"}], " ", "=", RowBox[{ RowBox[{"n", "!"}], "."}]}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459923300921875*^9, 3.45992331784375*^9}, { 3.45992390578125*^9, 3.459924033*^9}, {3.459924678328125*^9, 3.45992473525*^9}, {3.459926513046875*^9, 3.459926517*^9}, { 3.4599266335*^9, 3.45992665234375*^9}, {3.459926875921875*^9, 3.45992689928125*^9}, 3.464350295328125*^9}], Cell["e)", "Text", CellChangeTimes->{{3.460048382890625*^9, 3.460048384484375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"u", "=", "0"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"u", "=", RowBox[{"u", "+", RowBox[{"Prime", "[", "k", "]"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.4599230285625*^9, 3.459923143*^9}, {3.45992319071875*^9, 3.459923204203125*^9}, {3.45992459584375*^9, 3.459924648921875*^9}, { 3.45992656703125*^9, 3.459926616359375*^9}, {3.45992671671875*^9, 3.459926731453125*^9}, 3.46004844734375*^9, {3.462719127375*^9, 3.462719127875*^9}}], Cell[BoxData["129"], "Output", CellChangeTimes->{3.459926738453125*^9, 3.46271912915625*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "Si", " ", "la", " ", "valeur", " ", "de", " ", "u", " ", "au", " ", "sortir", " ", "de", " ", "la", " ", "k"}], "-", RowBox[{"i\[EGrave]me", " ", "boucle", " ", "est", " ", SubscriptBox["u", "k"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"on", " ", "a", " ", "la", " ", "relation", " ", "de", " ", RowBox[{"r\[EAcute]currence", ":", SubscriptBox["u", "k"]}]}], "=", RowBox[{ SubscriptBox["u", RowBox[{"k", "-", "1"}]], "+", RowBox[{"\[InvisiblePrefixScriptBase]", SubscriptBox["p", RowBox[{"k", " "}]]}]}]}], ";", RowBox[{ SubscriptBox["u", "n"], "est", " ", "donc", " ", "\[EAcute]gal", " ", "\[AGrave]", " ", "la", " ", "somme", " ", "des", " ", "n", " ", "premiers", " ", "nombres", " ", RowBox[{"premiers", "."}]}]}]}], FontFamily->"Times New Roman"]], "Text", CellChangeTimes->{{3.459926801921875*^9, 3.45992684271875*^9}, { 3.46271914871875*^9, 3.462719149890625*^9}, 3.464350292578125*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Ex6) Coefficients binomiaux.", "Subsubtitle", CellChangeTimes->{{3.45992714390625*^9, 3.459927153421875*^9}, { 3.459961006359375*^9, 3.459961010734375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "100"}], ";", RowBox[{"p", "=", "50"}], ";", RowBox[{"c", "=", "1"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"c", "=", RowBox[{"c", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k", "+", "1"}], ")"}], "/", "k"}]}]}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "p"}], "}"}]}], "]"}], ";", "c"}], "\[IndentingNewLine]", RowBox[{"Binomial", "[", RowBox[{"n", ",", "p"}], "]"}]}], "Input", CellChangeTimes->{{3.459927169171875*^9, 3.45992718571875*^9}, { 3.459927241140625*^9, 3.459927374671875*^9}, {3.459927437109375*^9, 3.45992744259375*^9}, 3.459931863875*^9, {3.459932246421875*^9, 3.45993226059375*^9}, {3.459961035625*^9, 3.45996111278125*^9}, { 3.4627191888125*^9, 3.46271918928125*^9}}], Cell[BoxData["100891344545564193334812497256"], "Output", CellChangeTimes->{3.459961113765625*^9, 3.460000671640625*^9, 3.46271919053125*^9}], Cell[BoxData["100891344545564193334812497256"], "Output", CellChangeTimes->{3.459961113765625*^9, 3.460000671640625*^9, 3.4627191905625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ex7) Calcul de e a) M\[EAcute]thode \"b\[EHat]te\"\ \>", "Subsubtitle", CellChangeTimes->{ 3.459931705296875*^9, {3.459932011125*^9, 3.4599320250625*^9}, { 3.459932747515625*^9, 3.459932747859375*^9}, {3.459961325265625*^9, 3.459961328203125*^9}, {3.46000025875*^9, 3.46000026109375*^9}, 3.494738130546875*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "2000"}], ";", RowBox[{"e", "=", "0"}], ";", RowBox[{"t", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"e", "=", RowBox[{"e", "+", RowBox[{"1", "/", RowBox[{"k", "!"}]}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "t"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"e", ",", "50"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Exp", "[", "1", "]"}], ",", "50"}], "]"}]}], "Input", CellChangeTimes->{ 3.459931355703125*^9, {3.459931555765625*^9, 3.45993171190625*^9}, { 3.45993176484375*^9, 3.45993184896875*^9}, {3.45993206784375*^9, 3.45993206853125*^9}, {3.459932269484375*^9, 3.459932289578125*^9}, { 3.45993244446875*^9, 3.45993248071875*^9}, 3.459932615375*^9, { 3.459932758546875*^9, 3.45993276940625*^9}, {3.4599334133125*^9, 3.45993342440625*^9}, {3.459933456640625*^9, 3.459933478421875*^9}, { 3.45996134821875*^9, 3.459961377125*^9}, {3.459961992453125*^9, 3.459961996609375*^9}, {3.459962268984375*^9, 3.459962269546875*^9}, { 3.459962319265625*^9, 3.45996231971875*^9}, {3.45996307315625*^9, 3.459963073734375*^9}}], Cell[BoxData["2.547`"], "Output", CellChangeTimes->{ 3.45993173575*^9, {3.45993177215625*^9, 3.459931796109375*^9}, 3.45993182821875*^9, 3.4599322939375*^9, 3.459932450296875*^9, { 3.45993276003125*^9, 3.459932772359375*^9}, 3.459933426265625*^9, 3.45993346171875*^9, 3.459961414484375*^9, 3.459962001328125*^9, 3.459962270640625*^9, 3.459963077484375*^9, 3.46271923015625*^9}], Cell[BoxData["2.\ 7182818284590452353602874713526624977572470936999595749669679002218`50."], \ "Output", CellChangeTimes->{ 3.45993173575*^9, {3.45993177215625*^9, 3.459931796109375*^9}, 3.45993182821875*^9, 3.4599322939375*^9, 3.459932450296875*^9, { 3.45993276003125*^9, 3.459932772359375*^9}, 3.459933426265625*^9, 3.45993346171875*^9, 3.459961414484375*^9, 3.459962001328125*^9, 3.459962270640625*^9, 3.459963077484375*^9, 3.462719230171875*^9}], Cell[BoxData["2.\ 7182818284590452353602874713526624977572470936999595749667819473231`50."], \ "Output", CellChangeTimes->{ 3.45993173575*^9, {3.45993177215625*^9, 3.459931796109375*^9}, 3.45993182821875*^9, 3.4599322939375*^9, 3.459932450296875*^9, { 3.45993276003125*^9, 3.459932772359375*^9}, 3.459933426265625*^9, 3.45993346171875*^9, 3.459961414484375*^9, 3.459962001328125*^9, 3.459962270640625*^9, 3.459963077484375*^9, 3.462719230234375*^9}] }, Open ]], Cell["\<\ b) M\[EAcute]thode directe, mais avec calcul de la factorielle en temps r\ \[EAcute]el\ \>", "Text", CellChangeTimes->{{3.459932016203125*^9, 3.459932028546875*^9}, { 3.45993279190625*^9, 3.459932798078125*^9}, 3.46003170565625*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "2000"}], ";", RowBox[{"e", "=", "0"}], ";", RowBox[{"u", "=", "1"}], ";", RowBox[{"t", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"e", "=", RowBox[{"e", "+", RowBox[{"1", "/", "u"}]}]}], ";", RowBox[{"u", "=", RowBox[{"k", " ", "u"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "t"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"e", ",", "50"}], "]"}]}], "Input", CellChangeTimes->{{3.459932060046875*^9, 3.459932060703125*^9}, { 3.459932323828125*^9, 3.459932324765625*^9}, {3.4599323566875*^9, 3.45993239228125*^9}, {3.459932982109375*^9, 3.4599329829375*^9}, { 3.4599333841875*^9, 3.459933393*^9}, {3.45993349134375*^9, 3.45993349946875*^9}, {3.45996211234375*^9, 3.45996214940625*^9}, { 3.45996218025*^9, 3.45996218075*^9}, {3.459962236453125*^9, 3.459962236984375*^9}, {3.459962297875*^9, 3.459962324171875*^9}, { 3.45996306715625*^9, 3.459963067984375*^9}}], Cell[BoxData["2.3120000000000003`"], "Output", CellChangeTimes->{3.45993240909375*^9, 3.459932780234375*^9, 3.459932993453125*^9, 3.459933394515625*^9, 3.45993350415625*^9, 3.459962109234375*^9, 3.4599621823125*^9, 3.459962238125*^9, 3.459962301265625*^9, 3.459962840796875*^9, 3.459963086203125*^9, 3.46271925025*^9}], Cell[BoxData["2.\ 7182818284590452353602874713526624977572470936999595749669676277246`50."], \ "Output", CellChangeTimes->{3.45993240909375*^9, 3.459932780234375*^9, 3.459932993453125*^9, 3.459933394515625*^9, 3.45993350415625*^9, 3.459962109234375*^9, 3.4599621823125*^9, 3.459962238125*^9, 3.459962301265625*^9, 3.459962840796875*^9, 3.459963086203125*^9, 3.462719250296875*^9}] }, Open ]], Cell["c) M\[EAcute]thode de Horner.", "Text", CellChangeTimes->{{3.45993284334375*^9, 3.4599328604375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "2000"}], ";", RowBox[{"e", "=", "1"}], ";", RowBox[{"u", "=", "1"}], ";", RowBox[{"t", "=", RowBox[{"TimeUsed", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"e", "=", RowBox[{ RowBox[{"e", "/", "k"}], "+", "1"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "n", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TimeUsed", "[", "]"}], "-", "t"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"e", ",", "50"}], "]"}]}], "Input", CellChangeTimes->{{3.45993288334375*^9, 3.45993293346875*^9}, { 3.4599329786875*^9, 3.459932979109375*^9}, {3.45993330253125*^9, 3.45993335678125*^9}, {3.459933519703125*^9, 3.4599335246875*^9}, { 3.459962935609375*^9, 3.45996296975*^9}, {3.45996309809375*^9, 3.45996309928125*^9}}], Cell[BoxData["0.04699999999999971`"], "Output", CellChangeTimes->{3.460047845234375*^9, 3.462719262171875*^9}], Cell[BoxData["2.\ 7182818284590452353602874713526624977572470936999595749669679002218`50."], \ "Output", CellChangeTimes->{3.460047845234375*^9, 3.46271926221875*^9}] }, Open ]], Cell[TextData[{ "Dans le c) il y a n divisions, dans le b) il y a n divisions et n \ multiplications, et dans le a) il y a 1 + 2 + .. + n ~", Cell[BoxData[ FractionBox[ SuperscriptBox["n", "2"], "2"]], CellChangeTimes->{3.466791092125*^9}], " multiplications et n divisions !" }], "Text", CellChangeTimes->{{3.460031859421875*^9, 3.460031877625*^9}, { 3.4600319143125*^9, 3.460032027984375*^9}, {3.46679106284375*^9, 3.466791063515625*^9}, 3.4667910991875*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Ex8) Ann\[EAcute]es avec 3 z\[EAcute]ros", "Subsubtitle", CellChangeTimes->{{3.4600333048125*^9, 3.4600333058125*^9}, 3.460033399625*^9, {3.462719291109375*^9, 3.46271929140625*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"mini", "=", "1500"}], ";", RowBox[{"maxi", "=", "2500"}], ";"}], " "}], "\n", RowBox[{"Do", " ", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"a", " ", RowBox[{"b", "^", "3"}]}], ",", "\"\< s'\[EAcute]crit \>\"", ",", RowBox[{"a", " ", RowBox[{"10", "^", "3"}]}], ",", "\"\< en base \>\"", ",", "b"}], "]"}], ",", RowBox[{"{", RowBox[{"b", " ", ",", "2", " ", ",", "maxi"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"Ceiling", "[", RowBox[{"mini", "/", RowBox[{"b", "^", "3"}]}], "]"}], " ", ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"b", "-", "1"}], ",", RowBox[{"maxi", "/", RowBox[{"b", "^", "3"}]}]}], "]"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.460033317984375*^9, 3.46003332990625*^9}, { 3.460033407296875*^9, 3.460033616234375*^9}, {3.46003365890625*^9, 3.46003371028125*^9}, {3.460033781796875*^9, 3.460033885765625*^9}, { 3.460036608015625*^9, 3.4600366308125*^9}, {3.460042422359375*^9, 3.460042499328125*^9}, 3.462720824671875*^9, {3.467477419125*^9, 3.467477428890625*^9}, {3.46747757125*^9, 3.467477573609375*^9}, { 3.467477605765625*^9, 3.4674776070625*^9}, {3.46747774084375*^9, 3.467477744859375*^9}, {3.46747787259375*^9, 3.46747787509375*^9}, { 3.4674779419375*^9, 3.46747803346875*^9}, {3.467478085390625*^9, 3.46747810915625*^9}, {3.467984448859375*^9, 3.467984453359375*^9}, { 3.50124439215625*^9, 3.501244398296875*^9}, 3.501244454546875*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1715", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "5000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "7"}], SequenceForm[1715, " s'\[EAcute]crit ", 5000, " en base ", 7], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.501244457203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2058", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "6000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "7"}], SequenceForm[2058, " s'\[EAcute]crit ", 6000, " en base ", 7], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.501244457203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "1536", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "3000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "8"}], SequenceForm[1536, " s'\[EAcute]crit ", 3000, " en base ", 8], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.501244457203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2048", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "4000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "8"}], SequenceForm[2048, " s'\[EAcute]crit ", 4000, " en base ", 8], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.501244457203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2187", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "3000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "9"}], SequenceForm[2187, " s'\[EAcute]crit ", 3000, " en base ", 9], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.501244457203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2000", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "2000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "10"}], SequenceForm[2000, " s'\[EAcute]crit ", 2000, " en base ", 10], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.501244457203125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "1728", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "1000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "12"}], SequenceForm[1728, " s'\[EAcute]crit ", 1000, " en base ", 12], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.50124445721875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2197", "\[InvisibleSpace]", "\<\" s'\[EAcute]crit \"\>", "\[InvisibleSpace]", "1000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "13"}], SequenceForm[2197, " s'\[EAcute]crit ", 1000, " en base ", 13], Editable->False]], "Print", CellChangeTimes->{{3.460042485265625*^9, 3.460042501125*^9}, 3.46271929715625*^9, 3.466791163046875*^9, {3.4674774231875*^9, 3.467477430203125*^9}, 3.46747757465625*^9, 3.46747760859375*^9, { 3.46747786584375*^9, 3.467477876578125*^9}, 3.467477950421875*^9, { 3.467478015640625*^9, 3.467478034609375*^9}, {3.46747809571875*^9, 3.4674781235*^9}, 3.4679844548125*^9, 3.50124440071875*^9, 3.50124445721875*^9}] }, Open ]] }, Open ]], Cell[TextData[{ "REM : 1944 = 9 . ", Cell[BoxData[ FormBox[ SuperscriptBox["6", "3"], TraditionalForm]], FormatType->"TraditionalForm"], " et pourtant 1944 n'apparait pas ci-dessus ; pourquoi ?" }], "Text", CellChangeTimes->{{3.46803122021875*^9, 3.468031343390625*^9}, { 3.468031390875*^9, 3.468031403515625*^9}, 3.4947381465*^9, { 3.5012445114375*^9, 3.501244607546875*^9}}], Cell["Avec 4 z\[EAcute]ros, on obtient :", "Text", CellChangeTimes->{{3.460034031734375*^9, 3.46003404128125*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"mini", "=", "1500"}], ";", RowBox[{"maxi", "=", "2500"}], ";"}], " "}], "\n", RowBox[{"Do", " ", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{ RowBox[{"a", " ", RowBox[{"b", "^", "4"}], "\"\< s'\[EAcute]crit \>\""}], ",", RowBox[{"a", " ", RowBox[{"10", "^", "4"}]}], ",", "\"\< en base \>\"", ",", "b"}], "]"}], ",", RowBox[{"{", RowBox[{"b", " ", ",", "2", " ", ",", RowBox[{"maxi", "/", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"Ceiling", "[", RowBox[{"mini", "/", RowBox[{"b", "^", "4"}]}], "]"}], " ", ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"maxi", "/", RowBox[{"b", "^", "4"}]}], ",", RowBox[{"b", "-", "1"}]}], "]"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.460033943890625*^9, 3.4600339576875*^9}, { 3.46003664371875*^9, 3.460036659859375*^9}, {3.46004253990625*^9, 3.460042594078125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"1875", " ", "\<\" s'\[EAcute]crit \"\>"}], "\[InvisibleSpace]", "30000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "5"}], SequenceForm[1875 " s'\[EAcute]crit ", 30000, " en base ", 5], Editable->False]], "Print", CellChangeTimes->{ 3.46003395878125*^9, 3.460036660890625*^9, {3.460042553921875*^9, 3.460042597015625*^9}, 3.462719314359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"2500", " ", "\<\" s'\[EAcute]crit \"\>"}], "\[InvisibleSpace]", "40000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "5"}], SequenceForm[2500 " s'\[EAcute]crit ", 40000, " en base ", 5], Editable->False]], "Print", CellChangeTimes->{ 3.46003395878125*^9, 3.460036660890625*^9, {3.460042553921875*^9, 3.460042597015625*^9}, 3.46271931440625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"2401", " ", "\<\" s'\[EAcute]crit \"\>"}], "\[InvisibleSpace]", "10000", "\[InvisibleSpace]", "\<\" en base \"\>", "\[InvisibleSpace]", "7"}], SequenceForm[2401 " s'\[EAcute]crit ", 10000, " en base ", 7], Editable->False]], "Print", CellChangeTimes->{ 3.46003395878125*^9, 3.460036660890625*^9, {3.460042553921875*^9, 3.460042597015625*^9}, 3.462719314453125*^9}] }, Open ]] }, Open ]], Cell["\<\ A votre avis, y aura t - il en l'an 4000 en base 8 (= 2048) une f\[EHat]te \ similaire \[AGrave] celle de l'an 2000 ???\ \>", "Text", CellChangeTimes->{{3.460033992078125*^9, 3.46003399790625*^9}, { 3.46003673634375*^9, 3.46003674146875*^9}, 3.466791184265625*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Ex9) Triangle de Pascal.", "Subsubtitle", CellChangeTimes->{{3.46003414915625*^9, 3.460034151859375*^9}, { 3.462719333390625*^9, 3.462719333765625*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "5"}], ";", RowBox[{ RowBox[{"c", "[", RowBox[{"0", ",", "0"}], "]"}], "=", "1"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"i", ",", RowBox[{"i", "+", "1"}]}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"c", "[", RowBox[{"i", ",", RowBox[{"-", "1"}]}], "]"}], "=", "0"}]}], ",", " ", RowBox[{"{", RowBox[{"i", " ", ",", " ", "0", " ", ",", " ", RowBox[{"n", "-", "1"}]}], " ", "}"}]}], " ", "]"}], ";", " ", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"i", ",", "j"}], "]"}], "=", RowBox[{ RowBox[{"c", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "+", RowBox[{"c", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", " ", "n"}], " ", "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", " ", "i"}], " ", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "i"}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.46003417875*^9, 3.460034477859375*^9}, { 3.460034630734375*^9, 3.460034709578125*^9}, {3.460034864375*^9, 3.4600348876875*^9}, {3.460034983765625*^9, 3.460035003203125*^9}, { 3.4600355468125*^9, 3.460035559703125*^9}, {3.460035628609375*^9, 3.460035645140625*^9}, {3.460035815578125*^9, 3.460035823296875*^9}, 3.4600361256875*^9, {3.460036297484375*^9, 3.460036298890625*^9}, 3.46003651178125*^9, {3.46003757453125*^9, 3.460037672734375*^9}, { 3.46003772559375*^9, 3.460037770078125*^9}, {3.460037809078125*^9, 3.460037818671875*^9}, 3.460048554765625*^9, {3.4627194768125*^9, 3.462719499078125*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", "1", "}"}]}, { RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"1", ",", "4", ",", "6", ",", "4", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"1", ",", "5", ",", "10", ",", "10", ",", "5", ",", "1"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.46003498496875*^9, 3.4600356625625*^9, 3.460035826671875*^9, 3.4600361311875*^9, 3.460036303375*^9, 3.4600373209375*^9, 3.46003767934375*^9, 3.460037738671875*^9, 3.46003777140625*^9, 3.46003781040625*^9, 3.460037894265625*^9, {3.46271950090625*^9, 3.46271950809375*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Boucle while", "Subsubtitle", CellChangeTimes->{{3.46679126678125*^9, 3.46679127228125*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"s", "=", "0"}], ";", RowBox[{"n", "=", "1"}], ";", RowBox[{"While", "[", RowBox[{ RowBox[{"s", "<", "10"}], ",", RowBox[{ RowBox[{"s", "=", RowBox[{"s", "+", RowBox[{"1", "/", "n"}]}]}], ";", RowBox[{"n", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\< \>\"", ",", RowBox[{"N", "[", "s", "]"}], ",", "\"\< \>\"", ",", RowBox[{"N", "[", RowBox[{"s", "-", RowBox[{"1", "/", "n"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.460043736671875*^9, 3.4600439555625*^9}, { 3.46004399615625*^9, 3.460044029734375*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ "12368", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "10.000043008275806`", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "9.999962154459507`"}], SequenceForm[12368, " ", 10.000043008275806`, " ", 9.999962154459507], Editable->False]], "Print", CellChangeTimes->{3.46271956225*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ex10)", "Subsubtitle", CellChangeTimes->{{3.4600454614375*^9, 3.460045479765625*^9}, { 3.46004621621875*^9, 3.460046220234375*^9}, {3.460046279328125*^9, 3.46004627978125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"u", "=", "1"}], ";", RowBox[{"While", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u", "^", "3"}], "+", "24"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "10"}], ")"}]}], "]"}], "^", "10"}], "\[Equal]", RowBox[{ RowBox[{"u", "^", "3"}], "+", "24"}]}], "]"}], ",", RowBox[{"u", "++"}]}], "]"}], ";", "u"}]], "Input", CellChangeTimes->{{3.460044479640625*^9, 3.460044553390625*^9}, { 3.46004458365625*^9, 3.460044587125*^9}, {3.460044640546875*^9, 3.460044653828125*^9}, {3.460044685265625*^9, 3.460044699484375*^9}, { 3.46004491571875*^9, 3.4600449175*^9}, {3.4600451480625*^9, 3.460045148671875*^9}, {3.460045444046875*^9, 3.4600454735625*^9}, { 3.4600455449375*^9, 3.460045719015625*^9}, {3.462719590296875*^9, 3.462719594015625*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.460045564734375*^9, 3.460045662875*^9, 3.460045720421875*^9, 3.462719595484375*^9}] }, Open ]], Cell[TextData[{ "On cherche ici le plus petit cube qui, augment\[EAcute] de 24, va donner \ une puissance dixi\[EGrave]me exacte ; r\[EAcute]sultat : ", Cell[BoxData[ FormBox[ SuperscriptBox["10", "3"], TraditionalForm]], FormatType->"TraditionalForm"], " + 24 = ", Cell[BoxData[ FormBox[ SuperscriptBox["2", "10"], TraditionalForm]]], "." }], "Text", CellChangeTimes->{ 3.460046266484375*^9, {3.460048593765625*^9, 3.460048610921875*^9}, { 3.46271960071875*^9, 3.46271969746875*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Ex11)", "Subsubtitle", CellChangeTimes->{{3.460046270078125*^9, 3.460046283640625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "100"}], ";", RowBox[{"p", "=", "2"}], ";", RowBox[{"While", " ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NextPrime", "[", "p", "]"}], "-", "p"}], "\[LessEqual]", "n"}], " ", ",", " ", RowBox[{"p", "=", RowBox[{"NextPrime", "[", "p", "]"}]}]}], "]"}], " ", ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< compos\[EAcute]s cons\[EAcute]cutifs : de \>\"", ",", " ", RowBox[{"p", "+", "1"}], ",", "\"\< \[AGrave] \>\"", ",", RowBox[{"p", "+", "n"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46004595828125*^9, 3.460046159359375*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Premi\[EGrave]re suite de \"\>", "\[InvisibleSpace]", "100", "\[InvisibleSpace]", "\<\" compos\[EAcute]s cons\[EAcute]cutifs : de \"\>", "\[InvisibleSpace]", "370262", "\[InvisibleSpace]", "\<\" \[AGrave] \"\>", "\[InvisibleSpace]", "370361"}], SequenceForm[ "Premi\[EGrave]re suite de ", 100, " compos\[EAcute]s cons\[EAcute]cutifs : de ", 370262, " \[AGrave] ", 370361], Editable->False]], "Print", CellChangeTimes->{{3.460046115359375*^9, 3.46004616540625*^9}, 3.462719729453125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ex12) Moyenne arithm\[EAcute]tico - g\[EAcute]om\[EAcute]trique.\ \>", "Subsubtitle", CellChangeTimes->{ 3.46004610928125*^9, 3.460046305875*^9, {3.460046558515625*^9, 3.460046563890625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "50"}], ";", RowBox[{"e", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "n"}], ")"}]}]}], ";", RowBox[{"u", "=", RowBox[{"N", "[", RowBox[{"1", ",", RowBox[{"n", "+", "5"}]}], "]"}]}], ";", RowBox[{"v", "=", RowBox[{"N", "[", RowBox[{"2", ",", RowBox[{"n", "+", "5"}]}], "]"}]}], ";", RowBox[{"k", "=", "0"}], ";", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"v", "-", "u"}], ">", "e"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"u", ",", "v"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"u", " ", "v"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"u", "+", "v"}], ")"}], "/", "2"}]}], "}"}]}], ";", RowBox[{"k", "++"}]}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"N", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}], ",", "\"\< obtenue en \>\"", ",", "k", ",", "\"\< coups\>\""}], "]"}]}]], "Input", CellChangeTimes->{{3.4600465836875*^9, 3.4600466704375*^9}, { 3.460046712265625*^9, 3.460046798109375*^9}, {3.46004687965625*^9, 3.460046995515625*^9}, {3.460047203734375*^9, 3.46004724478125*^9}, { 3.4600472771875*^9, 3.4600473410625*^9}, {3.460047384625*^9, 3.46004746009375*^9}, 3.460093855875*^9, {3.460347674671875*^9, 3.4603476765625*^9}, {3.46034776628125*^9, 3.46034778015625*^9}, { 3.46272009890625*^9, 3.462720125703125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"moyenne arithm\[EAcute]tico-g\[EAcute]om\[EAcute]trique = \ \"\>", "\[InvisibleSpace]", "1.4567910310469068691864323832650819749738639432213055907941723832679`51.\ ", "\[InvisibleSpace]", "\<\" obtenue en \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" coups\"\>"}], SequenceForm[ "moyenne arithm\[EAcute]tico-g\[EAcute]om\[EAcute]trique = ", 1.4567910310469068691864323832650819749738639432213055907941723832679`51., " obtenue en ", 6, " coups"], Editable->False]], "Print", CellChangeTimes->{3.462720127171875*^9}] }, Open ]], Cell["\<\ Conclusion : en 6 coups, on obtient d\[EAcute]j\[AGrave] 50 d\[EAcute]cimales \ exactes! Remarquons que si l'on fait l'erreur suivante (qui donne l'algorithme de \ Borchardt) :\ \>", "Text", CellChangeTimes->{ 3.46271975771875*^9, {3.466791325546875*^9, 3.466791329015625*^9}}, FontWeight->"Plain"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"e", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "n"}], ")"}]}]}], ";", RowBox[{"u", "=", RowBox[{"N", "[", RowBox[{"1", ",", RowBox[{"n", "+", "5"}]}], "]"}]}], ";", RowBox[{"v", "=", RowBox[{"N", "[", RowBox[{"2", ",", RowBox[{"n", "+", "5"}]}], "]"}]}], ";", RowBox[{"k", " ", "=", " ", "0"}], " ", ";", RowBox[{"While", " ", "[", RowBox[{ RowBox[{ RowBox[{"v", "-", "u"}], ">", "e"}], " ", ",", RowBox[{ RowBox[{"u", "=", RowBox[{"Sqrt", "[", RowBox[{"u", " ", "v"}], "]"}]}], ";", RowBox[{"v", "=", RowBox[{ RowBox[{"(", RowBox[{"u", "+", "v"}], ")"}], "/", "2"}]}], " ", ";", RowBox[{"k", "++"}]}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"N", "[", RowBox[{"u", ",", RowBox[{"n", "+", "1"}]}], "]"}], ",", "\"\< obtenue en \>\"", ",", "k", ",", "\"\< coups\>\""}], "]"}]}]], "Input", CellChangeTimes->{{3.46009502*^9, 3.460095077984375*^9}, { 3.46034779534375*^9, 3.46034780603125*^9}, {3.460350749859375*^9, 3.460350792859375*^9}, {3.46272014528125*^9, 3.462720157203125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"fausse moyenne arithm\[EAcute]tico-g\[EAcute]om\[EAcute]trique \ = \"\>", "\[InvisibleSpace]", "1.6045563234489544149289136328127375186925755864819151783269148492279`51.\ ", "\[InvisibleSpace]", "\<\" obtenue en \"\>", "\[InvisibleSpace]", "84", "\[InvisibleSpace]", "\<\" coups\"\>"}], SequenceForm[ "fausse moyenne arithm\[EAcute]tico-g\[EAcute]om\[EAcute]trique = ", 1.6045563234489544149289136328127375186925755864819151783269148492279`51., " obtenue en ", 84, " coups"], Editable->False]], "Print", CellChangeTimes->{3.460095084875*^9, 3.460347807078125*^9, 3.460350794578125*^9, 3.462720158390625*^9}] }, Open ]], Cell["\<\ La convergence est bien plus lente : sauriez - vous dire pourquoi?\ \>", "Text"] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1333, 665}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PrintingMargins"->{{54.000000584999995`, \ 54.000000584999995`}, {56.692913999999995`, 56.692913999999995`}}}, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited], 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[545, 20, 503, 12, 91, "Input"], Cell[CellGroupData[{ Cell[1073, 36, 229, 3, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[1327, 43, 455, 11, 43, "Input"], Cell[1785, 56, 163, 3, 45, "Output"] }, Open ]], Cell[1963, 62, 929, 26, 41, "Text"], Cell[2895, 90, 82, 1, 41, "Text"], Cell[CellGroupData[{ Cell[3002, 95, 404, 10, 43, "Input"], Cell[3409, 107, 734, 23, 47, "Output"] }, Open ]], Cell[4158, 133, 1135, 37, 48, "Text"], Cell[5296, 172, 81, 1, 41, "Text"], Cell[CellGroupData[{ Cell[5402, 177, 321, 9, 43, "Input"], Cell[5726, 188, 416, 12, 87, "Output"] }, Open ]], Cell[6157, 203, 717, 21, 53, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6911, 229, 115, 2, 42, "Subsubtitle"], Cell[7029, 233, 351, 10, 41, "Text"], Cell[CellGroupData[{ Cell[7405, 247, 554, 15, 43, "Input"], Cell[7962, 264, 246, 4, 45, "Output"] }, Open ]], Cell[8223, 271, 1028, 21, 41, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[9288, 297, 69, 1, 42, "Subsubtitle"], Cell[9360, 300, 79, 1, 41, "Text"], Cell[CellGroupData[{ Cell[9464, 305, 939, 25, 43, "Input"], Cell[CellGroupData[{ Cell[10428, 334, 352, 8, 32, "Print"], Cell[10783, 344, 349, 8, 32, "Print"], Cell[11135, 354, 352, 8, 32, "Print"], Cell[11490, 364, 351, 8, 32, "Print"], Cell[11844, 374, 352, 8, 32, "Print"], Cell[12199, 384, 350, 8, 32, "Print"] }, Open ]], Cell[12564, 395, 235, 4, 42, "Output"] }, Open ]], Cell[12814, 402, 503, 13, 41, "Text"], Cell[13320, 417, 80, 1, 41, "Text"], Cell[CellGroupData[{ Cell[13425, 422, 693, 19, 43, "Input"], Cell[CellGroupData[{ Cell[14143, 445, 254, 6, 32, "Print"], Cell[14400, 453, 253, 6, 32, "Print"], Cell[14656, 461, 254, 6, 32, "Print"], Cell[14913, 469, 251, 6, 32, "Print"], Cell[15167, 477, 256, 6, 32, "Print"], Cell[15426, 485, 257, 6, 32, "Print"] }, Open ]], Cell[15698, 494, 113, 2, 42, "Output"] }, Open ]], Cell[15826, 499, 173, 4, 41, "Text"], Cell[16002, 505, 319, 6, 66, "Text"], Cell[CellGroupData[{ Cell[16346, 515, 757, 21, 43, "Input"], Cell[CellGroupData[{ Cell[17128, 540, 277, 6, 32, "Print"], Cell[17408, 548, 276, 6, 32, "Print"], Cell[17687, 556, 277, 6, 32, "Print"], Cell[17967, 564, 275, 6, 32, "Print"], Cell[18245, 572, 277, 6, 32, "Print"], Cell[18525, 580, 276, 6, 32, "Print"] }, Open ]], Cell[18816, 589, 134, 2, 42, "Output"] }, Open ]], Cell[18965, 594, 84, 1, 41, "Text"], Cell[CellGroupData[{ Cell[19074, 599, 694, 20, 43, "Input"], Cell[CellGroupData[{ Cell[19793, 623, 255, 6, 32, "Print"], Cell[20051, 631, 252, 6, 32, "Print"], Cell[20306, 639, 254, 6, 32, "Print"], Cell[20563, 647, 258, 6, 32, "Print"], Cell[20824, 655, 259, 6, 32, "Print"], Cell[21086, 663, 260, 6, 32, "Print"] }, Open ]], Cell[21361, 672, 109, 1, 42, "Output"] }, Open ]], Cell[21485, 676, 531, 14, 43, "Text"], Cell[22019, 692, 83, 1, 41, "Text"], Cell[CellGroupData[{ Cell[22127, 697, 917, 25, 43, "Input"], Cell[CellGroupData[{ Cell[23069, 726, 420, 9, 32, "Print"], Cell[23492, 737, 422, 9, 32, "Print"], Cell[23917, 748, 422, 9, 32, "Print"], Cell[24342, 759, 425, 9, 32, "Print"], Cell[24770, 770, 425, 9, 32, "Print"], Cell[25198, 781, 429, 9, 32, "Print"] }, Open ]], Cell[25642, 793, 205, 3, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25896, 802, 90, 1, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[26011, 807, 1585, 45, 98, "Input"], Cell[CellGroupData[{ Cell[27621, 856, 310, 5, 32, "Print"], Cell[27934, 863, 338, 6, 32, "Print"], Cell[28275, 871, 424, 10, 35, "Print"], Cell[28702, 883, 485, 12, 35, "Print"], Cell[29190, 897, 501, 12, 35, "Print"], Cell[29694, 911, 558, 14, 35, "Print"] }, Open ]], Cell[30267, 928, 667, 16, 45, "Output"], Cell[30937, 946, 667, 16, 45, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31653, 968, 104, 4, 71, "Subsubtitle"], Cell[CellGroupData[{ Cell[31782, 976, 617, 14, 43, "Input"], Cell[32402, 992, 316, 5, 42, "Output"] }, Open ]], Cell[32733, 1000, 1150, 32, 41, "Text"], Cell[33886, 1034, 80, 1, 41, "Text"], Cell[CellGroupData[{ Cell[33991, 1039, 890, 18, 43, "Input"], Cell[34884, 1059, 384, 6, 42, "Output"] }, Open ]], Cell[35283, 1068, 1199, 31, 44, "Text"], Cell[36485, 1101, 83, 1, 41, "Text"], Cell[CellGroupData[{ Cell[36593, 1106, 409, 11, 43, "Input"], Cell[37005, 1119, 167, 3, 42, "Output"] }, Open ]], Cell[37187, 1125, 388, 7, 41, "Text"], Cell[37578, 1134, 84, 1, 41, "Text"], Cell[CellGroupData[{ Cell[37687, 1139, 622, 15, 71, "Input"], Cell[38312, 1156, 324, 5, 42, "Output"], Cell[38639, 1163, 325, 5, 42, "Output"] }, Open ]], Cell[38979, 1171, 1199, 31, 43, "Text"], Cell[40181, 1204, 84, 1, 41, "Text"], Cell[CellGroupData[{ Cell[40290, 1209, 588, 14, 43, "Input"], Cell[40881, 1225, 93, 1, 42, "Output"] }, Open ]], Cell[40989, 1229, 1079, 27, 43, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[42105, 1261, 165, 2, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[42295, 1267, 811, 21, 71, "Input"], Cell[43109, 1290, 145, 2, 42, "Output"], Cell[43257, 1294, 144, 2, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43450, 1302, 338, 8, 71, "Subsubtitle"], Cell[CellGroupData[{ Cell[43813, 1314, 1354, 31, 152, "Input"], Cell[45170, 1347, 395, 6, 42, "Output"], Cell[45568, 1355, 467, 8, 42, "Output"], Cell[46038, 1365, 467, 8, 42, "Output"] }, Open ]], Cell[46520, 1376, 246, 5, 41, "Text"], Cell[CellGroupData[{ Cell[46791, 1385, 1160, 28, 125, "Input"], Cell[47954, 1415, 331, 5, 42, "Output"], Cell[48288, 1422, 393, 7, 42, "Output"] }, Open ]], Cell[48696, 1432, 108, 1, 41, "Text"], Cell[CellGroupData[{ Cell[48829, 1437, 899, 23, 125, "Input"], Cell[49731, 1462, 111, 1, 42, "Output"], Cell[49845, 1465, 167, 3, 42, "Output"] }, Open ]], Cell[50027, 1471, 479, 11, 57, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[50543, 1487, 193, 2, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[50761, 1493, 1601, 36, 98, "Input"], Cell[CellGroupData[{ Cell[52387, 1533, 738, 14, 32, "Print"], Cell[53128, 1549, 738, 14, 32, "Print"], Cell[53869, 1565, 738, 14, 32, "Print"], Cell[54610, 1581, 738, 14, 32, "Print"], Cell[55351, 1597, 738, 14, 32, "Print"], Cell[56092, 1613, 740, 14, 32, "Print"], Cell[56835, 1629, 739, 14, 32, "Print"], Cell[57577, 1645, 739, 14, 32, "Print"] }, Open ]] }, Open ]], Cell[58343, 1663, 393, 10, 43, "Text"], Cell[58739, 1675, 115, 1, 41, "Text"], Cell[CellGroupData[{ Cell[58879, 1680, 1010, 29, 98, "Input"], Cell[CellGroupData[{ Cell[59914, 1713, 440, 10, 32, "Print"], Cell[60357, 1725, 439, 10, 32, "Print"], Cell[60799, 1737, 440, 10, 32, "Print"] }, Open ]] }, Open ]], Cell[61266, 1751, 278, 5, 41, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[61581, 1761, 161, 2, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[61767, 1767, 2085, 56, 98, "Input"], Cell[63855, 1825, 1415, 41, 143, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65319, 1872, 99, 1, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[65443, 1877, 671, 19, 71, "Input"], Cell[66117, 1898, 361, 8, 32, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66527, 1912, 188, 3, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[66740, 1919, 966, 24, 43, "Input"], Cell[67709, 1945, 137, 2, 42, "Output"] }, Open ]], Cell[67861, 1950, 507, 15, 43, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[68405, 1970, 94, 1, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[68524, 1975, 690, 18, 71, "Input"], Cell[69217, 1995, 566, 12, 32, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69832, 2013, 208, 5, 42, "Subsubtitle"], Cell[CellGroupData[{ Cell[70065, 2022, 1626, 45, 71, "Input"], Cell[71694, 2069, 600, 12, 58, "Print"] }, Open ]], Cell[72309, 2084, 312, 8, 66, "Text"], Cell[CellGroupData[{ Cell[72646, 2096, 1289, 38, 71, "Input"], Cell[73938, 2136, 682, 13, 58, "Print"] }, Open ]], Cell[74635, 2152, 90, 2, 41, "Text"] }, Open ]] } ] *) (* End of internal cache information *)