(************** 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[ 18788, 558]*) (*NotebookOutlinePosition[ 19454, 581]*) (* CellTagsIndexPosition[ 19410, 577]*) (*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\`\(d = Random[Integer, {\(-5\), 5}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`e = Random[Integer, {\(-5\), 5}]; g = Random[Integer, {\(-5\), 5}];\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[x] := Sqrt[a + Abs[b]*x]/\((Abs[c]\ x + d)\);\)\), "\[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]\@\(5\ x - 2\)\), SequenceForm[ 1, ") f(x) = ", Power[ Plus[ -2, Times[ 5, x]], Rational[ 1, 2]]], Editable->False], TraditionalForm]], "Print"] }, 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] := Sqrt[Abs[a]*x^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]\@\(2\ x\^2 - x\)\), SequenceForm[ 2, ") f(x) = ", Power[ Plus[ Times[ -1, x], Times[ 2, Power[ x, 2]]], Rational[ 1, 2]]], Editable->False], TraditionalForm]], "Print"] }, 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}]; f[x] := Sqrt[Abs[a]*x + b]/\((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]\@\(5\ x - 5\)\/x\^2\), SequenceForm[ 3, ") f(x) = ", Times[ Power[ x, -2], Power[ Plus[ -5, Times[ 5, x]], Rational[ 1, 2]]]], Editable->False], TraditionalForm]], "Print"] }, 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^2 + c)\)/ Sqrt[Abs[a]*x + b];\)\), "\[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\^2 - 5\)\/\@\(x - 3\)\), SequenceForm[ 4, ") f(x) = ", Times[ Power[ Plus[ -3, x], Rational[ -1, 2]], Plus[ -5, Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"] }, 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[\((Abs[a]*x + b)\)/\((c*x + Abs[d])\)];\)\), "\[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]\(2\ \ \@\(1\/\(4\ x + 2\)\)\)\), SequenceForm[ 5, ") f(x) = ", Times[ 2, Power[ Power[ Plus[ 2, Times[ 4, x]], -1], Rational[ 1, 2]]]], Editable->False], TraditionalForm]], "Print"] }, 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] := \((Abs[a]*x + b)\)^ c;\)\), "\[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]\((3\ \ x - 1)\)\^4\), SequenceForm[ 6, ") f(x) = ", Power[ Plus[ -1, Times[ 3, x]], 4]], Editable->False], TraditionalForm]], "Print"] }, 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] := \@\(Abs[a]*x^2 + b*x + c\)\%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[\(7\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\@\(3\ x\^2 + 2\ x + 4\)\%3\), SequenceForm[ 7, ") f(x) = ", Power[ Plus[ 4, Times[ 2, x], Times[ 3, Power[ x, 2]]], Rational[ 1, 3]]], Editable->False], TraditionalForm]], "Print"] }, 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[Abs[a]\ *x^2\ + \ b\ x + c\ ]/\((Abs[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[\(8\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\@\(5\ x\^2 + 5\ x - 5\)\/\(5\ x - 1\)\), SequenceForm[ 8, ") f(x) = ", Times[ Power[ Plus[ -1, Times[ 5, x]], -1], Power[ Plus[ -5, Times[ 5, x], Times[ 5, Power[ x, 2]]], Rational[ 1, 2]]]], Editable->False], TraditionalForm]], "Print"] }, 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] := Abs[a]*x/Sqrt[Abs[b]*x^2 + c];\)\), "\[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]\(5\ \ x\)\/\@\(3\ x\^2 + 5\)\), SequenceForm[ 9, ") f(x) = ", Times[ 5, x, Power[ Plus[ 5, Times[ 3, Power[ x, 2]]], Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print"] }, 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]/Sqrt[c + d*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]\@\(5 - 4\ x\)\/\@\(x + 2\)\), SequenceForm[ 10, ") f(x) = ", Times[ Power[ Plus[ 5, Times[ -4, x]], Rational[ 1, 2]], Power[ Plus[ 2, x], Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print"] }, 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]5\/\(2\ \@\(5\ x - 2\)\)\), SequenceForm[ 1, ") f'(x) = ", Times[ Rational[ 5, 2], Power[ Plus[ -2, Times[ 5, x]], Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(4\ \ x - 1\)\/\(2\ \@\(x\ \((2\ x - 1)\)\)\)\), SequenceForm[ 2, ") f'(x) = ", Times[ Rational[ 1, 2], Power[ Times[ x, Plus[ -1, Times[ 2, x]]], Rational[ -1, 2]], Plus[ -1, Times[ 4, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(-\(13\/\(2\ \@\(5 - 4\ x\)\ \((x + 2)\)\^\(3/2\)\)\)\)\), SequenceForm[ 3, ") f'(x) = ", Times[ Rational[ -13, 2], Power[ Plus[ 5, Times[ -4, x]], Rational[ -1, 2]], Power[ Plus[ 2, x], Rational[ -3, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(3\ \ x\^2 - 12\ x + 5\)\/\(2\ \((x - 3)\)\^\(3/2\)\)\), SequenceForm[ 4, ") f'(x) = ", Times[ Rational[ 1, 2], Power[ Plus[ -3, x], Rational[ -3, 2]], Plus[ 5, Times[ -12, x], Times[ 3, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(\(-4\)\ \((1\/\(4\ x + 2\))\)\^\(3/2\)\)\), SequenceForm[ 5, ") f'(x) = ", Times[ -4, Power[ Power[ Plus[ 2, Times[ 4, x]], -1], Rational[ 3, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(12\ \ \((3\ x - 1)\)\^3\)\), SequenceForm[ 6, ") f'(x) = ", Times[ 12, Power[ Plus[ -1, Times[ 3, x]], 3]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(2\ \ \((3\ x + 1)\)\)\/\(3\ \((3\ x\^2 + 2\ x + 4)\)\^\(2/3\)\)\), SequenceForm[ 7, ") f'(x) = ", Times[ Rational[ 2, 3], Plus[ 1, Times[ 3, x]], Power[ Plus[ 4, Times[ 2, x], Times[ 3, Power[ x, 2]]], Rational[ -2, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(\@5\ \((9 - 7\ x)\)\)\/\(2\ \((1 - 5\ x)\)\^2\ \@\(x\^2 + \ x - 1\)\)\), SequenceForm[ 8, ") f'(x) = ", Times[ Rational[ 1, 2], Power[ 5, Rational[ 1, 2]], Plus[ 9, Times[ -7, x]], Power[ Plus[ 1, Times[ -5, x]], -2], Power[ Plus[ -1, x, Power[ x, 2]], Rational[ -1, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]25\/\ \((3\ x\^2 + 5)\)\^\(3/2\)\), SequenceForm[ 9, ") f'(x) = ", Times[ 25, Power[ Plus[ 5, Times[ 3, Power[ x, 2]]], Rational[ -3, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(-\ \(13\/\(2\ \@\(5 - 4\ x\)\ \((x + 2)\)\^\(3/2\)\)\)\)\), SequenceForm[ 10, ") f'(x) = ", Times[ Rational[ -13, 2], Power[ Plus[ 5, Times[ -4, x]], Rational[ -1, 2]], Power[ Plus[ 2, x], Rational[ -3, 2]]]], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{4, 1280}, {0, 1002}}, WindowSize->{769, 811}, WindowMargins->{{175, Automatic}, {Automatic, 24}}, 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, 72, "Section"], Cell[CellGroupData[{ Cell[1897, 58, 100, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[2022, 63, 953, 19, 19, "Input", CellOpen->False], Cell[2978, 84, 315, 9, 27, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[3330, 98, 725, 15, 19, "Input", CellOpen->False], Cell[4058, 115, 372, 11, 32, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[4467, 131, 700, 14, 19, "Input", CellOpen->False], Cell[5170, 147, 376, 11, 46, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[5583, 163, 733, 15, 19, "Input", CellOpen->False], Cell[6319, 180, 379, 11, 48, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[6735, 196, 785, 16, 19, "Input", CellOpen->False], Cell[7523, 214, 389, 11, 47, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[7949, 230, 660, 12, 19, "Input", CellOpen->False], Cell[8612, 244, 291, 8, 27, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[8940, 257, 740, 14, 19, "Input", CellOpen->False], Cell[9683, 273, 384, 11, 32, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[10104, 289, 779, 15, 19, "Input", CellOpen->False], Cell[10886, 306, 509, 15, 50, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[11432, 326, 738, 14, 19, "Input", CellOpen->False], Cell[12173, 342, 391, 11, 50, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[12601, 358, 736, 14, 19, "Input", CellOpen->False], Cell[13340, 374, 439, 13, 49, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13828, 393, 72, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[13925, 398, 148, 3, 19, "Input", CellOpen->False], Cell[14076, 403, 383, 11, 44, "Print"], Cell[14462, 416, 486, 14, 45, "Print"], Cell[14951, 432, 499, 14, 45, "Print"], Cell[15453, 448, 494, 14, 47, "Print"], Cell[15950, 464, 404, 11, 41, "Print"], Cell[16357, 477, 328, 9, 27, "Print"], Cell[16688, 488, 534, 15, 43, "Print"], Cell[17225, 505, 624, 19, 55, "Print"], Cell[17852, 526, 392, 11, 43, "Print"], Cell[18247, 539, 501, 14, 45, "Print"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)