(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     24565,        809]
NotebookOptionsPosition[     22069,        730]
NotebookOutlinePosition[     22777,        756]
CellTagsIndexPosition[     22734,        753]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Calculer la fonction d\[EAcute]riv\[EAcute]e des fonctions suivantes\
\>", "Text",
 FontColor->RGBColor[0, 0.500999, 0.500999]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"-", "5"}], "x"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{"3", "x"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{"x", "+", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{"5", "-", 
    RowBox[{"7", "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"2", 
     RowBox[{"x", "^", "2"}]}], "-", 
    RowBox[{"5", "x"}], "+", "6"}]}], ";", 
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"3", 
     RowBox[{"x", "^", "5"}]}], "-", 
    RowBox[{"2", 
     RowBox[{"x", "^", "3"}]}], "+", 
    RowBox[{"3", 
     RowBox[{"x", "^", "2"}]}], "-", 
    RowBox[{"7", "x"}], "+", "2"}]}], ";", 
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{"2", 
    RowBox[{"Sqrt", "[", "x", "]"}]}]}], ";", 
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"Sqrt", "[", "x", "]"}], "-", 
    RowBox[{"3", 
     RowBox[{"x", "^", "2"}]}]}]}], ";", 
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{"2", 
    RowBox[{"Sqrt", "[", "x", "]"}]}]}], ";", 
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"Sqrt", "[", "x", "]"}], "-", 
    RowBox[{"3", 
     RowBox[{"x", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RadicalBox["x", "3"], "+", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"5", "x"}], "-", 
    RowBox[{"1", "/", "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"2", "/", 
     RowBox[{"x", "^", "2"}]}], "-", 
    RowBox[{"3", "/", 
     RowBox[{"x", "^", "3"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", "x"}], "-", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "x"}], "-", "3"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "+", "5"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", "1"}], ")"}], " ", 
    RowBox[{"Sqrt", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "-", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"x", "^", "2"}]}], "-", "1"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "5"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "2"}], ")"}], "^", "3"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "n", "]"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"5", "x"}], "-", "4"}], ")"}], "^", "6"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"i", ",", "\"\<) \>\"", ",", 
     RowBox[{"f", "[", "i", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.510410948863269*^9, 3.5104109673563232`*^9}, {
  3.510411117285647*^9, 3.5104112607062902`*^9}, {3.51041129251217*^9, 
  3.510411405166122*^9}},
 FontColor->RGBColor[0, 0.500999, 0.500999]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"-", "5"}], " ", "x"}]}],
   SequenceForm[1, ") ", (-5) $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405752633*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"3", " ", "x"}]}],
   SequenceForm[2, ") ", 3 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405754895*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"x", "+", "2"}]}],
   SequenceForm[3, ") ", 2 + $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114057581472`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"5", "-", 
     RowBox[{"7", " ", "x"}]}]}],
   SequenceForm[4, ") ", 5 - 7 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405761262*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["x", "2"]}], "-", 
     RowBox[{"5", " ", "x"}], "+", "6"}]}],
   SequenceForm[5, ") ", 6 - 5 $CellContext`x + 2 $CellContext`x^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405764896*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"3", " ", 
      SuperscriptBox["x", "5"]}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["x", "3"]}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["x", "2"]}], "-", 
     RowBox[{"7", " ", "x"}], "+", "2"}]}],
   SequenceForm[
   6, ") ", 2 - 7 $CellContext`x + 3 $CellContext`x^2 - 2 $CellContext`x^3 + 
    3 $CellContext`x^5],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405768626*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"2", " ", 
     SqrtBox["x"]}]}],
   SequenceForm[7, ") ", 2 $CellContext`x^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405772275*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox["x"], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["x", "2"]}]}]}],
   SequenceForm[8, ") ", $CellContext`x^Rational[1, 2] - 3 $CellContext`x^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114057759037`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"2", " ", 
     SqrtBox["x"]}]}],
   SequenceForm[9, ") ", 2 $CellContext`x^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114057794743`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox["x"], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["x", "2"]}]}]}],
   SequenceForm[10, ") ", $CellContext`x^Rational[1, 2] - 3 $CellContext`x^2],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114057831163`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RadicalBox["x", "3"], "+", "2"}]}],
   SequenceForm[11, ") ", 2 + $CellContext`x^Rational[1, 3]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.51041140578673*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"5", " ", "x"}], "-", 
     FractionBox["1", "x"]}]}],
   SequenceForm[12, ") ", (-1)/$CellContext`x + 5 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405790365*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     FractionBox["2", 
      SuperscriptBox["x", "2"]], "-", 
     FractionBox["3", 
      SuperscriptBox["x", "3"]]}]}],
   SequenceForm[13, ") ", (-3) $CellContext`x^(-3) + 2 $CellContext`x^(-2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114057941523`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", "x"}], "-", "2"}], ")"}]}]}],
   SequenceForm[14, ") ", (1 + $CellContext`x) (-2 + 3 $CellContext`x)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405797854*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "+", "5"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "x"}], "-", "3"}], ")"}]}]}],
   SequenceForm[15, ") ", (5 + $CellContext`x) (-3 + 2 $CellContext`x)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405801198*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox["x"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "-", "1"}], ")"}]}]}],
   SequenceForm[
   16, ") ", $CellContext`x^Rational[1, 2] (-1 + $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405804681*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"17", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"x", "+", "2"}], 
     RowBox[{"x", "-", "3"}]]}],
   SequenceForm[17, ") ", (-3 + $CellContext`x)^(-1) (2 + $CellContext`x)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114058081017`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"18", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["x", "2"]}], "-", "1"}], 
     RowBox[{"x", "+", "5"}]]}],
   SequenceForm[18, ") ", (5 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.51041140581161*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"19", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}], "3"]}],
   SequenceForm[19, ") ", (-2 + $CellContext`x)^3],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.51041140581509*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"20", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"5", " ", "x"}], "-", "4"}], ")"}], "6"]}],
   SequenceForm[20, ") ", (-4 + 5 $CellContext`x)^6],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411405818624*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsection",
 FontColor->RGBColor[0.501961, 0, 0]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"i", ",", "\"\<) \>\"", ",", 
     RowBox[{"Derivee", "[", 
      RowBox[{
       RowBox[{"f", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.510411422673215*^9, 3.510411461096387*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"-", "5"}]}],
   SequenceForm[1, ") ", -5],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461735899*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", "3"}],
   
   SequenceForm[2, ") ", 3],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461738102*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", "1"}],
   
   SequenceForm[3, ") ", 1],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461741503*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"-", "7"}]}],
   SequenceForm[4, ") ", -7],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461744926*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"4", " ", "x"}], "-", "5"}]}],
   SequenceForm[5, ") ", -5 + 4 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114617484694`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"15", " ", 
      SuperscriptBox["x", "4"]}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"6", " ", "x"}], "-", "7"}]}],
   SequenceForm[
   6, ") ", -7 + 6 $CellContext`x - 6 $CellContext`x^2 + 15 $CellContext`x^4],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461752171*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox["1", 
     SqrtBox["x"]]}],
   SequenceForm[7, ") ", $CellContext`x^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461755905*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["x", 
        RowBox[{"3", "/", "2"}]]}]}], 
     RowBox[{"2", " ", 
      SqrtBox["x"]}]]}],
   SequenceForm[
   8, ") ", Rational[1, 2] $CellContext`x^Rational[-1, 2] (1 - 
     12 $CellContext`x^Rational[3, 2])],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461759296*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox["1", 
     SqrtBox["x"]]}],
   SequenceForm[9, ") ", $CellContext`x^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461762994*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["x", 
        RowBox[{"3", "/", "2"}]]}]}], 
     RowBox[{"2", " ", 
      SqrtBox["x"]}]]}],
   SequenceForm[
   10, ") ", 
    Rational[1, 2] $CellContext`x^Rational[-1, 2] (1 - 
     12 $CellContext`x^Rational[3, 2])],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461766757*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox["1", 
     RowBox[{"3", " ", 
      SuperscriptBox["x", 
       RowBox[{"2", "/", "3"}]]}]]}],
   SequenceForm[11, ") ", Rational[1, 3] $CellContext`x^Rational[-2, 3]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461770537*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"5", " ", 
       SuperscriptBox["x", "2"]}], "+", "1"}], 
     SuperscriptBox["x", "2"]]}],
   SequenceForm[12, ") ", $CellContext`x^(-2) (1 + 5 $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461773818*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"9", "-", 
      RowBox[{"4", " ", "x"}]}], 
     SuperscriptBox["x", "4"]]}],
   SequenceForm[13, ") ", (9 - 4 $CellContext`x) $CellContext`x^(-4)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461777131*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"6", " ", "x"}], "+", "1"}]}],
   SequenceForm[14, ") ", 1 + 6 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461780384*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"4", " ", "x"}], "+", "7"}]}],
   SequenceForm[15, ") ", 7 + 4 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114617835417`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"5", " ", 
       SuperscriptBox["x", "2"]}], "-", "1"}], 
     RowBox[{"2", " ", 
      SqrtBox["x"]}]]}],
   SequenceForm[
   16, ") ", 
    Rational[1, 2] $CellContext`x^Rational[-1, 2] (-1 + 5 $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461786743*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"17", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"-", 
     FractionBox["5", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", "-", "3"}], ")"}], "2"]]}]}],
   SequenceForm[17, ") ", (-5) (-3 + $CellContext`x)^(-2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461790073*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"18", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"20", " ", "x"}], "+", "1"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "+", "5"}], ")"}], "2"]]}],
   SequenceForm[
   18, ") ", (5 + $CellContext`x)^(-2) (1 + 20 $CellContext`x + 
     2 $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114617933807`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"19", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"3", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "-", "2"}], ")"}], "2"]}]}],
   SequenceForm[19, ") ", 3 (-2 + $CellContext`x)^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.510411461796689*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"20", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    RowBox[{"30", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"5", " ", "x"}], "-", "4"}], ")"}], "5"]}]}],
   SequenceForm[20, ") ", 30 (-4 + 5 $CellContext`x)^5],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.5104114617999153`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]]
},
WindowSize->{520, 740},
WindowMargins->{{342, Automatic}, {Automatic, 113}},
PageHeaders->{{Inherited, Inherited, Inherited}, {
   Cell[
    TextData[{
      ValueBox["Ex de d\[EAcute]rivation"]}], "Header"], Inherited, 
   Inherited}},
