(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 40977, 1302]*) (*NotebookOutlinePosition[ 41919, 1333]*) (* CellTagsIndexPosition[ 41875, 1329]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["1. Equations du premier degr\[EAcute]", "Subtitle"], Cell[CellGroupData[{ Cell["Exemple : R\[EAcute]soudre l'\[EAcute]quation ", "Subsubtitle"], Cell[CellGroupData[{ Cell[BoxData[{ \(n = 12; a = Random[Integer, {1, 7}];\), "\[IndentingNewLine]", \(\(b = Random[Integer, {\(-n\), n}];\)\), "\[IndentingNewLine]", \(\(c = Random[Integer, {1, 8}];\)\), "\[IndentingNewLine]", \(\(d = Random[Integer, {\(-6\), n}];\)\), "\[IndentingNewLine]", \(\(e = Random[Integer, {1, 6}];\)\), "\[IndentingNewLine]", \(\(f = Random[Integer, {\(-6\), 6}];\)\), "\[IndentingNewLine]", \(\(g = Random[Integer, {\(-n\), n}];\)\), "\[IndentingNewLine]", \(\(h = Random[Integer, {1, 8}];\)\), "\[IndentingNewLine]", \(\(j = Random[Integer, {\(-n\), n}];\)\), "\[IndentingNewLine]", \(\(exemple = \ \((a\ x + b)\)/c\ - \((x + d)\)/ e \[Equal] \((f\ x + g)\)/ h\ + \ \((j\ x\ + \ b)\)/\((2 e)\);\)\), "\[IndentingNewLine]", \(Print[exemple[\([1]\)], "\< = \>", exemple[\([2]\)]]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(\(\(5 - x\)\/5 + 1\/3\ \((2\ x + 5)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/5\ \ \((\(-x\) - 6)\) + 1\/10\ \((4\ x + 5)\)\)\), SequenceForm[ Plus[ Times[ Rational[ 1, 5], Plus[ 5, Times[ -1, x]]], Times[ Rational[ 1, 3], Plus[ 5, Times[ 2, x]]]], " = ", Plus[ Times[ Rational[ 1, 5], Plus[ -6, Times[ -1, x]]], Times[ Rational[ 1, 10], Plus[ 5, Times[ 4, x]]]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell["Mise au m\[EHat]me d\[EAcute]nominateur", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(den = LCM[c, 2 e, h];\)\), "\[IndentingNewLine]", \(\(exemple\ = \ \((den*\((a\ x + b)\)/c\ - \((x + d)\)*den/e)\)/ den \[Equal] \((den*\((f\ x + g)\)/h\ + \ \((j\ x\ + \ b)\)* den/\((2 e)\))\)/den;\)\), "\[IndentingNewLine]", \(Print[exemple[\([1]\)], "\< = \>", exemple[\([2]\)]]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(\(1\/30\ \((10\ \((2\ x + 5)\) - 6\ \((x - 5)\))\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/30\ \ \((6\ \((\(-x\) - 6)\) + 3\ \((4\ x + 5)\))\)\)\), SequenceForm[ Times[ Rational[ 1, 30], Plus[ Times[ -6, Plus[ -5, x]], Times[ 10, Plus[ 5, Times[ 2, x]]]]], " = ", Times[ Rational[ 1, 30], Plus[ Times[ 6, Plus[ -6, Times[ -1, x]]], Times[ 3, Plus[ 5, Times[ 4, x]]]]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell["\<\ On multiplie les deux membres de l'\[EAcute]quation par le d\ \[EAcute]nominateur commun\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(exemple = den*exemple[\([1]\)] \[Equal] den*exemple[\([2]\)];\)\), "\[IndentingNewLine]", \(Print[exemple[\([1]\)], "\< = \>", exemple[\([2]\)]]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(\(10\ \((2\ x + 5)\) - 6\ \((x - 5)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(6\ \((\(-x\) \ - 6)\) + 3\ \((4\ x + 5)\)\)\), SequenceForm[ Plus[ Times[ -6, Plus[ -5, x]], Times[ 10, Plus[ 5, Times[ 2, x]]]], " = ", Plus[ Times[ 6, Plus[ -6, Times[ -1, x]]], Times[ 3, Plus[ 5, Times[ 4, x]]]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell["Distribuer", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(exemple = \ Expand[exemple[\([1]\)]] \[Equal] Expand[exemple[\([2]\)]];\)\), "\[IndentingNewLine]", \(Print[exemple[\([1]\)], "\< = \>", exemple[\([2]\)]]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(\(14\ x + 80\)\[InvisibleSpace]" = "\[InvisibleSpace]\(6\ x - 21\)\), SequenceForm[ Plus[ 80, Times[ 14, x]], " = ", Plus[ -21, Times[ 6, x]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell["\<\ Regrouper les termes en x dans le 1er membre et les termes ind\ \[EAcute]pendants dans le second membre\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(exemple\ = \ Coefficient[exemple[\([1]\)], x]\ x\ - \ Coefficient[exemple[\([2]\)], x]\ x\ == Coefficient[exemple[\([2]\)], x, 0]\ - Coefficient[exemple[\([1]\)], x, 0]\ ;\)\), "\[IndentingNewLine]", \(Print[exemple[\([1]\)], "\< = \>", exemple[\([2]\)]]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(\(8\ x\)\[InvisibleSpace]" = \ "\[InvisibleSpace]\(-101\)\), SequenceForm[ Times[ 8, x], " = ", -101], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell["La solution est", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(If[FreeQ[exemple[1], x], \ \[IndentingNewLine]If[ exemple[\([2]\)] \[Equal] 0, \ Print["\"], Print["\"]], Print["\", exemple[\([2]\)]/ Coefficient[exemple[\([1]\)], x], "\<}\>"]]\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\("S = {"\[InvisibleSpace]\(-\(101\/8\)\)\ \[InvisibleSpace]"}"\), SequenceForm[ "S = {", Rational[ -101, 8], "}"], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["R\[EAcute]soudre les \[EAcute]quations suivantes dans R :", \ "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(n = 12;\)\), "\[IndentingNewLine]", \(Do[a = Random[Integer, {1, 7}]; \[IndentingNewLine]b = Random[Integer, {\(-n\), n}]; \[IndentingNewLine]c = Random[Integer, {1, 8}]; \[IndentingNewLine]d = Random[Integer, {\(-6\), n}]; \[IndentingNewLine]e = Random[Integer, {1, 6}]; \[IndentingNewLine]f = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]g = Random[Integer, {\(-n\), n}]; \[IndentingNewLine]h = Random[Integer, {1, 8}]; \[IndentingNewLine]j = Random[Integer, {\(-n\), n}]; \[IndentingNewLine]eq\ [ i] = \ \((a\ x + b)\)/c\ - \((x + d)\)/e \[Equal] \((f\ x + g)\)/ h\ + \ \((j\ x\ + \ b)\)/\((2 e)\); \[IndentingNewLine]Print[ i, "\<) \>", \(eq[i]\)[\([1]\)], "\< = \>", \(eq[i]\)[\([2]\)]], {i, 10}]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") "\[InvisibleSpace]\(\(-x\) + 1\/6\ \((7\ x + 5)\) - 7\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\(5 - x\)\/2 + \(x - \ 7\)\/3\)\), SequenceForm[ 1, ") ", Plus[ -7, Times[ -1, x], Times[ Rational[ 1, 6], Plus[ 5, Times[ 7, x]]]], " = ", Plus[ Times[ Rational[ 1, 2], Plus[ 5, Times[ -1, x]]], Times[ Rational[ 1, 3], Plus[ -7, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") "\[InvisibleSpace]\(1\/5\ \((\ \(-x\) - 9)\) + 1\/7\ \((3\ x + 11)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/8\ \((4\ \ x + 7)\) + 1\/10\ \((6\ x + 11)\)\)\), SequenceForm[ 2, ") ", Plus[ Times[ Rational[ 1, 5], Plus[ -9, Times[ -1, x]]], Times[ Rational[ 1, 7], Plus[ 11, Times[ 3, x]]]], " = ", Plus[ Times[ Rational[ 1, 8], Plus[ 7, Times[ 4, x]]], Times[ Rational[ 1, 10], Plus[ 11, Times[ 6, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") "\[InvisibleSpace]\(1\/3\ \((\ \(-x\) - 3)\) + 1\/6\ \((4\ x - 4)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(3\ x + 1\/6\ \((5\ x - 4)\) + 2\)\), SequenceForm[ 3, ") ", Plus[ Times[ Rational[ 1, 3], Plus[ -3, Times[ -1, x]]], Times[ Rational[ 1, 6], Plus[ -4, Times[ 4, x]]]], " = ", Plus[ 2, Times[ 3, x], Times[ Rational[ 1, 6], Plus[ -4, Times[ 5, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") "\[InvisibleSpace]\(1\/3\ \((\ \(-x\) - 7)\) + 2\ x - 7\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/5\ \((6\ x - 2)\) + 1\/6\ \((10\ x - 7)\)\)\), SequenceForm[ 4, ") ", Plus[ -7, Times[ Rational[ 1, 3], Plus[ -7, Times[ -1, x]]], Times[ 2, x]], " = ", Plus[ Times[ Rational[ 1, 5], Plus[ -2, Times[ 6, x]]], Times[ Rational[ 1, 6], Plus[ -7, Times[ 10, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") "\[InvisibleSpace]\(1\/6\ \((\ \(-x\) - 12)\) + 1\/7\ \((6\ x - 8)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/8\ \((9 - 6\ x)\) + 1\/12\ \((\(-2\)\ x - 8)\)\)\), SequenceForm[ 5, ") ", Plus[ Times[ Rational[ 1, 6], Plus[ -12, Times[ -1, x]]], Times[ Rational[ 1, 7], Plus[ -8, Times[ 6, x]]]], " = ", Plus[ Times[ Rational[ 1, 8], Plus[ 9, Times[ -6, x]]], Times[ Rational[ 1, 12], Plus[ -8, Times[ -2, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") "\[InvisibleSpace]\(\(5 - x\)\ \/2 + 1\/8\ \((4\ x - 3)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/7\ \((2\ \ x - 11)\) - 3\/4\)\), SequenceForm[ 6, ") ", Plus[ Times[ Rational[ 1, 2], Plus[ 5, Times[ -1, x]]], Times[ Rational[ 1, 8], Plus[ -3, Times[ 4, x]]]], " = ", Plus[ Rational[ -3, 4], Times[ Rational[ 1, 7], Plus[ -11, Times[ 2, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") "\[InvisibleSpace]\(1\/3\ \((\ \(-x\) - 2)\) + x + 10\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/6\ \((8 - 2\ x)\) + 5\/3\)\), SequenceForm[ 7, ") ", Plus[ 10, Times[ Rational[ 1, 3], Plus[ -2, Times[ -1, x]]], x], " = ", Plus[ Rational[ 5, 3], Times[ Rational[ 1, 6], Plus[ 8, Times[ -2, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") "\[InvisibleSpace]\(1\/5\ \((\ \(-x\) - 12)\) + 1\/8\ \((2\ x - 12)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/10\ \ \((\(-5\)\ x - 12)\) + 1\/3\ \((12 - 3\ x)\)\)\), SequenceForm[ 8, ") ", Plus[ Times[ Rational[ 1, 5], Plus[ -12, Times[ -1, x]]], Times[ Rational[ 1, 8], Plus[ -12, Times[ 2, x]]]], " = ", Plus[ Times[ Rational[ 1, 10], Plus[ -12, Times[ -5, x]]], Times[ Rational[ 1, 3], Plus[ 12, Times[ -3, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") "\[InvisibleSpace]\(1\/4\ \((\ \(-x\) - 11)\) + 1\/3\ \((7\ x + 1)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/8\ \ \((\(-6\)\ x - 3)\) + 1\/8\ \((1 - 5\ x)\)\)\), SequenceForm[ 9, ") ", Plus[ Times[ Rational[ 1, 4], Plus[ -11, Times[ -1, x]]], Times[ Rational[ 1, 3], Plus[ 1, Times[ 7, x]]]], " = ", Plus[ Times[ Rational[ 1, 8], Plus[ -3, Times[ -6, x]]], Times[ Rational[ 1, 8], Plus[ 1, Times[ -5, x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") "\[InvisibleSpace]\(1\/3\ \ \((\(-x\) - 11)\) + x - 9\)\[InvisibleSpace]" = "\[InvisibleSpace]\(1\/6\ \((\(-5\)\ x - 9)\) + 1\/4\ \((12 - 5\ x)\)\)\), SequenceForm[ 10, ") ", Plus[ -9, Times[ Rational[ 1, 3], Plus[ -11, Times[ -1, x]]], x], " = ", Plus[ Times[ Rational[ 1, 6], Plus[ -9, Times[ -5, x]]], Times[ Rational[ 1, 4], Plus[ 12, Times[ -5, x]]]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell[BoxData[ \(CellPrint[ Cell["\", "\", PageBreakAbove \[Rule] True]]\)], "Input", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell["Solutions :", "Subsubtitle", PageBreakAbove->True, GeneratedCell->True, CellAutoOverwrite->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(Do[\[IndentingNewLine]sol[i] = Solve[eq[i], x]; \[IndentingNewLine]If[ Length[sol[i]] != 0, sol[i] = x\ /. \ sol[i]]; \[IndentingNewLine]If[ sol[i] \[Equal] {x}, sol[i] = "\"]; \[IndentingNewLine]Print[ i, "\<) S = \>", sol[i]]\[IndentingNewLine], {i, 1, 10}\[IndentingNewLine]];\)\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") S = "\[InvisibleSpace]{19}\), SequenceForm[ 1, ") S = ", {19}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-\(617\/244\)\)}\), SequenceForm[ 2, ") S = ", { Rational[ -617, 244]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-\(6\/7\)\)}\), SequenceForm[ 3, ") S = ", { Rational[ -6, 7]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-\(233\/36\)\)}\), SequenceForm[ 4, ") S = ", { Rational[ -233, 36]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") S = \ "\[InvisibleSpace]{121\/54}\), SequenceForm[ 5, ") S = ", { Rational[ 121, 54]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") S = \ "\[InvisibleSpace]{249\/16}\), SequenceForm[ 6, ") S = ", { Rational[ 249, 16]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(19\ \/3\)\)}\), SequenceForm[ 7, ") S = ", { Rational[ -19, 3]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") S = \ "\[InvisibleSpace]{134\/31}\), SequenceForm[ 8, ") S = ", { Rational[ 134, 31]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") S = "\[InvisibleSpace]{52\/83}\ \), SequenceForm[ 9, ") S = ", { Rational[ 52, 83]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") S = \ "\[InvisibleSpace]{170\/33}\), SequenceForm[ 10, ") S = ", { Rational[ 170, 33]}], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["2. Equations r\[EAcute]ductibles au premier degr\[EAcute]", "Subtitle"], Cell[CellGroupData[{ Cell["R\[EAcute]soudre les \[EAcute]quations suivantes dans R :", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(Do[\[IndentingNewLine]a = Random[Integer, {\(-8\), 8}]; b = Random[Integer, {\(-10\), 10}]; \[IndentingNewLine]c = Random[Integer, {1, 4}]; \[IndentingNewLine]d = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]e = Random[Integer, {\(-8\), 8}]; \[IndentingNewLine]f = Random[Integer, {\(-10\), 10}]; \[IndentingNewLine]g = e\ c; \[IndentingNewLine]h = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]j = a + 1; \[IndentingNewLine]k = c; \[IndentingNewLine]eq2[ i] = \((a\ x\ + \ b)\)/\((c\ x\ + d)\) + \((e\ x + f)\)/\((g\ x\ + h)\) == j/k; \[IndentingNewLine]Print[ i, "\<) \>", \(eq2[i]\)[\([1]\)], "\< = \>", \(eq2[ i]\)[\([2]\)]]\[IndentingNewLine], {i, 1, 10}]\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") "\[InvisibleSpace]\(\(7 - 2\ \ x\)\/\(3 - 4\ x\) + \(1 - x\)\/\(2\ x + 3\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]0\), SequenceForm[ 1, ") ", Plus[ Times[ Power[ Plus[ 3, Times[ -4, x]], -1], Plus[ 7, Times[ -2, x]]], Times[ Plus[ 1, Times[ -1, x]], Power[ Plus[ 3, Times[ 2, x]], -1]]], " = ", 0], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") "\[InvisibleSpace]\(\(\(-7\)\ \ x - 10\)\/\(x - 1\) - 2\)\[InvisibleSpace]" = "\[InvisibleSpace]\(-6\)\), SequenceForm[ 2, ") ", Plus[ -2, Times[ Plus[ -10, Times[ -7, x]], Power[ Plus[ -1, x], -1]]], " = ", -6], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") "\[InvisibleSpace]\(\(9 - 8\ \ x\)\/\(2 - 16\ x\) + \(\(-3\)\ x - 10\)\/\(2\ x + 6\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]\(-1\)\), SequenceForm[ 3, ") ", Plus[ Times[ Power[ Plus[ 2, Times[ -16, x]], -1], Plus[ 9, Times[ -8, x]]], Times[ Plus[ -10, Times[ -3, x]], Power[ Plus[ 6, Times[ 2, x]], -1]]], " = ", -1], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") "\[InvisibleSpace]\(\(6 - 6\ \ x\)\/\(1 - 18\ x\) + \(\(-4\)\ x - 6\)\/\(3\ x + 4\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]\(-1\)\), SequenceForm[ 4, ") ", Plus[ Times[ Power[ Plus[ 1, Times[ -18, x]], -1], Plus[ 6, Times[ -6, x]]], Times[ Plus[ -6, Times[ -4, x]], Power[ Plus[ 4, Times[ 3, x]], -1]]], " = ", -1], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") "\[InvisibleSpace]\(\(2 - 3\ \ x\)\/\(x - 3\) + \(7\ x - 9\)\/\(7\ x - 4\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]\(-2\)\), SequenceForm[ 5, ") ", Plus[ Times[ Plus[ 2, Times[ -3, x]], Power[ Plus[ -3, x], -1]], Times[ Plus[ -9, Times[ 7, x]], Power[ Plus[ -4, Times[ 7, x]], -1]]], " = ", -2], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") "\[InvisibleSpace]\(\(3\ x - \ 3\)\/\(3\ x - 2\) + \(7\ x - 4\)\/\(x - 4\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]8\), SequenceForm[ 6, ") ", Plus[ Times[ Plus[ -3, Times[ 3, x]], Power[ Plus[ -2, Times[ 3, x]], -1]], Times[ Power[ Plus[ -4, x], -1], Plus[ -4, Times[ 7, x]]]], " = ", 8], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") "\[InvisibleSpace]\(\(x - 8\)\ \/\(x + 4\) + \(2\ x + 1\)\/\(2\ x - 2\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]2\), SequenceForm[ 7, ") ", Plus[ Times[ Plus[ -8, x], Power[ Plus[ 4, x], -1]], Times[ Power[ Plus[ -2, Times[ 2, x]], -1], Plus[ 1, Times[ 2, x]]]], " = ", 2], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") "\[InvisibleSpace]\(\(2\ x - \ 8\)\/\(4\ x - 1\) - \(7 - 7\ x\)\/\(28\ x\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]3\/4\), SequenceForm[ 8, ") ", Plus[ Times[ Rational[ -1, 28], Plus[ 7, Times[ -7, x]], Power[ x, -1]], Times[ Plus[ -8, Times[ 2, x]], Power[ Plus[ -1, Times[ 4, x]], -1]]], " = ", Rational[ 3, 4]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") "\[InvisibleSpace]\(\(6 - 5\ \ x\)\/\(2\ x + 3\) + \(1 - 3\ x\)\/\(\(-6\)\ x - 3\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]\(-2\)\), SequenceForm[ 9, ") ", Plus[ Times[ Power[ Plus[ -3, Times[ -6, x]], -1], Plus[ 1, Times[ -3, x]]], Times[ Plus[ 6, Times[ -5, x]], Power[ Plus[ 3, Times[ 2, x]], -1]]], " = ", -2], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") "\[InvisibleSpace]\(\(\(-3\)\ \ x - 10\)\/\(x - 3\) + \(2\ x - 10\)\/\(2\ x + 5\)\)\[InvisibleSpace]" = "\ \[InvisibleSpace]\(-2\)\), SequenceForm[ 10, ") ", Plus[ Times[ Plus[ -10, Times[ -3, x]], Power[ Plus[ -3, x], -1]], Times[ Plus[ -10, Times[ 2, x]], Power[ Plus[ 5, Times[ 2, x]], -1]]], " = ", -2], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell[BoxData[ \(CellPrint[ Cell["\", "\", PageBreakAbove \[Rule] True]]\)], "Input", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell["Solutions :", "Subsubtitle", PageBreakAbove->True, GeneratedCell->True, CellAutoOverwrite->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(Do[\[IndentingNewLine]sol2[i] = Solve[eq2[i], x]; \[IndentingNewLine]If[Length[sol2[i]] != 0, sol2[i] = x\ /. \ sol2[i]]; \[IndentingNewLine]If[ sol2[i] \[Equal] {x}, sol2[i] = "\"]; \[IndentingNewLine]Print[ i, "\<) S = \>", sol2[i]]\[IndentingNewLine], {i, 1, 10}\[IndentingNewLine]];\)\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-24\)}\), SequenceForm[ 1, ") S = ", {-24}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(14\ \/3\)\)}\), SequenceForm[ 2, ") S = ", { Rational[ -14, 3]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(23\ \/16\)\)}\), SequenceForm[ 3, ") S = ", { Rational[ -23, 16]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(22\ \/29\)\)}\), SequenceForm[ 4, ") S = ", { Rational[ -22, 29]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") S = "\[InvisibleSpace]{43\/54}\ \), SequenceForm[ 5, ") S = ", { Rational[ 43, 54]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") S = "\[InvisibleSpace]{44\/71}\ \), SequenceForm[ 6, ") S = ", { Rational[ 44, 71]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") S = \ "\[InvisibleSpace]{12\/7}\), SequenceForm[ 7, ") S = ", { Rational[ 12, 7]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") S = \ "\[InvisibleSpace]{1\/34}\), SequenceForm[ 8, ") S = ", { Rational[ 1, 34]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(33\ \/76\)\)}\), SequenceForm[ 9, ") S = ", { Rational[ -33, 76]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-\(50\/53\)\)}\), SequenceForm[ 10, ") S = ", { Rational[ -50, 53]}], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Closed]], Cell["3. Equations r\[EAcute]ductibles au premier degr\[EAcute] (2)", \ "Subtitle"], Cell["R\[EAcute]soudre les \[EAcute]quations suivantes dans R :", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(Do[\[IndentingNewLine]a = Random[Integer, {\(-8\), 8}]; b = Random[Integer, {\(-10\), 10}]; \[IndentingNewLine]c = Random[Integer, {\(-8\), 8}]; \[IndentingNewLine]d = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]e = Random[Integer, {\(-8\), 8}]; \[IndentingNewLine]f = b - d; \[IndentingNewLine]g = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]h = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]j = Random[Integer, {\(-6\), 6}]; \[IndentingNewLine]eq3[ i] = \((x - a)\) \((b\ x + c)\) - \((x - a)\) \((d\ x + e)\) == \((f\ x + g)\) \((\ x + j)\); \[IndentingNewLine]Print[ i, "\<) \>", \(eq3[i]\)[\([1]\)], "\< = \>", \(eq3[ i]\)[\([2]\)]]\[IndentingNewLine], {i, 1, 10}]\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") "\[InvisibleSpace]\(\((\(-5\)\ \ x - 1)\)\ \((x - 8)\) - \((8 - 4\ x)\)\ \((x - 8)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((\(-x\) - 4)\)\ \((x - 2)\)\)\), SequenceForm[ 1, ") ", Plus[ Times[ Plus[ -1, Times[ -5, x]], Plus[ -8, x]], Times[ -1, Plus[ 8, Times[ -4, x]], Plus[ -8, x]]], " = ", Times[ Plus[ -4, Times[ -1, x]], Plus[ -2, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") "\[InvisibleSpace]\(\((5 - 9\ x)\)\ x - x\ \((3\ x + 5)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((2 - 12\ x)\)\ x\)\), SequenceForm[ 2, ") ", Plus[ Times[ Plus[ 5, Times[ -9, x]], x], Times[ -1, x, Plus[ 5, Times[ 3, x]]]], " = ", Times[ Plus[ 2, Times[ -12, x]], x]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") "\[InvisibleSpace]\(\((x + 3)\)\ \((10\ x - 7)\) - \((x + 3)\)\ \((6\ x - 6)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((x - 5)\)\ \((4\ x + 6)\)\)\), SequenceForm[ 3, ") ", Plus[ Times[ -1, Plus[ 3, x], Plus[ -6, Times[ 6, x]]], Times[ Plus[ 3, x], Plus[ -7, Times[ 10, x]]]], " = ", Times[ Plus[ -5, x], Plus[ 6, Times[ 4, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") "\[InvisibleSpace]\(\((2 - 3\ x)\)\ \((x + 5)\) - \((x + 5)\)\ \((5\ x + 6)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((\(-8\)\ x \ - 4)\)\ \((x + 2)\)\)\), SequenceForm[ 4, ") ", Plus[ Times[ Plus[ 2, Times[ -3, x]], Plus[ 5, x]], Times[ -1, Plus[ 5, x], Plus[ 6, Times[ 5, x]]]], " = ", Times[ Plus[ -4, Times[ -8, x]], Plus[ 2, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") "\[InvisibleSpace]\(\((x - 7)\)\ \((4\ x + 5)\) - \((x - 7)\)\ \((6\ x + 8)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((1 - 2\ x)\)\ \((x - 3)\)\)\), SequenceForm[ 5, ") ", Plus[ Times[ Plus[ -7, x], Plus[ 5, Times[ 4, x]]], Times[ -1, Plus[ -7, x], Plus[ 8, Times[ 6, x]]]], " = ", Times[ Plus[ 1, Times[ -2, x]], Plus[ -3, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") "\[InvisibleSpace]\(\((x - 8)\)\ \((x + 2)\) - \((x + 2)\)\ \((5\ x + 7)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((4 - 4\ x)\)\ \((x + 4)\)\)\), SequenceForm[ 6, ") ", Plus[ Times[ Plus[ -8, x], Plus[ 2, x]], Times[ -1, Plus[ 2, x], Plus[ 7, Times[ 5, x]]]], " = ", Times[ Plus[ 4, Times[ -4, x]], Plus[ 4, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") "\[InvisibleSpace]\(\((x - 2)\)\ \((6\ x - 6)\) - \((x - 2)\)\ \((5\ x - 7)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((x - 2)\)\ \((x + 2)\)\)\), SequenceForm[ 7, ") ", Plus[ Times[ -1, Plus[ -2, x], Plus[ -7, Times[ 5, x]]], Times[ Plus[ -2, x], Plus[ -6, Times[ 6, x]]]], " = ", Times[ Plus[ -2, x], Plus[ 2, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") "\[InvisibleSpace]\(\((8\ x + 8)\)\ x + 2\ x\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((x - 1)\)\ \((8\ x - 6)\)\)\), SequenceForm[ 8, ") ", Plus[ Times[ 2, x], Times[ x, Plus[ 8, Times[ 8, x]]]], " = ", Times[ Plus[ -1, x], Plus[ -6, Times[ 8, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") "\[InvisibleSpace]\(\((8 - 10\ x)\)\ \((x - 3)\) - \((\(-6\)\ x - 5)\)\ \((x - 3)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((\(-4\)\ x \ - 2)\)\ x\)\), SequenceForm[ 9, ") ", Plus[ Times[ Plus[ 8, Times[ -10, x]], Plus[ -3, x]], Times[ -1, Plus[ -5, Times[ -6, x]], Plus[ -3, x]]], " = ", Times[ Plus[ -2, Times[ -4, x]], x]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") "\[InvisibleSpace]\(\(-\((6\ \ x + 1)\)\)\ \((x + 3)\) - 4\ \((x + 3)\)\)\[InvisibleSpace]" = "\[InvisibleSpace]\(\((2 - 6\ x)\)\ \((x + 1)\)\)\), SequenceForm[ 10, ") ", Plus[ Times[ -4, Plus[ 3, x]], Times[ -1, Plus[ 3, x], Plus[ 1, Times[ 6, x]]]], " = ", Times[ Plus[ 2, Times[ -6, x]], Plus[ 1, x]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell[BoxData[ \(CellPrint[ Cell["\", "\", PageBreakAbove \[Rule] True]]\)], "Input", CellOpen->False], Cell[CellGroupData[{ Cell["Solutions :", "Subsubtitle", PageBreakAbove->True, GeneratedCell->True, CellAutoOverwrite->True], Cell[CellGroupData[{ Cell[BoxData[ \(\(Do[\[IndentingNewLine]sol3[i] = Solve[eq3[i], x]; \[IndentingNewLine]If[Length[sol3[i]] != 0, sol3[i] = x\ /. \ sol3[i]]; \[IndentingNewLine]If[ sol3[i] \[Equal] {x}, sol3[i] = "\"]; \[IndentingNewLine]Print[ i, "\<) S = \>", sol3[i]]\[IndentingNewLine], {i, 1, 10}\[IndentingNewLine]];\)\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-64\)}\), SequenceForm[ 1, ") S = ", {-64}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") S = "\[InvisibleSpace]{0}\), SequenceForm[ 2, ") S = ", {0}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(27\ \/25\)\)}\), SequenceForm[ 3, ") S = ", { Rational[ -27, 25]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-\(1\/2\)\)}\), SequenceForm[ 4, ") S = ", { Rational[ -1, 2]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-6\)}\ \), SequenceForm[ 5, ") S = ", {-6}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") S = "\[InvisibleSpace]{\(-\(46\ \/11\)\)}\), SequenceForm[ 6, ") S = ", { Rational[ -46, 11]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") S = "\[InvisibleSpace]{2}\), SequenceForm[ 7, ") S = ", {2}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") S = "\[InvisibleSpace]{1\/4}\), SequenceForm[ 8, ") S = ", { Rational[ 1, 4]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") S = \ "\[InvisibleSpace]{13\/9}\), SequenceForm[ 9, ") S = ", { Rational[ 13, 9]}], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") S = \ "\[InvisibleSpace]{\(-\(17\/19\)\)}\), SequenceForm[ 10, ") S = ", { Rational[ -17, 19]}], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{33, 1280}, {0, 1002}}, WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Manual, WindowSize->{782, 721}, WindowMargins->{{83, Automatic}, {Automatic, 7}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PrintingMargins"->{{54, 54}, {72, 72}}, "PrintCellBrackets"->False, "PrintRegistrationMarks"->False, "PrintMultipleHorizontalPages"->False}, CellLabelAutoDelete->True ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 57, 0, 52, "Subtitle"], Cell[CellGroupData[{ Cell[1858, 57, 69, 0, 31, "Subsubtitle"], Cell[CellGroupData[{ Cell[1952, 61, 925, 15, 19, "Input", CellOpen->False], Cell[2880, 78, 778, 25, 41, "Print"] }, Open ]], Cell[3673, 106, 55, 0, 33, "Text"], Cell[CellGroupData[{ Cell[3753, 110, 383, 6, 19, "Input", CellOpen->False], Cell[4139, 118, 788, 24, 41, "Print"] }, Open ]], Cell[4942, 145, 112, 3, 33, "Text"], Cell[CellGroupData[{ Cell[5079, 152, 225, 5, 19, "Input", CellOpen->False], Cell[5307, 159, 628, 20, 25, "Print"] }, Open ]], Cell[5950, 182, 26, 0, 33, "Text"], Cell[CellGroupData[{ Cell[6001, 186, 235, 5, 19, "Input", CellOpen->False], Cell[6239, 193, 319, 9, 25, "Print"] }, Open ]], Cell[6573, 205, 127, 3, 33, "Text"], Cell[CellGroupData[{ Cell[6725, 212, 380, 8, 19, "Input", CellOpen->False], Cell[7108, 222, 228, 6, 25, "Print"] }, Open ]], Cell[7351, 231, 31, 0, 33, "Text"], Cell[CellGroupData[{ Cell[7407, 235, 307, 7, 19, "Input", CellOpen->False], Cell[7717, 244, 239, 6, 41, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8005, 256, 82, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[8112, 261, 884, 15, 19, "Input", CellOpen->False], Cell[8999, 278, 694, 21, 41, "Print"], Cell[9696, 301, 841, 26, 41, "Print"], Cell[10540, 329, 757, 23, 41, "Print"], Cell[11300, 354, 747, 22, 41, "Print"], Cell[12050, 378, 865, 26, 41, "Print"], Cell[12918, 406, 721, 22, 41, "Print"], Cell[13642, 430, 623, 18, 41, "Print"], Cell[14268, 450, 854, 26, 41, "Print"], Cell[15125, 478, 845, 26, 41, "Print"], Cell[15973, 506, 730, 21, 41, "Print"] }, Open ]], Cell[16718, 530, 150, 4, 19, "Input", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell[16905, 539, 108, 3, 31, "Subsubtitle", PageBreakAbove->True], Cell[CellGroupData[{ Cell[17038, 546, 392, 7, 19, "Input", CellOpen->False], Cell[17433, 555, 199, 4, 25, "Print"], Cell[17635, 561, 245, 6, 41, "Print"], Cell[17883, 569, 237, 6, 41, "Print"], Cell[18123, 577, 243, 6, 41, "Print"], Cell[18369, 585, 233, 6, 41, "Print"], Cell[18605, 593, 233, 6, 41, "Print"], Cell[18841, 601, 239, 6, 41, "Print"], Cell[19083, 609, 233, 6, 41, "Print"], Cell[19319, 617, 231, 6, 41, "Print"], Cell[19553, 625, 235, 6, 41, "Print"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[19849, 638, 77, 0, 52, "Subtitle"], Cell[CellGroupData[{ Cell[19951, 642, 79, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[20055, 646, 851, 15, 19, "Input", CellOpen->False], Cell[20909, 663, 642, 19, 41, "Print"], Cell[21554, 684, 438, 11, 41, "Print"], Cell[21995, 697, 661, 19, 41, "Print"], Cell[22659, 718, 659, 19, 41, "Print"], Cell[23321, 739, 619, 18, 41, "Print"], Cell[23943, 759, 613, 18, 41, "Print"], Cell[24559, 779, 580, 17, 41, "Print"], Cell[25142, 798, 647, 19, 41, "Print"], Cell[25792, 819, 657, 19, 41, "Print"], Cell[26452, 840, 630, 18, 41, "Print"] }, Open ]], Cell[27097, 861, 150, 4, 19, "Input", CellOpen->False] }, Open ]], Cell[CellGroupData[{ Cell[27284, 870, 108, 3, 31, "Subsubtitle", PageBreakAbove->True], Cell[CellGroupData[{ Cell[27417, 877, 400, 7, 19, "Input", CellOpen->False], Cell[27820, 886, 207, 5, 25, "Print"], Cell[28030, 893, 239, 6, 41, "Print"], Cell[28272, 901, 241, 6, 41, "Print"], Cell[28516, 909, 241, 6, 41, "Print"], Cell[28760, 917, 231, 6, 41, "Print"], Cell[28994, 925, 231, 6, 41, "Print"], Cell[29228, 933, 229, 6, 41, "Print"], Cell[29460, 941, 229, 6, 41, "Print"], Cell[29692, 949, 241, 6, 41, "Print"], Cell[29936, 957, 243, 6, 41, "Print"] }, Open ]] }, Closed]], Cell[30206, 967, 83, 1, 54, "Subtitle"], Cell[30292, 970, 79, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[30396, 974, 869, 15, 19, "Input", CellOpen->False], Cell[31268, 991, 703, 20, 25, "Print"], Cell[31974, 1013, 619, 18, 25, "Print"], Cell[32596, 1033, 710, 20, 25, "Print"], Cell[33309, 1055, 698, 20, 25, "Print"], Cell[34010, 1077, 709, 20, 25, "Print"], Cell[34722, 1099, 676, 19, 25, "Print"], Cell[35401, 1120, 681, 19, 25, "Print"], Cell[36085, 1141, 561, 16, 25, "Print"], Cell[36649, 1159, 676, 19, 25, "Print"], Cell[37328, 1180, 625, 18, 25, "Print"] }, Open ]], Cell[37968, 1201, 150, 4, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[38143, 1209, 108, 3, 31, "Subsubtitle", PageBreakAbove->True], Cell[CellGroupData[{ Cell[38276, 1216, 400, 7, 19, "Input", CellOpen->False], Cell[38679, 1225, 207, 5, 25, "Print"], Cell[38889, 1232, 197, 4, 25, "Print"], Cell[39089, 1238, 241, 6, 41, "Print"], Cell[39333, 1246, 237, 6, 41, "Print"], Cell[39573, 1254, 205, 5, 25, "Print"], Cell[39781, 1261, 241, 6, 41, "Print"], Cell[40025, 1269, 197, 4, 25, "Print"], Cell[40225, 1275, 234, 6, 41, "Print"], Cell[40462, 1283, 229, 6, 41, "Print"], Cell[40694, 1291, 243, 6, 41, "Print"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)