(************** 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[ 18746, 557]*) (*NotebookOutlinePosition[ 19412, 580]*) (* CellTagsIndexPosition[ 19368, 576]*) (*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] := a*x^Abs[d] - 2 x^Abs[b] + c*Sqrt[x] - d/x^Abs[e] + g;\)\), "\[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\^2 + 2\ x + 3\ \@x - 1 - 1\/x\^4\)\), SequenceForm[ 1, ") f(x) = ", Plus[ -1, Times[ -1, Power[ x, -4]], Times[ 3, Power[ x, Rational[ 1, 2]]], Times[ 2, x], Times[ -2, 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}];\)\), "\[IndentingNewLine]", \(TraditionalForm\`\(f[ x] := \@\(x^Abs[a] + b*x + c\)\%3;\)\), "\[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\^4 - 2\ x + 3\)\%3\), SequenceForm[ 2, ") f(x) = ", Power[ Plus[ 3, Times[ -2, x], Power[ x, 4]], 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}]; f[x] := \((a\ x + b)\)^2/\((Abs[c]*x + 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[\(3\[InvisibleSpace]") f(x) = "\[InvisibleSpace]\((2\ \ x + 4)\)\^2\/\(5\ x + 5\)\), SequenceForm[ 3, ") f(x) = ", Times[ Power[ Plus[ 4, Times[ 2, x]], 2], Power[ Plus[ 5, Times[ 5, x]], -1]]], 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] := Cos[x]^Abs[a]*Tan[x]^Abs[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]\(\(\ \(sin\^3\)(x)\)\ \(\(tan\^2\)(x)\)\)\), SequenceForm[ 4, ") f(x) = ", Times[ Power[ Sin[ x], 3], Power[ Tan[ 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] := \ \((a + b\ *x)\)/\((d\ + \ c*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]\(5 \ - 2\ x\)\/\(4\ x + 5\)\), SequenceForm[ 5, ") f(x) = ", Times[ Plus[ 5, Times[ -2, x]], Power[ Plus[ 5, Times[ 4, x]], -1]]], 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] := \((a\ /x\ + b\ x)\)*\((c*x + 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[\(6\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\(\((5\ x - 5\/x)\)\ \((5\ x + 2\/x)\)\)\), SequenceForm[ 6, ") f(x) = ", Times[ Plus[ Times[ -5, Power[ x, -1]], Times[ 5, x]], Plus[ Times[ 2, Power[ x, -1]], Times[ 5, x]]]], 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] := \((\@x\%3 + 1)\)/\((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]\(\@x\%3 + 1\)\/\(5\ x + 3\)\), SequenceForm[ 7, ") f(x) = ", Times[ Plus[ 1, Power[ x, Rational[ 1, 3]]], Power[ Plus[ 3, Times[ 5, x]], -1]]], 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] := \((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[\(8\[InvisibleSpace]") f(x) = \ "\[InvisibleSpace]\(-\(5\/\(4 - 3\ x\)\)\)\), SequenceForm[ 8, ") f(x) = ", Times[ -5, Power[ Plus[ 4, Times[ -3, x]], -1]]], 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] := a*Cos[\ x]/\((Sin[\ 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]\(3\ \ \(cos(x)\)\)\/\(sin(x) + 2\)\), SequenceForm[ 9, ") f(x) = ", Times[ 3, Cos[ x], Power[ Plus[ 2, Sin[ x]], -1]]], 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] := \((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\ \ x - 3\)\/\@\(3\ x - 5\)\), SequenceForm[ 10, ") f(x) = ", Times[ Power[ Plus[ -5, Times[ 3, x]], Rational[ -1, 2]], Plus[ -3, Times[ 5, x]]]], 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]\(\(-4\)\ x + 2 + 3\/\(2\ \@x\) + 4\/x\^5\)\), SequenceForm[ 1, ") f'(x) = ", Plus[ 2, Times[ 4, Power[ x, -5]], Times[ Rational[ 3, 2], Power[ x, Rational[ -1, 2]]], Times[ -4, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(2\ \ \((2\ x\^3 - 1)\)\)\/\(3\ \((x\^4 - 2\ x + 3)\)\^\(2/3\)\)\), SequenceForm[ 2, ") f'(x) = ", Times[ Rational[ 2, 3], Plus[ -1, Times[ 2, Power[ x, 3]]], Power[ Plus[ 3, Times[ -2, x], Power[ x, 4]], Rational[ -2, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(15\ \ x - 41\)\/\(2\ \((3\ x - 5)\)\^\(3/2\)\)\), SequenceForm[ 3, ") f'(x) = ", Times[ Rational[ 1, 2], Power[ Plus[ -5, Times[ 3, x]], Rational[ -3, 2]], Plus[ -41, Times[ 15, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(3\ \ \(tan(x)\)\ \(\(sin\^3\)(x)\) + 2\ \(\(tan\^3\)(x)\)\ \(sin(x)\)\)\), SequenceForm[ 4, ") f'(x) = ", Plus[ Times[ 3, Power[ Sin[ x], 3], Tan[ x]], Times[ 2, Sin[ x], Power[ Tan[ x], 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(-\(30\/\((4\ x + 5)\)\^2\)\)\), SequenceForm[ 5, ") f'(x) = ", Times[ -30, Power[ Plus[ 5, Times[ 4, x]], -2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") f'(x) = "\[InvisibleSpace]\(50\ \ x + 20\/x\^3\)\), SequenceForm[ 6, ") f'(x) = ", Plus[ Times[ 20, Power[ x, -3]], Times[ 50, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(\(-10\)\ x - 15\ x\^\(2/3\) + 3\)\/\(3\ x\^\(2/3\)\ \((5\ \ x + 3)\)\^2\)\), SequenceForm[ 7, ") f'(x) = ", Times[ Rational[ 1, 3], Plus[ 3, Times[ -15, Power[ x, Rational[ 2, 3]]], Times[ -10, x]], Power[ x, Rational[ -2, 3]], Power[ Plus[ 3, Times[ 5, x]], -2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(-\(15\/\((4 - 3\ x)\)\^2\)\)\), SequenceForm[ 8, ") f'(x) = ", Times[ -15, Power[ Plus[ 4, Times[ -3, x]], -2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(-\(\(3\ \((2\ \(sin(x)\) + 1)\)\)\/\((sin(x) + 2)\)\^2\)\)\), SequenceForm[ 9, ") f'(x) = ", Times[ -3, Power[ Plus[ 2, Sin[ x]], -2], Plus[ 1, Times[ 2, Sin[ x]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") f'(x) = \ "\[InvisibleSpace]\(15\ x - 41\)\/\(2\ \((3\ x - 5)\)\^\(3/2\)\)\), SequenceForm[ 10, ") f'(x) = ", Times[ Rational[ 1, 2], Power[ Plus[ -5, Times[ 3, x]], Rational[ -3, 2]], Plus[ -41, Times[ 15, x]]]], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{4, 1280}, {0, 1002}}, WindowSize->{664, 638}, WindowMargins->{{225, Automatic}, {Automatic, 15}}, 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, 979, 20, 19, "Input", CellOpen->False], Cell[3004, 85, 487, 14, 41, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[3528, 104, 728, 15, 19, "Input", CellOpen->False], Cell[4259, 121, 354, 10, 32, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[4650, 136, 703, 14, 19, "Input", CellOpen->False], Cell[5356, 152, 410, 12, 45, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[5803, 169, 726, 15, 19, "Input", CellOpen->False], Cell[6532, 186, 354, 10, 27, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[6923, 201, 777, 16, 19, "Input", CellOpen->False], Cell[7703, 219, 378, 11, 41, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[8118, 235, 691, 13, 19, "Input", CellOpen->False], Cell[8812, 250, 473, 14, 41, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[9322, 269, 742, 14, 19, "Input", CellOpen->False], Cell[10067, 285, 410, 12, 49, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[10514, 302, 762, 15, 19, "Input", CellOpen->False], Cell[11279, 319, 328, 9, 41, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[11644, 333, 738, 14, 19, "Input", CellOpen->False], Cell[12385, 349, 352, 10, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[12774, 364, 738, 14, 19, "Input", CellOpen->False], Cell[13515, 380, 412, 12, 44, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13976, 398, 72, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[14073, 403, 148, 3, 19, "Input", CellOpen->False], Cell[14224, 408, 459, 13, 44, "Print"], Cell[14686, 423, 534, 15, 48, "Print"], Cell[15223, 440, 460, 13, 43, "Print"], Cell[15686, 455, 488, 14, 27, "Print"], Cell[16177, 471, 334, 9, 43, "Print"], Cell[16514, 482, 320, 9, 41, "Print"], Cell[16837, 493, 607, 18, 47, "Print"], Cell[17447, 513, 335, 9, 43, "Print"], Cell[17785, 524, 456, 13, 44, "Print"], Cell[18244, 539, 462, 13, 43, "Print"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)