(* 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[ 33099, 1204] NotebookOptionsPosition[ 30767, 1114] NotebookOutlinePosition[ 31135, 1130] CellTagsIndexPosition[ 31092, 1127] WindowFrame->Normal*) (* Beginning of Notebook Content *) 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[{ 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, 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]], 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"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions :", "Subsection", FontColor->RGBColor[0.501961, 0, 0]], 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]], 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"], 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"] }, 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]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.481802363644133*^9, 3.481802375481595*^9}}], 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"], 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"], 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"], 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"], 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"], 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"], 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"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{664, 638}, WindowMargins->{{620, Automatic}, {Automatic, 21}}, CellLabelAutoDelete->True, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 95, 1, 67, "Section"], Cell[CellGroupData[{ Cell[687, 27, 107, 3, 34, "Subsection"], Cell[CellGroupData[{ Cell[819, 34, 2595, 90, 19, "Input", CellOpen->False], Cell[3417, 126, 521, 16, 46, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[3975, 147, 1718, 60, 19, "Input", CellOpen->False], Cell[5696, 209, 363, 10, 34, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[6096, 224, 1938, 67, 19, "Input", CellOpen->False], Cell[8037, 293, 428, 13, 47, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[8502, 311, 1784, 62, 19, "Input", CellOpen->False], Cell[10289, 375, 384, 11, 26, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[10710, 391, 1958, 68, 19, "Input", CellOpen->False], Cell[12671, 461, 368, 11, 44, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[13076, 477, 1922, 66, 19, "Input", CellOpen->False], Cell[15001, 545, 485, 15, 45, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[15523, 565, 1920, 67, 19, "Input", CellOpen->False], Cell[17446, 634, 378, 11, 53, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[17861, 650, 1943, 67, 19, "Input", CellOpen->False], Cell[19807, 719, 333, 10, 44, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[20177, 734, 1922, 66, 19, "Input", CellOpen->False], Cell[22102, 802, 384, 11, 46, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[22523, 818, 1931, 67, 19, "Input", CellOpen->False], Cell[24457, 887, 405, 12, 48, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24911, 905, 71, 1, 34, "Subsection"], Cell[CellGroupData[{ Cell[25007, 910, 319, 9, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[25351, 923, 490, 15, 48, "Print"], Cell[25844, 940, 662, 21, 56, "Print"] }, Open ]] }, Open ]], Cell[26533, 965, 648, 24, 43, "Text"], Cell[CellGroupData[{ Cell[27206, 993, 548, 15, 26, "Print"], Cell[27757, 1010, 400, 12, 48, "Print"], Cell[28160, 1024, 341, 10, 46, "Print"], Cell[28504, 1036, 712, 22, 51, "Print"], Cell[29219, 1060, 400, 12, 48, "Print"], Cell[29622, 1074, 575, 17, 48, "Print"], Cell[30200, 1093, 527, 16, 48, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)