PageFooters->{{Inherited, Inherited, Inherited}, {Inherited, Inherited, 
   Cell[
    TextData[{
      ValueBox["F. MELOTTE  \[Copyright]2005"]}], "Header"]}},
CellLabelAutoDelete->True,
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
2011)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 137, 3, 33, "Text"],
Cell[CellGroupData[{
Cell[719, 27, 5565, 190, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[6309, 221, 307, 8, 27, "Print"],
Cell[6619, 231, 283, 7, 27, "Print"],
Cell[6905, 240, 287, 7, 27, "Print"],
Cell[7195, 249, 313, 8, 27, "Print"],
Cell[7511, 259, 398, 10, 27, "Print"],
Cell[7912, 271, 577, 16, 27, "Print"],
Cell[8492, 289, 313, 8, 30, "Print"],
Cell[8808, 299, 388, 10, 30, "Print"],
Cell[9199, 311, 315, 8, 30, "Print"],
Cell[9517, 321, 394, 11, 30, "Print"],
Cell[9914, 334, 324, 8, 32, "Print"],
Cell[10241, 344, 357, 9, 47, "Print"],
Cell[10601, 355, 423, 11, 47, "Print"],
Cell[11027, 368, 447, 12, 27, "Print"],
Cell[11477, 382, 447, 12, 27, "Print"],
Cell[11927, 396, 423, 12, 32, "Print"],
Cell[12353, 410, 368, 9, 47, "Print"],
Cell[12724, 421, 425, 11, 49, "Print"],
Cell[13152, 434, 345, 9, 27, "Print"],
Cell[13500, 445, 376, 10, 29, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13925, 461, 69, 1, 39, "Subsection"],
Cell[CellGroupData[{
Cell[14019, 466, 395, 11, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[14439, 481, 264, 7, 27, "Print"],
Cell[14706, 490, 247, 7, 27, "Print"],
Cell[14956, 499, 247, 7, 27, "Print"],
Cell[15206, 508, 264, 7, 27, "Print"],
Cell[15473, 517, 316, 8, 27, "Print"],
Cell[15792, 527, 494, 14, 27, "Print"],
Cell[16289, 543, 310, 8, 52, "Print"],
Cell[16602, 553, 513, 15, 55, "Print"],
Cell[17118, 570, 310, 8, 52, "Print"],
Cell[17431, 580, 520, 16, 55, "Print"],
Cell[17954, 598, 394, 10, 48, "Print"],
Cell[18351, 610, 420, 11, 50, "Print"],
Cell[18774, 623, 389, 10, 48, "Print"],
Cell[19166, 635, 315, 8, 27, "Print"],
Cell[19484, 645, 317, 8, 27, "Print"],
Cell[19804, 655, 471, 14, 55, "Print"],
Cell[20278, 671, 404, 11, 49, "Print"],
Cell[20685, 684, 551, 16, 52, "Print"],
Cell[21239, 702, 376, 10, 27, "Print"],
Cell[21618, 714, 411, 11, 27, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}
]
*)

(* End of internal cache information *)