(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.1' 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[ 19501, 578]*) (*NotebookOutlinePosition[ 20166, 601]*) (* CellTagsIndexPosition[ 20122, 597]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Exercices de d\[EAcute]rivation", "Section", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[CellGroupData[{ Cell["D\[EAcute]river les fonctions suivantes", "Subsection", FontColor->RGBColor[0.501961, 0, 0]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(c = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \((a\ x + b)\)/\((x^2 + c)\);\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[1] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontSize->13, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\(\(-2\)\ x - 1\)\/x\^2\), SequenceForm[ 1, ") f(x) = ", Times[ Plus[ -1, Times[ -2, x]], Power[ x, -2]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(c = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \((\ x + a)\)^2/\((b\ x + c)\);\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontSize->13, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") f(x) = "\[InvisibleSpace]\((x \ + 3)\)\^2\/\(x - 1\)\), SequenceForm[ 2, ") f(x) = ", Times[ Power[ Plus[ -1, x], -1], Power[ Plus[ 3, x], 2]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(c = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \((a\ x + b)\)/\(Sqrt( x^2 + c)\);\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] := Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontSize->13, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") f(x) = "\[InvisibleSpace]\(2\ \ x + 1\)\/\@\(x\^2 + 5\)\), SequenceForm[ 3, ") f(x) = ", Times[ Plus[ 1, Times[ 2, x]], Power[ Plus[ 5, Power[ x, 2]], Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(c = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \((\ x + a)\)\ Sqrt[b\ x + c];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontSize->13, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\(\((x - 5)\)\ \@\(5\ x - 2\)\)\), SequenceForm[ 4, ") f(x) = ", Times[ Plus[ -5, x], Power[ Plus[ -2, Times[ 5, x]], Rational[ 1, 2]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(c = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \ \((a + b\ Sqrt[x])\)/\((b\ + \ c\ Sqrt[x])\);\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontSize->13, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") f(x) = "\[InvisibleSpace]\(4\ \ \@x - 5\)\/\(\@x + 4\)\), SequenceForm[ 5, ") f(x) = ", Times[ Power[ Plus[ 4, Power[ x, Rational[ 1, 2]]], -1], Plus[ -5, Times[ 4, Power[ x, Rational[ 1, 2]]]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`a = Random[Integer, {\(-5\), 5}]; b = Random[Integer, {\(-5\), 5}];\), "\[IndentingNewLine]", \(TraditionalForm\`c = Random[Integer, {\(-5\), 5}]; d = Random[Integer, {\(-5\), 5}];\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \((a\ x^2\ + b\ x\ + \ c)\)^\((1/ 3)\);\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\@\(2\ x\^2 + 4\)\%3\), SequenceForm[ 6, ") f(x) = ", Power[ Plus[ 4, Times[ 2, Power[ x, 2]]], Rational[ 1, 3]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`c = Random[Integer, {\(-5\), 5}]; d = Random[Integer, {\(-5\), 5}];\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[x] := Sqrt[\((a\ x\ + \ b)\)/\((c\ x\ + \ d)\)];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") f(x) = "\[InvisibleSpace]\@\(\ \(2\ x + 3\)\/\(4\ x - 4\)\)\), SequenceForm[ 7, ") f(x) = ", Power[ Times[ Plus[ 3, Times[ 2, x]], Power[ Plus[ -4, Times[ 4, x]], -1]], Rational[ 1, 2]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`c = Random[Integer, {\(-5\), 5}]; d = Random[Integer, {\(-5\), 5}];\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \((a\ Sin[x]\ + \ b\ Cos[x])\)/\((c\ Sin[x] + d\ Cos[x])\);\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") f(x) = "\[InvisibleSpace]\(4\ \ \(sin(x)\)\)\/\(5\ \(cos(x)\) + 2\ \(sin(x)\)\)\), SequenceForm[ 8, ") f(x) = ", Times[ 4, Sin[ x], Power[ Plus[ Times[ 5, Cos[ x]], Times[ 2, Sin[ x]]], -1]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`c = Random[Integer, {\(-5\), 5}]; d = Random[Integer, {\(-5\), 5}];\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[x] := Sin[\((a\ x + b)\)/\((c\ x + d)\)];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\(sin(\(3 - 4\ x\)\/\(5\ x - 1\))\)\), SequenceForm[ 9, ") f(x) = ", Sin[ Times[ Plus[ 3, Times[ -4, x]], Power[ Plus[ -1, Times[ 5, x]], -1]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(TraditionalForm\`Clear[f]; i = i + 1;\), "\[IndentingNewLine]", \(TraditionalForm\`\(a = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(b = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(c = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[x] := c\ Sin[a\ x]\ + \ d\ Cos[b\ x];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(sol[i] = Simplify[D[f[x], x]];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(Print[i, "\<) f(x) = \>", f[x]];\)\)}], "Input", CellOpen->False, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\(\(-\(cos(5\ x)\)\) - 2\ \(sin(2\ x)\)\)\), SequenceForm[ 10, ") f(x) = ", Plus[ Times[ -1, Cos[ Times[ 5, x]]], Times[ -2, Sin[ Times[ 2, x]]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions :", "Subsection", FontColor->RGBColor[0.501961, 0, 0]], Cell[CellGroupData[{ Cell[BoxData[ \(Do[Print[i, "\<) f'(x) = \>", sol[i]], {i, 1, 10}]\)], "Input", CellOpen->False, FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(2\ \ \((x + 1)\)\)\/x\^3\), SequenceForm[ 1, ") f'(x) = ", Times[ 2, Power[ x, -3], Plus[ 1, x]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(x\^2 - 2\ x - 15\)\/\((x - 1)\)\^2\), SequenceForm[ 2, ") f'(x) = ", Times[ Power[ Plus[ -1, x], -2], Plus[ -15, Times[ -2, x], Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(5\ \ \(sin(5\ x)\) - 4\ \(cos(2\ x)\)\)\), SequenceForm[ 3, ") f'(x) = ", Plus[ Times[ -4, Cos[ Times[ 2, x]]], Times[ 5, Sin[ Times[ 5, x]]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(15\ \ x - 29\)\/\(2\ \@\(5\ x - 2\)\)\), SequenceForm[ 4, ") f'(x) = ", Times[ Rational[ 1, 2], Power[ Plus[ -2, Times[ 5, x]], Rational[ -1, 2]], Plus[ -29, Times[ 15, x]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]21\/\ \(2\ \((\@x + 4)\)\^2\ \@x\)\), SequenceForm[ 5, ") f'(x) = ", Times[ Rational[ 21, 2], Power[ Plus[ 4, Power[ x, Rational[ 1, 2]]], -2], Power[ x, Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(4\ \ x\)\/\(3\ \((2\ x\^2 + 4)\)\^\(2/3\)\)\), SequenceForm[ 6, ") f'(x) = ", Times[ Rational[ 4, 3], x, Power[ Plus[ 4, Times[ 2, Power[ x, 2]]], Rational[ -2, 3]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(-\(5\/\(4\ \((x - 1)\)\^2\ \@\(\(2\ x + 3\)\/\(x - \ 1\)\)\)\)\)\), SequenceForm[ 7, ") f'(x) = ", Times[ Rational[ -5, 4], Power[ Plus[ -1, x], -2], Power[ Times[ Power[ Plus[ -1, x], -1], Plus[ 3, Times[ 2, x]]], Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]20\/\ \((5\ \(cos(x)\) + 2\ \(sin(x)\))\)\^2\), SequenceForm[ 8, ") f'(x) = ", Times[ 20, Power[ Plus[ Times[ 5, Cos[ x]], Times[ 2, Sin[ x]]], -2]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(-\(\(11\ \(cos(\(3 - 4\ x\)\/\(5\ x - 1\))\)\)\/\((1 - 5\ \ x)\)\^2\)\)\), SequenceForm[ 9, ") f'(x) = ", Times[ -11, Power[ Plus[ 1, Times[ -5, x]], -2], Cos[ Times[ Plus[ 3, Times[ -4, x]], Power[ Plus[ -1, Times[ 5, x]], -1]]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(5\ \ \(sin(5\ x)\) - 4\ \(cos(2\ x)\)\)\), SequenceForm[ 10, ") f'(x) = ", Plus[ Times[ -4, Cos[ Times[ 2, x]]], Times[ 5, Sin[ Times[ 5, x]]]]], Editable->False], TraditionalForm]], "Print", FontColor->RGBColor[0, 0.500999, 0.500999]] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.1 for Macintosh", ScreenRectangle->{{4, 1280}, {0, 1002}}, WindowSize->{664, 638}, WindowMargins->{{82, Automatic}, {Automatic, 54}}, 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, 96, 1, 69, "Section"], Cell[CellGroupData[{ Cell[1897, 58, 100, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[2022, 63, 725, 15, 19, "Input", CellOpen->False], Cell[2750, 80, 369, 10, 41, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[3156, 95, 731, 15, 19, "Input", CellOpen->False], Cell[3890, 112, 395, 11, 45, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[4322, 128, 747, 16, 19, "Input", CellOpen->False], Cell[5072, 146, 454, 13, 50, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[5563, 164, 730, 15, 19, "Input", CellOpen->False], Cell[6296, 181, 432, 12, 27, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[6765, 198, 763, 16, 19, "Input", CellOpen->False], Cell[7531, 216, 519, 15, 49, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[8087, 236, 694, 13, 19, "Input", CellOpen->False], Cell[8784, 251, 394, 11, 32, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[9215, 267, 769, 15, 19, "Input", CellOpen->False], Cell[9987, 284, 491, 14, 47, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[10515, 303, 785, 15, 19, "Input", CellOpen->False], Cell[11303, 320, 500, 14, 44, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[11840, 339, 743, 14, 19, "Input", CellOpen->False], Cell[12586, 355, 463, 13, 41, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[13086, 373, 714, 14, 19, "Input", CellOpen->False], Cell[13803, 389, 460, 13, 25, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14312, 408, 72, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[14409, 413, 148, 3, 19, "Input", CellOpen->False], Cell[14560, 418, 345, 9, 41, "Print"], Cell[14908, 429, 438, 12, 47, "Print"], Cell[15349, 443, 455, 13, 25, "Print"], Cell[15807, 458, 497, 14, 44, "Print"], Cell[16307, 474, 498, 14, 47, "Print"], Cell[16808, 490, 480, 13, 43, "Print"], Cell[17291, 505, 614, 18, 65, "Print"], Cell[17908, 525, 469, 13, 43, "Print"], Cell[18380, 540, 621, 18, 53, "Print"], Cell[19004, 560, 457, 13, 25, "Print"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)