(* 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[ 37313, 1256] NotebookOptionsPosition[ 32971, 1163] NotebookOutlinePosition[ 33358, 1180] CellTagsIndexPosition[ 33315, 1177] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Exercices de d\[EAcute]rivation 4", "Section", CellChangeTimes->{{3.744544805759761*^9, 3.74454480581429*^9}}, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"92b65be2-276e-49c9-8ab1-4e54e57ebd23"], Cell[CellGroupData[{ Cell["D\[EAcute]river les fonctions suivantes", "Subsection", FontColor->RGBColor[ 0.501961, 0, 0],ExpressionUUID->"a6b3da70-f7ab-4ce1-8a35-f5456b78e7b8"], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", "1"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"e", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"g", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{"a", "*", RowBox[{"x", "^", RowBox[{"Abs", "[", "d", "]"}]}]}], "-", RowBox[{"2", RowBox[{"x", "^", RowBox[{"Abs", "[", "b", "]"}]}]}], "+", RowBox[{"c", "*", RowBox[{"Sqrt", "[", "x", "]"}]}], "-", RowBox[{"d", "/", RowBox[{"x", "^", RowBox[{"Abs", "[", "e", "]"}]}]}], "+", "g"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "1", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontSize->13, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"7a945a20-fc8e-413a-8819-d472a2a69344"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"3", " ", SqrtBox["x"]}], "-", "1", "-", FractionBox["1", SuperscriptBox["x", "4"]]}]}], SequenceForm[ 1, ") f(x) = ", -1 - x^(-4) + 3 x^Rational[1, 2] + 2 x - 2 x^2], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"002aad99-\ 8778-49c1-8a17-7bff65ea7ce7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RadicalBox[ RowBox[{ RowBox[{"x", "^", RowBox[{"Abs", "[", "a", "]"}]}], "+", RowBox[{"b", "*", "x"}], "+", "c"}], "3"]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontSize->13, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"25aeacb0-5910-4a18-b5f2-39ba8f2dcb6d"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RadicalBox[ RowBox[{ SuperscriptBox["x", "4"], "-", RowBox[{"2", " ", "x"}], "+", "3"}], "3"]}], SequenceForm[2, ") f(x) = ", (3 - 2 x + x^4)^Rational[1, 3]], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"49f0f7cf-\ a8bd-4fce-be34-2880a9a7456e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "x"}], "+", "b"}], ")"}], "^", "2"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "c", "]"}], "*", "x"}], "+", "d"}], ")"}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontSize->13, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"96d68aec-6b81-42e7-a741-94050eaab5dc"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "4"}], ")"}], "2"], RowBox[{ RowBox[{"5", " ", "x"}], "+", "5"}]]}], SequenceForm[3, ") f(x) = ", (4 + 2 x)^2/(5 + 5 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"e753ed2a-\ d50c-4060-80e8-452051609188"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "^", RowBox[{"Abs", "[", "a", "]"}]}], "*", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], "^", RowBox[{"Abs", "[", "b", "]"}]}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontSize->13, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"2946f428-61b5-440f-99ed-a42ad4bdf9f6"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SuperscriptBox["sin", "3"], "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], SequenceForm[4, ") f(x) = ", Sin[x]^3 Tan[x]^2], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"db652e66-\ 89c1-4c12-a3d8-28d1f3421b74"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", " ", RowBox[{ RowBox[{"(", RowBox[{"a", "+", RowBox[{"b", " ", "*", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{"d", " ", "+", " ", RowBox[{"c", "*", "x"}]}], ")"}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontSize->13, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"fef3d6c2-4b54-4fdf-9928-adb04b55b694"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"5", "-", RowBox[{"2", " ", "x"}]}], RowBox[{ RowBox[{"4", " ", "x"}], "+", "5"}]]}], SequenceForm[5, ") f(x) = ", (5 - 2 x)/(5 + 4 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"ddbf8508-\ ccd3-44ca-beeb-13e7566bc587"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "/", "x"}], " ", "+", RowBox[{"b", " ", "x"}]}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"c", "*", "x"}], "+", RowBox[{"d", "/", "x"}]}], ")"}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"adb90ffc-7261-4b49-b9d2-790066f2aa1e"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"5", " ", "x"}], "-", FractionBox["5", "x"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "x"}], "+", FractionBox["2", "x"]}], ")"}]}]}], SequenceForm[6, ") f(x) = ", ((-5)/x + 5 x) (2/x + 5 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"0d4d9e5f-\ 924c-42ba-9ba2-5767ce8522e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RadicalBox["x", "3"], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"c", " ", "x"}], "+", "d"}], ")"}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"577b387e-8f32-4905-ab9b-63806c04ba05"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ RadicalBox["x", "3"], "+", "1"}], RowBox[{ RowBox[{"5", " ", "x"}], "+", "3"}]]}], SequenceForm[7, ") f(x) = ", (1 + x^Rational[1, 3])/(3 + 5 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"35f31d17-\ e0fb-4cc4-bc75-92c31c69cc76"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "*", "x"}], " ", "+", " ", "b"}], " ", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"c", " ", "x"}], "+", "d"}], ")"}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"0d4a6acb-67a3-4b6d-a541-865424167bcf"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["5", RowBox[{"4", "-", RowBox[{"3", " ", "x"}]}]]}]}], SequenceForm[8, ") f(x) = ", (-5)/(4 - 3 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"d6a4c8bc-\ ba38-46b6-8d7c-30ea484845e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{"a", "*", RowBox[{ RowBox[{"Cos", "[", " ", "x", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", " ", "x", "]"}], "-", "d"}], ")"}]}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"a4c6808c-7152-4515-906f-879553974238"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"3", " ", RowBox[{"cos", "(", "x", ")"}]}], RowBox[{ RowBox[{"sin", "(", "x", ")"}], "+", "2"}]]}], SequenceForm[9, ") f(x) = ", 3 (Cos[x]/(2 + Sin[x]))], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"f277158e-\ 9488-42a3-9074-2c0530762a6f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Clear", "[", "f", "]"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";", RowBox[{"d", "=", RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "*", "x"}], "+", "b"}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{"c", "+", RowBox[{"d", "*", "x"}]}], "]"}]}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], TraditionalForm]}], "Input",\ CellOpen->False, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"5641aa30-02cc-4660-89c8-2c91064ad56a"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ RowBox[{"5", " ", "x"}], "-", "3"}], SqrtBox[ RowBox[{ RowBox[{"3", " ", "x"}], "-", "5"}]]]}], SequenceForm[10, ") f(x) = ", (-5 + 3 x)^Rational[-1, 2] (-3 + 5 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"b8e86573-\ c03a-41f5-ac87-ed7cc935fae0"] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True,ExpressionUUID->"e744a4ab-0e5a-4a26-bb85-e84b79781990"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions :", "Section", FontColor->RGBColor[ 0.501961, 0, 0],ExpressionUUID->"3c3a5b81-c326-40aa-947f-f2b21bf5e0ff"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f'(x) = \>\"", ",", RowBox[{"sol", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellOpen->False, FontColor->RGBColor[ 0, 0.500999, 0.500999],ExpressionUUID->"b7c04977-2263-41bd-bab0-f47aa72c72e1"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "x"}], "+", "2", "+", FractionBox["3", RowBox[{"2", " ", SqrtBox["x"]}]], "+", FractionBox["4", SuperscriptBox["x", "5"]]}]}], SequenceForm[ 1, ") f'(x) = ", 2 + 4 x^(-5) + Rational[3, 2] x^Rational[-1, 2] - 4 x], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"9c14e66f-\ 87de-422a-a1aa-744b90ee5fc5"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "-", "1"}], ")"}]}], RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "-", RowBox[{"2", " ", "x"}], "+", "3"}], ")"}], RowBox[{"2", "/", "3"}]]}]]}], SequenceForm[ 2, ") f'(x) = ", (Rational[2, 3] (-1 + 2 x^3)) (3 - 2 x + x^4)^ Rational[-2, 3]], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"b297376b-\ 81c0-4adb-8165-e3c383eeae7b"] }, Open ]] }, Open ]], Cell[TextData[{ "3) ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "'"}], RowBox[{"(", "x", ")"}]}], "=", StyleBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "3"}], ")"}]}], RowBox[{"5", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "2"]}]], FontSize->16]}], TraditionalForm]],ExpressionUUID-> "c338fb85-3d73-4ab6-ab97-4cc48c48a588"] }], "Text", CellChangeTimes->{{3.481802363644133*^9, 3.481802375481595*^9}},ExpressionUUID->"aa6cbdb8-663a-42f8-86be-\ dab4aae8bbba"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"3", " ", RowBox[{"tan", "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["sin", "3"], "(", "x", ")"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["tan", "3"], "(", "x", ")"}], " ", RowBox[{"sin", "(", "x", ")"}]}]}]}], SequenceForm[4, ") f'(x) = ", (3 Sin[x]^3) Tan[x] + (2 Sin[x]) Tan[x]^3], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"425027d5-\ 5321-4a84-8aa7-f7642c30b567"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["30", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "x"}], "+", "5"}], ")"}], "2"]]}]}], SequenceForm[5, ") f'(x) = ", (-30) (5 + 4 x)^(-2)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"d068bdd5-\ 27db-449c-9502-8ff77c6292fd"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"50", " ", "x"}], "+", FractionBox["20", SuperscriptBox["x", "3"]]}]}], SequenceForm[6, ") f'(x) = ", 20 x^(-3) + 50 x], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"7dc46a71-\ 0296-46b1-ab9e-ee5234191d52"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "10"}], " ", "x"}], "-", RowBox[{"15", " ", SuperscriptBox["x", RowBox[{"2", "/", "3"}]]}], "+", "3"}], RowBox[{"3", " ", SuperscriptBox["x", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"5", " ", "x"}], "+", "3"}], ")"}], "2"]}]]}], SequenceForm[ 7, ") f'(x) = ", ((Rational[1, 3] (3 - 15 x^Rational[2, 3] - 10 x)) x^Rational[-2, 3]) (3 + 5 x)^(-2)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"730b092d-\ f79b-41a8-b725-f15916f53306"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["15", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "-", RowBox[{"3", " ", "x"}]}], ")"}], "2"]]}]}], SequenceForm[8, ") f'(x) = ", (-15) (4 - 3 x)^(-2)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"1c8eb498-\ 4c94-49f1-96e6-ad11a822f700"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"sin", "(", "x", ")"}]}], "+", "1"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"sin", "(", "x", ")"}], "+", "2"}], ")"}], "2"]]}]}], SequenceForm[9, ") f'(x) = ", ((-3) (2 + Sin[x])^(-2)) (1 + 2 Sin[x])], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"15703e41-\ 5458-4950-b5d1-502b9d5368b0"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\") f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ RowBox[{"15", " ", "x"}], "-", "41"}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "x"}], "-", "5"}], ")"}], RowBox[{"3", "/", "2"}]]}]]}], SequenceForm[ 10, ") f'(x) = ", (Rational[1, 2] (-5 + 3 x)^Rational[-3, 2]) (-41 + 15 x)], Editable->False], TraditionalForm]], "Print",ExpressionUUID->"f6d594a4-\ 1fdb-4e1f-a884-8c754c15d8cd"] }, Open ]] }, Open ]] }, WindowSize->{757, 648}, WindowMargins->{{452, Automatic}, {Automatic, 10}}, CellLabelAutoDelete->True, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"stylemath_16.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 224, 4, 58, "Section",ExpressionUUID->"92b65be2-276e-49c9-8ab1-4e54e57ebd23"], Cell[CellGroupData[{ Cell[816, 30, 157, 2, 49, "Subsection",ExpressionUUID->"a6b3da70-f7ab-4ce1-8a35-f5456b78e7b8"], Cell[CellGroupData[{ Cell[998, 36, 2657, 92, 23, "Input",ExpressionUUID->"7a945a20-fc8e-413a-8819-d472a2a69344", CellOpen->False], Cell[3658, 130, 578, 17, 59, "Print",ExpressionUUID->"002aad99-8778-49c1-8a17-7bff65ea7ce7"] }, Open ]], Cell[CellGroupData[{ Cell[4273, 152, 1780, 62, 23, "Input",ExpressionUUID->"25aeacb0-5910-4a18-b5f2-39ba8f2dcb6d", CellOpen->False], Cell[6056, 216, 420, 11, 42, "Print",ExpressionUUID->"49f0f7cf-a8bd-4fce-be34-2880a9a7456e"] }, Open ]], Cell[CellGroupData[{ Cell[6513, 232, 2000, 69, 23, "Input",ExpressionUUID->"96d68aec-6b81-42e7-a741-94050eaab5dc", CellOpen->False], Cell[8516, 303, 485, 14, 62, "Print",ExpressionUUID->"e753ed2a-d50c-4060-80e8-452051609188"] }, Open ]], Cell[CellGroupData[{ Cell[9038, 322, 1846, 64, 23, "Input",ExpressionUUID->"2946f428-61b5-440f-99ed-a42ad4bdf9f6", CellOpen->False], Cell[10887, 388, 441, 12, 36, "Print",ExpressionUUID->"db652e66-89c1-4c12-a3d8-28d1f3421b74"] }, Open ]], Cell[CellGroupData[{ Cell[11365, 405, 2020, 70, 23, "Input",ExpressionUUID->"fef3d6c2-4b54-4fdf-9928-adb04b55b694", CellOpen->False], Cell[13388, 477, 425, 12, 56, "Print",ExpressionUUID->"ddbf8508-ccd3-44ca-beeb-13e7566bc587"] }, Open ]], Cell[CellGroupData[{ Cell[13850, 494, 1984, 68, 23, "Input",ExpressionUUID->"adb90ffc-7261-4b49-b9d2-790066f2aa1e", CellOpen->False], Cell[15837, 564, 542, 16, 58, "Print",ExpressionUUID->"0d4d9e5f-924c-42ba-9ba2-5767ce8522e6"] }, Open ]], Cell[CellGroupData[{ Cell[16416, 585, 1982, 69, 23, "Input",ExpressionUUID->"577b387e-8f32-4905-ab9b-63806c04ba05", CellOpen->False], Cell[18401, 656, 435, 12, 66, "Print",ExpressionUUID->"35f31d17-e0fb-4cc4-bc75-92c31c69cc76"] }, Open ]], Cell[CellGroupData[{ Cell[18873, 673, 2005, 69, 23, "Input",ExpressionUUID->"0d4a6acb-67a3-4b6d-a541-865424167bcf", CellOpen->False], Cell[20881, 744, 390, 11, 56, "Print",ExpressionUUID->"d6a4c8bc-ba38-46b6-8d7c-30ea484845e1"] }, Open ]], Cell[CellGroupData[{ Cell[21308, 760, 1984, 68, 23, "Input",ExpressionUUID->"a4c6808c-7152-4515-906f-879553974238", CellOpen->False], Cell[23295, 830, 443, 12, 58, "Print",ExpressionUUID->"f277158e-9488-42a3-9074-2c0530762a6f"] }, Open ]], Cell[CellGroupData[{ Cell[23775, 847, 1993, 69, 23, "Input",ExpressionUUID->"5641aa30-02cc-4660-89c8-2c91064ad56a", CellOpen->False], Cell[25771, 918, 462, 13, 58, "Print",ExpressionUUID->"b8e86573-c03a-41f5-ac87-ed7cc935fae0"] }, Open ]], Cell[26248, 934, 99, 1, 4, "PageBreak",ExpressionUUID->"e744a4ab-0e5a-4a26-bb85-e84b79781990", PageBreakBelow->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26396, 941, 126, 2, 58, "Section",ExpressionUUID->"3c3a5b81-c326-40aa-947f-f2b21bf5e0ff"], Cell[CellGroupData[{ Cell[26547, 947, 381, 11, 23, "Input",ExpressionUUID->"b7c04977-2263-41bd-bab0-f47aa72c72e1", CellOpen->False], Cell[CellGroupData[{ Cell[26953, 962, 547, 16, 59, "Print",ExpressionUUID->"9c14e66f-87de-422a-a1aa-744b90ee5fc5"], Cell[27503, 980, 722, 22, 80, "Print",ExpressionUUID->"b297376b-81c0-4adb-8165-e3c383eeae7b"] }, Open ]] }, Open ]], Cell[28252, 1006, 733, 26, 69, "Text",ExpressionUUID->"aa6cbdb8-663a-42f8-86be-dab4aae8bbba"], Cell[CellGroupData[{ Cell[29010, 1036, 609, 16, 36, "Print",ExpressionUUID->"425027d5-5321-4a84-8aa7-f7642c30b567"], Cell[29622, 1054, 457, 13, 61, "Print",ExpressionUUID->"d068bdd5-27db-449c-9502-8ff77c6292fd"], Cell[30082, 1069, 398, 11, 59, "Print",ExpressionUUID->"7dc46a71-0296-46b1-ab9e-ee5234191d52"], Cell[30483, 1082, 774, 23, 67, "Print",ExpressionUUID->"730b092d-f79b-41a8-b725-f15916f53306"], Cell[31260, 1107, 457, 13, 61, "Print",ExpressionUUID->"1c8eb498-4c94-49f1-96e6-ad11a822f700"], Cell[31720, 1122, 634, 18, 61, "Print",ExpressionUUID->"15703e41-5458-4950-b5d1-502b9d5368b0"], Cell[32357, 1142, 586, 17, 61, "Print",ExpressionUUID->"f6d594a4-1fdb-4e1f-a884-8c754c15d8cd"] }, Open ]] }, Open ]] } ] *)