(* 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[     27757,        720]
NotebookOptionsPosition[     26383,        676]
NotebookOutlinePosition[     26727,        691]
CellTagsIndexPosition[     26684,        688]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 10", "Section",
 CellChangeTimes->{{3.485917102599666*^9, 3.48591710527957*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox[
  StyleBox["\<\"1. Domaine de d\[EAcute]finition\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089972536*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", 
    FormBox[
     InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`1\\/2\\)}\"\>",
      StringForm["`1` \\ {`2`}", Reals, 
       Rational[1, 2]],
      Editable->False],
     TraditionalForm]}],
   SequenceForm["Dom f = ", 
    analyse`Ens[
     Or[$CellContext`x < Rational[1, 2], $CellContext`x > 
      Rational[1, 2]], $CellContext`x]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089974284*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"2", " ", "x"}], "+", "3"}], 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "x"}]}]], 
    "\[InvisibleSpace]", "\<\" n'est ni paire ni impaire\"\>"}],
   SequenceForm[(1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
     4 $CellContext`x^2), " n'est ni paire ni impaire"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859170899762163`*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"2. Signe de f\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089977578*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      FractionBox["1", "2"], "    "},
     {
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["x", "2"]}], "-", 
        RowBox[{"2", " ", "x"}], "+", "3"}], 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "x"}]}]], "+", "|", "-"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859170899789267`*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"3. Limites et asymptotes\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089980831*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
1\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\"<\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(1 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\
\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
1\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\">\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(1 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\
\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\
\[Infinity]\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"  \\\\\\\"\\\"}}, \
ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\
\\)\\)\"\>",
   StringForm["`1`", 
    Piecewise[{{
       StringForm["`1` = `2`", 
        analyse`Limite[(1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
          4 $CellContext`x^2), $CellContext`x, 
         Rational[1, 2], -1], 
        StringForm["+`1`", 
         DirectedInfinity[1]]], " "}, {
       StringForm["`1` = `2`", 
        analyse`Limite[(1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
          4 $CellContext`x^2), $CellContext`x, 
         Rational[1, 2], 1], 
        DirectedInfinity[-1]], "  "}}, 0]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859170899821997`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`1\\/2\\)\"\>",
   StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 
    Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089988029*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(4\\\\\\\\ \
x\\\\^2\\\\)\\\\) - \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 3\\\\)\\\\/\\\\(1 - \
\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
      4 $CellContext`x^2), $CellContext`x, 
     DirectedInfinity[1]], 
    DirectedInfinity[-1]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089989534*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\
\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 3\\\\)\\\\/\\\\(1 - \\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[(1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
      4 $CellContext`x^2), $CellContext`x, 
     DirectedInfinity[-1]], 
    StringForm["+`1`", 
     DirectedInfinity[1]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917089991868*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "x"}]}]}],
   SequenceForm["AO", " \[Congruent] ", $CellContext`y == (-2) $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090005584*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"4. Intersection avec les axes\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090018227*^9}],

Cell[BoxData[
 FormBox["\<\"Gf \[Intersection] X =  { }\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090031187*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"Gf \[Intersection] Y = { \
(0,\\!\\(TraditionalForm\\`3\\)) }\"\>",
   StringForm["`1`{ (0,`2`) }", "Gf \[Intersection] Y = ", 3],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090049343*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"5. Etude de f'\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859170900666227`*^9}],

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox["3"]}], ")"}]}], "    ", 
      FractionBox["1", "2"], "    ", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SqrtBox["3"]}], ")"}]}], "    "},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["x", "2"]}], "-", 
           RowBox[{"2", " ", "x"}], "-", "1"}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "x"}], "-", "1"}], ")"}], "2"]]}], "-", "0", "+",
       "|", "+", "0", "-"},
     {
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["x", "2"]}], "-", 
        RowBox[{"2", " ", "x"}], "+", "3"}], 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "x"}]}]], "\[LowerRightArrow]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", 
        SqrtBox["3"]}]}], "\[UpperRightArrow]", "|", "\[UpperRightArrow]", 
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       RowBox[{"2", " ", 
        SqrtBox["3"]}]}], "\[LowerRightArrow]"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090261393*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" Min : (\\!\\(TraditionalForm\\`\\(1\\/2\\\\ \
\\(\\((1 - \\@3)\\)\\)\\)\\),\\!\\(TraditionalForm\\`\\(\\(\\(-1\\)\\) + \
\\(\\(2\\\\ \\@3\\)\\)\\)\\))\"\>",
   StringForm[
   " Min : (`1`,`2`)", Rational[1, 2] (1 - 3^Rational[1, 2]), -1 + 
    2 3^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090658073*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" Max : (\\!\\(TraditionalForm\\`\\(1\\/2\\\\ \
\\(\\((1 + \\@3)\\)\\)\\)\\),\\!\\(TraditionalForm\\`\\(\\(\\(-1\\)\\) - \
\\(\\(2\\\\ \\@3\\)\\)\\)\\))\"\>",
   StringForm[
   " Max : (`1`,`2`)", Rational[1, 2] (1 + 3^Rational[1, 2]), -1 - 2 
    3^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.48591709067247*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"6. Etude de f\\\"\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090689604*^9}],

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      FractionBox["1", "2"], "    "},
     {
      RowBox[{"-", 
       FractionBox["24", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "x"}], "-", "1"}], ")"}], "3"]]}], "+", "|", "-"},
     {
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["x", "2"]}], "-", 
        RowBox[{"2", " ", "x"}], "+", "3"}], 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "x"}]}]], "\[UnderParenthesis]", "|", 
      "\[OverParenthesis]"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090808927*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"7.Tableau r\[EAcute]capitulatif\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917090836556*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", 
      RowBox[{"-", "\[Infinity]"}], "    ", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox["3"]}], ")"}]}], "    ", "0", "    ", 
      FractionBox["1", "2"], "    ", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SqrtBox["3"]}], ")"}]}], "    ", 
      RowBox[{"+", "\[Infinity]"}]},
     {
      RowBox[{"f", 
       RowBox[{"(", "x", ")"}]}], "\[Infinity]", "+", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", 
        SqrtBox["3"]}]}], "+", "3", "+", "|", "-", 
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       RowBox[{"2", " ", 
        SqrtBox["3"]}]}], "-", 
      RowBox[{"-", "\[Infinity]"}]},
     {" ", 
      RowBox[{"y", "\[LongEqual]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "x"}]}], " ", "Min", " ", " ", " ", " ", " ",
       "Max", " ", 
      RowBox[{"y", "\[LongEqual]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "x"}]}]},
     {"croissance", " ", "\[LowerRightArrow]", " ", "\[UpperRightArrow]", " ",
       "\[UpperRightArrow]", " ", "\[UpperRightArrow]", " ", 
      "\[LowerRightArrow]", " "},
     {"concavit\[EAcute]", " ", "\[UnderParenthesis]", " ", 
      "\[UnderParenthesis]", " ", "\[UnderParenthesis]", " ", 
      "\[OverParenthesis]", " ", "\[OverParenthesis]", " "}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917091246305*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"8. Graphe de f\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485917091262416*^9}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 40}, {20, -40}}],
       RowBox[{"y", "\[LongEqual]", 
         RowBox[{
           RowBox[{"-", "2"}], " ", "x"}]}]],
      Annotation[#, $CellContext`y == (-2) $CellContext`x, "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 40}, {20, -40}}],
       RowBox[{"y", "\[LongEqual]", 
         RowBox[{
           RowBox[{"-", "2"}], " ", "x"}]}]],
      Annotation[#, $CellContext`y == (-2) $CellContext`x, 
       "Tooltip"]& ]}, {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 
         NCache[
          Rational[2, 3], 0.6666666666666666]], Thickness[Medium], 
        LineBox[CompressedData["
1:eJwdkXk0lH0fxkf3zBiyzkRI9iUUMVGS7q9GC0mPEWkXkiiytMjyJBWlxVJe
JEWLKCKRtd8dxiQijHWsDwmVnYaHvL3vdc7nXOfz33XOperiwz6xjEQi3f7D
/zrk257JpSUm0YmNJB0RsYTBINkZ/gKTyEnbIm5GtQRbqZ5f7+aYhIwQ6bIc
ZgkqpmcXfaaYhFttu3vTAgvKb8bSegf/OLvH1GqcBTT9ViXiM5MwMnSe2dDK
gnsBzrsvP2ASSk9yKsSeseClkP9T0kYmcbr8XXUZsIByYqeR/BEjYveTda07
Tm4DRhvndFqMIeHnfTp7W7IFsCuSXHU+rSdm+xTMLZsBgsbMT0f3GxBj51sP
j8zjUHghyfP1Xn0iLyfzronHVrCNdVD5nbiWCDxcOjGWtwV2Piyz3fVDl0hj
j7hWC5vBc25gi/8hHaJecN3wPxdN4ejVezL1L7SJc4zt1GnuRgh1xrKXM7QI
p9wu630bTIC0ThmxrmkQGf6T0VMvNkBHVGLEy2Y1YlX7xT7XBSNQFPXImN6m
SmRFsAaWnTEEL2NdCl9RmSgkJ+mlBhqA68buFxUVqwiGupL1nO5a0L24ecn7
qRwxdoKiVbZSB1K77CsDLWSI7IKdnrEcTfgWJrNlpxydOFAwbaGdqwbF99ds
H3IUJ3xvdL69xFWC9cPt0wYPqcTrwgH1QU85sCzmiyw6kogcx9W1ynl0yM58
Zso1IxFko9Pesg/oIPfA51SMColYivV9JhNOh5Zf1NjdvCU06G13VN+eDppB
jlIP53+jfvtNS7VT0lAeNiMGOxdR3rJofp+JNCzcYVKv984hdkt2r2eUJHzx
4Z5QyJxDSXen36w5KglP/jrEyfafQ2YRl/eRDSXBmh5+tZU6hzRUOtgrWyUg
8X7jMp11AvSy7fWGMg0JMEn2XaoJnEWvU+bDUqrE4GzGa4E0YwrtZ0lcDtMV
hfUS3uHbeieR15WnxgoUUZjwWyvhnzWJTnqoLn7tEQG/LRnqvJ2TKN0gw2VV
vAicq0+zjQ+eQCmklEllighMjehZGdeOoUdCeh85o8IQ8PbF0Xj3MTRltTLK
4LMwzIZoBvwijaGwCxu5/S+FQSCl/KjIeBTVG7k4MT2FYcGEPmP+6AeyeJXg
/WKECtRwweMdfsMowAetmFugQITNuYJ0sWFUeinSUr6PAjTZyRpa+hCKCI1Q
fsWhgGjG99lP/G8oJt85amM0BSTru232bh9Ep3lfVu/Ro0B0wiGXnJ6vSMVq
NO8UgwJ0l7YL0pe+oiLSBWu5BTKsmGlIa8oeQFbBdt5b68kgt4oj2C/Xj2gM
NWs8hAyJAxYSRW/+QYTN5qNBnmRQyH6vrrDnH3SnZMbunBMZVlsU2naG9aGJ
+vCWMhMypIgau5kr9qEqu5v5CtpkUOblBqYU9KL3rAwFthwZWHWOVh9aetB3
tUyG7yIGO47/FRC+vAdlBScvnJrAYNe01aPt0I2wy+vVnQcxsI5gfRI+14X6
HjTvP9KJgY2C+Ux1RieS0wgb9WrCwDbLROVWNx9Jlrtz42swsIP1u20ZfKQ0
5OY0XInBviad81K7OlCar8k7H4SBo7t6amNwO/L7O/ipSQkGN339I2Pz29Ae
L6cZx0IMyoIrfNijrWhTOj2fU4DBeARjP127FfFINmIxf1wjznVr47EWJD2+
bor7DgOnlDzN2IRmlGgZDJeKMYjKwMTZDTzE+fZvUeF7DN6/tZ+WFuWhGQ+2
1v0/eybRE37Dtiak4HzdWa0WA62aqfKYoEak82TPmYBmDA60sDLt3jagSz8P
xT7uxeBWX1yM9M8vKEfku0/ZTwyIH/0XGzS/oJaxUsX+BQyGxk4SamV1qOxD
r6WeBBn2Uml30/Q/oyrb27tzVclQoPjiiNrjGvQc8zkbu5EMSsxda9OkP6Fi
LZ7g514yXLMamlcN/4hCrQ2PfP3z749jkdWp01XossONoORIMtifX5Og6s5B
Ro1O9aYZZCi+9dE9tbUC/R4veT1YSwbVJx7GqlblSPNU2r36KTJEFtHIqcUE
yhKQ3TSUKJBVG7PNwqwEbf+YED0QQoGguYYeUCpEUlwDpco8Clhp0UNAKB+V
RjZ1CX5SYKU9WwEGcpH3e0pj9Voq1Cxp+Px9JwuxXb/oXz1LBY8DzzJC96Wj
A4ohosFFVCDnaQ6EKKSiMe1ALXGaMIwnJLpNJF5Bv6Nf/Xv/nTAEL7vH2bHp
FJ59zWZHgDwN9JNcuStM7uLOWxsDS67QoFs+d3S5ZDLukH6G+nuKBvbMttLr
Fk/xinc/eF1nRKCgff+ViKBM3AMXHJOYEAFx4rt65cEcvK+Aqb0/VBR83b2G
K+8V4F9LrLZyipdDmqmeDSe3CB8tb9OY9xIDntj3bE5dKc43s9vgoycO1N5M
6arvCP9GU5OKmBeH5APGm12vfsA3J8l0NXVIgDHrvlc/vQJPMzAOVq6ThLq1
M8muqZV45PE8zmYvKTgp61DXb1CFH20Walj5rxSQSPlLru+5+Nk5RaNlCdKQ
OLzCcMCmGu9VHlW8zaKDUVOAixv/Ey7LHD98d4kONaW8uIFTtXj98oLVRnUM
cHu+geMm+Iz/FNUqx96sgMW792YHrtfjUgazWlLZMlCzZT7uzc0v+M3HTqak
KllIMMx8NWnXgMte00ti/V4JbloHOUbyjbhZS5/5rsPysH6VaLdfbyMusqWw
lTOoAIuSxbNv0pvw6NvxtZrPFeET2VNyypuH59/vXy3zTAni5+TXME2acaUx
Bsq8qAIuo9Xgv9iMy/SbCi7UqYJ+f+CBvMoWfOl6tYWQszrMt+r4TUW14oGD
cdFV5prArW2/ybRvw7OPx1nMhWqDx8UO7iG9dnzfZECs4g1doGnwyVexDjwi
NrMz1k8fMur5Fq/4HbjkMXeHHJ4hWAd1hvLy+Lh4nUM8KdAYRrS6ShaiOvGl
XU4jt4c2Q1Rjl0DDrQunamjGPR63gPMpB08US3fjpP/HCv4LaDA0zg==
         "]], 
        LineBox[CompressedData["
1:eJwdUgk0lWsbPYZrPNL5zjGnDEWmxIdS8r71mZJcU6qTCpcyVCRJSJHI1ZUm
biGa0CCVkvziQQMVCUk/1TWXqTNyTPnd/1lrr2fttfbaz17r2dr+YR6B4jQa
LW0e/27P16eL/KS6Ee3/sxH0R8LJtDXdqC545owzYQei9Vz3vIJupKxGq3lh
Ygv1WQfDS4keRCMI9h2n1fD3KDf9dXwPOqci8/5kgAUEURHFnUM9yP1o9/n8
62aw+jLv7U/vXpTuX/HbJwNTkPkZMSRR14sWpy2fipw1gg47voyqaR9yNwpz
qD5iALevHNI3zu5DZU1vIrpD9CGGw7fH0v3I01nDJbR8GTg7RAZ4HepHwhjL
f9ibloJ6jiAx6Fs/yvTXKi1n6cIQN/Ja3KYBFFZzd/k5WR2ocBRWZzwdQI5z
0scfamvDn7mHv97UHUQnkul7PnlrAZsvnCk/O4iET9PfuzgtAaONURqN04NI
4dn+i+flF8PM1XHr7r3fUUra5++7uYvgnSBqm7D1O4p0W5gFAg3IcZ6IksU/
UPUBD04hQwP25R+5pHnvB+ruiLCvslMHm/GJUjPVIWRpHKCwNk0N6C7RLfZJ
QyirKMegvkcVuq6JONs5Qyho4N2H0I2qUDwRrXjAZxjt3t0eeuS5CsRvnjRJ
rB9GrSVjzJh1KuB646hLpsUIOqzhybGsV4Yx15jUKvoo6hXrTimZVIKqm1OF
LdGj6FjRf3ruXlWC9KmYVwN9o+hDgFdam7MS7HKb7ptyG0OGOxYrpMyywLQg
VkLx+RgyDajMIMtYQJuZ1tY1+Ikc1U/ZsSNZ0Oweh1dd+olC/LpXpq5iQXl8
VVWJFQdtmnQOjnjLhPzbvxqf7eMgy1gbfnw2E0632X6pu85Bc/V5tZZhTAif
ix9p7OCgX8yGYk8HJmwzrJ7+tICLlp1qbMzWYgLeMifXY8dFk4fE69tnCVh+
AqmPxHCRfPxX05YvBEx+rF5NG+QipmK/kvctAnpoNCc5TR5Kavja/dcZAt4Y
4a0sTx5ac3E9r/cwAY+8T+xZnMpDP+u77q/yI+BKAhxeXs1DqYvUFENdCUi8
RztlLuShguEWtv86AkI+4Ys2RnyU8mQnT2IFAR7iCTcc/Pio+HntotVaBKwx
qXnklsVHu2PCOr8zCbBsa8+sauCjrSVc34eyBKyMHYkxnuGjl1s9GDdpBBjp
iO++skKADB8XHH4kYoBegwol4ydA09RT8fdcBmiHm+hHXRCgNtk/pUaHGbBI
hZLveylAg2rXs2iDDFCt2vbTXSRAysKXp371MIAZeKC12lCINtbpunR9Y8AC
etJTk51CtNezRDLjCwPkSi9nZ58VIqnJyz4LuxjwG7vkuGytEL2Srk/16mQA
TezlH0cEQgRdhuv/5dOF/3Xs1xtH8mY/iqXn9eOuHCPP7eNoV8/64L3zflzh
bwtr0sbRiySVQ/vm743kaAhWVI2jQT7LaOF8nkHKrCOHM476X/g4u/QzoGfI
oVJOdwJNcsu+qP9gwNdzPvnRWybQbKAZjhplwOfVEUkDKRNo2MJAeTuPAW3f
UoK8KiZQo2epU9UEA5qTc11qRyaQT5qP2LVZBrxqq2dddRch86517e/kCKiJ
/SqSTxKh8aWdgQoEAZU6gq6jZSKkXti+o0Jt/t/hS25t0ZhEiS/tTjgbElCs
Yplat3kSfXE7fVWPJKCoynm/2YlJVC7TM+trQ0AePcpSoX8SZUyH0vt+n+9H
aZparMoUuj52u0OPTUAm+9rs941TSDnJZ1FlAAFnit69fHF/Ci3YyLvSGkNA
tJ2ud1z0NJr5ION16M58X+Kao4blZ1EBJLOKlJiwWXeAvd12Ft030WbKL2WC
05tp29fhs+jslIPYNXMm2KrqS9/4OItaHBOW+7oxwejxsSx23i8kLWP8TDqd
CeJRSl0BajTcekzl3txCFrB977SUW9Cw7Z4dbw7qsuCRM2qgu9GwJsPCW96K
Bf5LgsseJ9OwVGXw/Qc7WFBbX5khKaDhftVHEneKWHBSI8D+ZpMY/nzwY2OO
kxJI1jy633tSAgfSrZf2ZiuDNN0twX9MCvdvyB+KPqIGJ/9ppyJuKGC7z/Yj
zxKXwIPsZLd4HgOHuEuNaZXqQNj1gIV93krYa3NNfaVwGewKuaKZkqCK3Rmh
flJyBpDqHmVN5mjgx5WX5PRZxiDJujRwfGoxPmxtxE4MMIVPb09xkhS18S/3
h+neyAy2xPpbXanTwatFIu7HMXPYJz+s08ReiomESae4RAtYcvdVptTQMlz5
ttaleoEVxJZTnorZ+rh1TcplmeerILxgX5mVqQFOsH28TuRqDXTxVf4r+g1x
rpVvS7v4WrDf73XJ8IIxNnRq+EuyxAZUn2mG2S9dgYN9Jxbk29rC+YjT51Z+
MsUSuXFpKhwEHsm/m+SWrcR/fNhTE1mLwXBH0pabx8zw46Msc+7p9dA+IHv9
whZzfO6c472tvhugyb9/PbGExKF5ak1+BhR0SxaKLumQWMKVfqHXmAJBQVCJ
mh6JLa5WbAtcSYHa8PAibRMSF8Y6DQStoiDgEG/CdC2JtxVoyoXbUzB1cq54
81YSH/3bIzLejwK9W2rqqWdJXJOr2Zx9mQJrx85m+gUSh8xV3tXMpcDlR05K
RiaJb2+VP52XT8FBEy1hVi6JO4NLN9wopKDyiV5zwV0SJ2TqwZ0nFHi8IpNf
vCbxdjGHzmcfKAgMEto4vSWxgnZRzdqPFETLPeW/bSLxgGtp0fMOCnJd1/i1
fiTxpoC66JpvFHxvxzY9vST2CAOthtH5vNHi/MBBEr+a8KVv4lKgoPHi9o8h
EheVForeCSgw3+2owuWS2GqnXmvzNAX2YrJNkcJ5v6ydNR5zFGy78SZJJCLx
5VzrB23idhBif2Zt3AyJecoVed5SdnBscDNvbo7EB+98Pdshawf/A2pKPw4=

         "]], 
        LineBox[{{0.5103436627463361, 50.}, {0.5112909259138849, -50.}}]},
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`\\(\\(\\(4\\\\ x\\^2\\)\\) - \
\\(\\(2\\\\ x\\)\\) + 3\\)\\/\\(1 - \\(\\(2\\\\ x\\)\\)\\)\\)\"", 
        StringForm[
        "`1` = `2`", 
         "y", (1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
          4 $CellContext`x^2)], Editable -> False]],
      Annotation[#, 
       StringForm[
       "`1` = `2`", 
        "y", (1 - 2 $CellContext`x)^(-1) (3 - 2 $CellContext`x + 
         4 $CellContext`x^2)], "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     LineBox[NCache[{{Rational[1, 2], -100}, {Rational[1, 2], 100}}, {{
        0.5, -100}, {0.5, 100}}]]}},
   AspectRatio->Automatic,
   Axes->True,
   Frame->False,
   GridLines->FrontEndValueCache[
    analyse`grids, {{-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 
     5.}, {-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}}],
   GridLinesStyle->Directive[
     GrayLevel[0.85], 
     Dashing[{0, Small}]],
   PlotLabel->None,
   PlotRange->{{-5, 5}, {-5, 5}},
   Prolog->{{
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{-5., 0.}, {5., 0.}}]}, {
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{0., -5.}, {0., 5.}}]}},
   Ticks->FrontEndValueCache[analyse`ticks, {{{-5., 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {-4., 
        FormBox[
         RowBox[{"-", "4"}], TraditionalForm]}, {-3., 
        FormBox[
         RowBox[{"-", "3"}], TraditionalForm]}, {-2., 
        FormBox[
         RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
        FormBox[
         RowBox[{"-", "1"}], TraditionalForm]}, {0., 
        FormBox["0", TraditionalForm]}, {1., 
        FormBox["1", TraditionalForm]}, {2., 
        FormBox["2", TraditionalForm]}, {3., 
        FormBox["3", TraditionalForm]}, {4., 
        FormBox["4", TraditionalForm]}, {5., 
        FormBox["5", TraditionalForm]}}, {{-5., 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {-4., 
        FormBox[
         RowBox[{"-", "4"}], TraditionalForm]}, {-3., 
        FormBox[
         RowBox[{"-", "3"}], TraditionalForm]}, {-2., 
        FormBox[
         RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
        FormBox[
         RowBox[{"-", "1"}], TraditionalForm]}, {0., 
        FormBox["0", TraditionalForm]}, {1., 
        FormBox["1", TraditionalForm]}, {2., 
        FormBox["2", TraditionalForm]}, {3., 
        FormBox["3", TraditionalForm]}, {4., 
        FormBox["4", TraditionalForm]}, {5., 
        FormBox["5", TraditionalForm]}}}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.485917092980637*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{444, Automatic}, {161, Automatic}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 104, 1, 44, "Section"],
Cell[CellGroupData[{
Cell[696, 27, 501, 15, 47, "Print"],
Cell[1200, 44, 213, 5, 24, "Print"],
Cell[1416, 51, 634, 17, 43, "Print"],
Cell[2053, 70, 540, 15, 47, "Print"],
Cell[2596, 87, 194, 5, 24, "Print"],
Cell[2793, 94, 556, 18, 76, "Print"],
Cell[3352, 114, 205, 5, 24, "Print"],
Cell[3560, 121, 3259, 54, 120, "Print"],
Cell[6822, 177, 308, 7, 43, "Print"],
Cell[7133, 186, 803, 15, 47, "Print"],
Cell[7939, 203, 820, 17, 47, "Print"],
Cell[8762, 222, 404, 10, 24, "Print"],
Cell[9169, 234, 210, 5, 24, "Print"],
Cell[9382, 241, 131, 2, 24, "Print"],
Cell[9516, 245, 270, 6, 24, "Print"],
Cell[9789, 253, 197, 5, 24, "Print"],
Cell[9989, 260, 658, 20, 52, "Print"],
Cell[10650, 282, 1541, 50, 116, "Print"],
Cell[12194, 334, 405, 9, 43, "Print"],
Cell[12602, 345, 404, 9, 43, "Print"],
Cell[13009, 356, 198, 5, 24, "Print"],
Cell[13210, 363, 425, 12, 48, "Print"],
Cell[13638, 377, 795, 26, 108, "Print"],
Cell[14436, 405, 212, 5, 24, "Print"],
Cell[14651, 412, 1658, 48, 138, "Print"],
Cell[16312, 462, 195, 5, 24, "Print"]
}, Open  ]],
Cell[16522, 470, 9845, 203, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)