(* 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[     27256,        661]
NotebookOptionsPosition[     25963,        619]
NotebookOutlinePosition[     26307,        634]
CellTagsIndexPosition[     26264,        631]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 02", "Section",
 CellChangeTimes->{{3.485915785353636*^9, 3.485915788529147*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", "0"}]}],
   SequenceForm["AH", " \[Congruent] ", $CellContext`y == 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4859157732463217`*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 0}, {20, 0}}],
       RowBox[{"y", "\[LongEqual]", "0"}]],
      Annotation[#, $CellContext`y == 0, "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 0}, {20, 0}}],
       RowBox[{"y", "\[LongEqual]", "0"}]],
      Annotation[#, $CellContext`y == 0, "Tooltip"]& ]}, {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 
         NCache[
          Rational[2, 3], 0.6666666666666666]], Thickness[Medium], 
        LineBox[CompressedData["
1:eJwdlnk01A0fxa2TfTeJjBm7KTsh9P0VUWRJRUiJFOqRUikJlbQvltKmRBR5
81Ah5PfNnuxLEtkNUcpSGIy3973n3HPPPffP+8+H4XPYxY+Hi4ur96//l2eG
HSaXlgwx48M6rbmsImCdpv7uXDDE35YX8rJyisBRomcmf84Ql1Jmu/bmFQHd
LHjx8JQhnuHJnG0ki6D0SpxAL8sQA5/onSttLgIBnXYa1hmif/HRxKnZIkg4
5m0f9cAQy/nV8uJtiuEFd8hTLhNDrGippy6yioHfz9ZghZcBiqxOMw3ZVQLS
nysOpcTqo/C9+S99XSS4lN331arRQ0L8ld7mEoTTPy0P3RrQxbzzK03l376H
gtD7gdlOOrivgL9bjywFx7gddM691RgeMxGas1QGtknvHDd9Z+Lr031Jo/sr
IL3q1KcQTy3M8RSbeMSqhN3RCbINzzUQDS9+OVhdDRHevC+FpdUxW7En6VF7
DfzbYHujVUQdS6vDb3n31kD/umtBSRR1NJwbNNf8VgM2irK6umw1LKqJbalm
14DYF/V/XfrUUGnIL82J9hEebbPLvZethpzdgoMn938E0iY2T2OLGood+zTp
O/8RuLSVSKsLqnhgnH1V0KwOwqnrd1+IUEUv1ukdDtZ1MLPks1gZqop8AY+b
7jnVwXhzurldoCrmZpgKOeyvg86TOgXOTqr4ZYXEA8WEOsgrt8zxWqGKH5RV
fIMn6uCfXbtSQ/+jgl9ZXVZar+rhy9V7F1+0KSPt2EJyBbMRWiroWd4NyqjR
FtJlpN8ItUvPGmU/KKNElKZZhkkjlITkrYgqVsZT9OGgJ9aNkOLZ8mJ7qjKO
aRuENe5uhMBVoo2LwcooaS2XppPQCPM1UXLOIsoobqyuJs/bBNN8Apb8FGXM
/RhrtlaoCcbX3dxbuMRA9bKwTd6STdCbm5SpOsXACupMSIlSE5TfL7SY62Bg
6O2K9jKLJrgWOO2d8oyBmm4m2XOhTbBSyD9jegMD50tYbvZTTbC7pPaasgUD
rZqfGA/NN8GTo/rBzsYMZNX47bjI1wzqnew1WRoMvHKu+sqgbDPoZl0v9xVh
IP2XPZ3PrBk2OL7qaW6jI5/5lp7+qGYIiOPI5vjTsTVqldbp5S2QZeM7172X
jl+TvczXMFpgnF3VJeJJx6NSk5bzzBY46hub6u9Ax/kDAVtT17VAuJGqPt2A
jiuP3dr3z/4WoP0n/i5tRgmT5lrXzeS3wEFjJn/nSiX0GU/m7PRthaP8b5+d
EFfC99RY5rqgVghrs7WT4lHCW/ffc+ueaoUrx/1ubh6moV2J3qLhzVbIfJO8
oiCHhm8TtxJ1Ra3wzXi5zm0bGo45XNvguLwNDqzhc3MKVsTnwxlNip/bIIgS
Pzfqo4h6d+7IJw+2wYlPjIcxOxQxdMyK1Jtog5gT0PdurSK6DhtHnhH6BOl5
YQdX8yvipurgpCrLTzC0ZiJS8P5KnPbKNTF+9gl8Tbqfl5Up4OXc8+ZrY9ph
/3MTV5t8BSxYjG98H98OgStieT9kKmBn0DPOziftEDxvtbs+VgF/jZnG5RW3
QziZId2xRwE3fLr0QH+6HRJsj0eMz8vjeHCoAbH/M1S6iWxfYSSPyW/Z1bfd
OuBDtR/3Qw15XM4yErA70AG1ZuRLmoI8DtJkayRDO6BZ4aigKo887kv8fqDr
Tgf09LSX6DSuQNEyupJPewfMHkjVsj60Asd0djht3fUFmCfXLgU9lcODYdnx
/Sc6Ab86MgfuyGF5nOoy1pVOcLXy3eF2WQ5VGaxCyuNOOCd27QUEyeFSj/1Q
clUndDz96iZhKodt96LPgHwXXGqK+jfn43K0zVYQ86noAhazau/0JBWlfVae
2GLcDeG3Oq/5D1GRxz0nOtqhG6T+/Mzvaqciqal4acCvG9a9lxOrKKZi1Nrm
4eWJ3XDbLbDwdgwVvaZm0vfNd4N1tKi0iTwVv9ucNR7+2ANPvm4rP7VeFh2X
/nnSVNULBoMG7FYjWVyccYqoaOuF8lFJPT1NWbSu2ZPSONALrJmGBywxWSwZ
SMjU5uoDptSWkG1dMih5qMFZcG0f5NpYK2uHyqBYzKhLRG4fWDmo7LwUKIMi
9tfreEv7oHUbz40BLxnsvyd8/2lTH/zxxrl71jKIv2n2ZhN9YH7aookiJYNr
m3aa5uv3Q3m2UVRvljQOW07R7Ar6YUeedJ55sjRqv9o08/xDP7CKJ8fuxEuj
kOg6pmZnPwjU/OvmECaNNR7rRS5z+sFhcLVuoa00cpPSPD02A/BJTq07vl8K
MzLqQw26B2D4rKyFrZwUXi2KyjzHHAKhM9k/44WkMFT/VEnihiHQObk5tXdB
EvOZy7sHPIbgRNAZobA+SfSls81Urw0BxXPoc1amJJ4f5lvwmBgCVaM3x6Us
JXHBj/7OvYoFm3SdtPboSmLE3fuhxAALDjG/db1gSKKHmUXvwSUWvKYrWm+k
SOJ8ArM4wXQYrEQvSJ1skMANDbLF9i+HwYe1PfvrXgnUkon7sPn5CMT0jfsw
t0vgQiWRyKkegcyuS9RQGwksFA9/KDQ6ApPNxWckVklgR21pg7b2N+CJ3Hw3
ZkQczZXsJT/kfwPQ/9a0VVQc19iLd2b3jEKMhqLZ2IQY7jW3XH2DMgb1iluT
oz+JYYI56+ZX7THYLfQ2KP+xGKbvZXu0nxmD8IFLwooGYjhexdEIVvkOhbc1
N464iqL8y3MGzIs/QMBz2JfbQhSdOUEP1r/5Aa709HPyDFF0SXhd823gB0xm
quCWMRHMr39qM7NhHLSQZp4TKYIZmo2yrgI/4e6ojH7Yc2F8Y3qDctj9F7Cy
W5zirwvjqatro/OO/wKj43FBWUeF8RZrT5R33C9oWBLP6rYQxtZtpPxg7S+g
yAprWDUJ4fgbbRWWzQQcB25FEbYgUkp/WY07T0IpH5qr9QhiwK3S3JBjkyBR
E+Gxrvxv13P9ff7uJGRtX0gMviGI7bScnq39kzAYMCPVpiyIrrXFobxnpsBA
N09/fJkg9if6S0DaFERNH3Ne9kMAY41/0JXrp0AhcvK6Wb4A6vAyNv5kTINL
wg+BR/YC2F0SVs9onoZk9yyNfD0BNKYWh8tw/YZx2kGbRlkBtG1oLWzR+Q1X
MkbO8/Quw30ONx7X3fgN70sGOPuPLcNHXjQrF/c/oPetY1o3iYIJahpJYbRZ
OPZLW2t5NAUZIyc3C+2chYKZs16cQAqa7/Swy46bhfUUZmWtKQWHHqYbuQvP
gYtKWGJAK/9f8GkYVRRmwx1m/UfnIn48blR3x9aRDZ36ylymKfyY5jqp3xDH
hn1EjT8lmB85AYGtKvR5OO4lvzZVmB+z/py6r+OwAIX7goKuTPKhbBKz9tbD
BeAcLE050sGH3B6b/t6/ADFhgcLEMz5UCXdffe72ItxNLOzq2sCH54xi9LkX
OdD1SEyyXIsP38vIRdrsWgJ6us/GFxJ8mKY7VdD1bgkyXgu9PNXNi3s1uu2Y
1lxEYZNHJDWMF5d0Q8tu0rgJzueXrxa9eXHfglnqh53cxIZenpFBW15kB7mM
JSRwEx/HM51fyfIiU7HAU1mSh5D4w4m+v8CDpb+1dQRceIjtiy5vzw7w4G0X
r57KBB6iS3ie4ZzDg8wzKQsMOi9Bl3ZyNbnLg7taWGJj/ryEn3zqFVokD+6p
WTzNesVLjGvaT33fwoO/FOUOfHXmI5Y2Pii/PMKN/j7LZEUy+Qlrh5+zwQ3c
GKgyd/zxMgpxabuV9s48bvyt5k4N8KcQEr5jt9WjubH+QU6wo9EyYnsg1Ige
5MZ+2s/KD4+XEfeOxHOmt3Ij1auJaS4uQChHmR8oU+LGm+tPjI2wBYj9F28+
yKRw47vKcKG0UEEi88ZAQ+wPLvxsNZXiNidIGCZdNfUu4sKsbYIKXSLCxMmn
PYdsU7hwz+vch7seCxPFLwyf6FzmwmGnew4GpiKEdWGn4KIr11++mX6VECFK
vMxMM6sy58LFO/u61S3ECLkHhwNi6Vx4uqoiM5xXnPg0Q4mzb10ijStTa53d
JYjMz/cnepKWyKqCs770egki4q3O1mMHlsihSEf5tM2ShNppV4kkNof0mx+7
tt5Nipj1HD2sX84h7+rsOlA+KkXUWkQ0VFznkCbJHnwdF6WJZEUpXQ83Dpn7
OqrsuK4McYyTdmOcziH3RW4yfNUvQ2zqMRs/N7pIJnVuMG5OkSUUsM5h+etF
0l2ZddbqCJUoPftbhLBdJLWaT3UJEHLEHZ/Lh1olFknXrQ9LrlmvIAKsFGv9
vyyQVI14tYE98oSFas6qxdQFMuWI8YLObQVCgn/j1dh/FshU55ld2iMricGh
z6NqJn/3wxFHd3nRiILKQ3aFXAvkhZlLRTpsJeLaM65Mx5p50nbPg6pn/XRi
z6UEwYH4eXLNGodlUQMMwiBAMyDUa55k2vo9/8inQlDsiquFNebJkDhdYwUH
VeIL01kz+RebTMzsth0qVyNeCg9eNCpkk2XkmxmrUA3i3PfQ4erzbNJE9aq7
VIgWsaNO2NbLgU3GhqhqP69dRWi+fJw+QWWTjFtUz6fJOsTCDUNKTO8c+SPY
MsxRRJ9oPFzlJ585R0bvr/R+ZWZIpDp7VrwMmSPVW64e3Cq0hjih/1PVynKO
PN8qtqDebEbYSZ2PbqfMkaaF2/eXMoGgTVEHDzbOku9neo4IPrMi/GwC/KPT
Z0mu/2sz8V+xp9oq
         "]], LineBox[CompressedData["
1:eJwdlHk41H/3xscWMfalQZqyfRGJQWj5vCOkVZRHKJEklJAtS0+REoXUFIks
WbJkSUb5Oh/7MkKyjC2yb8kyhiQev9+5rnOd63Xd9x/nn/ve5eBufoWdQCAM
bu7/3beY6f2y88tA+P8xxSdIsndvWyyD5rE/v+b/NcHLfhcPCsgswzoradCb
aIBH9Zii1DEW+F8s8YmWOYg7fO5P2pfPAhWHBt7oK7q4ToLHBt2fBQcLTbxC
1rVw3iAuu0uGLPD9bwQz300T778QV84ksiAptqDN0mUvnn9IbUd45xIYOj9u
MopXw0PJFUEyb5aAuNvKpWNRBbcinOsvuLYEd/eu8gyXKeGqPyYOGFOWoK39
ovzWPkWcUBmY0LPGBEkz9yB+TAH/liK0dqOWCTaFwtqhDDk8PSTNhiN6U49m
nrdIlMVvO+p+fnGeCU4FO5w/P9yFnzJqklKVY0IF3nOvIGYnLqt46TY+swh/
K2xke53JOGsLs/vsx0W4umjto9UjgzeMP9CbvLMI7jHLSvs8tuMJ9dJxQaaL
YM/LRm1UksZvZr1fERZdhBTyK4uSNUl8r8CNEIPBBbhDeFvF9YeEz3uqCnjl
LsB4Qe/xSCIJL+yaepl6ewFEbxw+pqu+Dfc8kCXXbrIAmJVQDbKXwCnJV/M4
xRfAeTpbSCpZHGdyKeppD81DY61+v+tPMdy7JeUUNXAePlXoxkymi+I6Wvbd
tabz8NyyQEReRBRnvSQ7LkvMg/7vzotT90VwX4cEf6uCOfB/ZoedCRXGdeus
OcOD54AHVNzK+IXxld2SUaXH58BJoY1m+FoIX5zabard9AuYXlrvi+ME8Vsf
Mi9SnX7Bh4rr3oghgLOCFG4tE34B6j2W0E4WwFeEyEml2rNg1H0mMbeOiPv3
vPog1foTkmWsor4rEvHVVFJjgMtPCKvzUJ6N5MPXdESWDibNgL//OM9vV148
iBDFm6Q3A6+MjBkaI1vx9Qa+nYT2aXCJiHpfab8VZ7vAdbySZxrWjXnTil15
8C0hK2+MPSfh9TFDg9iiLfiDE94fM4iT0Jc4XCRwegvOI7FA58mYAI3jE0pL
P7lw3qxpVmPvODxh7/C21ObCIzydiao+4xC6J3Hpbj8nTjwwuuux0Di05n6y
9H/IiQu2fD9x2mgMlC8HUEzGOPDolzYO+QOjgKlreA2+5MBFHBi+wrdHQXxd
u6XxJAcutvQ15VveCPjmO7nvLmfHSdI1K/8hDcPN/yr8ePGRDY8bOSxQWjgE
Ye9evFb2Z8Ol8srlpE4OAb9qINgdZMNlDtNO9d39AQxzqwe+jQTcsNnStKJz
AJ7wuI1dn94AY3uzWyF8A/Aiqabr8YMNOMo0TTJC34FaxcC2KW7ACamDSw1Z
fWAz+3eboMs6WDrJJbcFdkNly4KvE99feOTh9fBpMQMyNFVM9D6twb+BVe7m
s12QoXBvocllDeRjLx9qs+uEB/82zvxt/QMLkNr71eAbmEuGa5DyV0GRvlgZ
E9AGITr1a8Guq3C+0/DdmQ9fwc9G/aeB0irgM8N+XxVawdZU8Grp29+wg3JU
NUW4EcgF9yyt3q/AfdOJ1V0h9ZAoodmecGsFZuweNiQza8FFK1ifpb8CnyLr
nZK7qmDfj8PFDY3LkNsUY3B4/2cY7QrD1VksmHsZ5zgfdw/WxpSfx/ssQSD7
sxpj3WtYWoJ0hcKxJdgTf7lOTCcKc/I4mnB1xxJYUBhlYYfTMMMVJLhezwQP
J9fJ6mcfMfdYkgynInOz94o3LpfXYYc0uraari1A3KSYxsiJBuyOhPW4b/cC
aH675eDY24j9ZrhEKZQsgGO6Vo3jyhds+VB+7ILXJita12hKtmFaKtQW4uI8
1DV1P6JYMLBERPxjyDUPzn49dTa7uzGPSv75sbHNnMn3coZy9GD79TQCl+rn
4FhAX3B7US/G2bt+98STOWhSHvD0FhvAqmxXhzNk5sDZ0DO3d2oI41aOYHXH
z4Ju3AL9l+Uwdphqqfn52izw/PKc4qgaxsa7Jcl6erOQFe/1j+qrEaxx3dl/
o/snTM3fSg48PoZVvIiWuCb7E9ze+D6XyZnEmnmq5QKbpuEAa7lIgzSF2Ujv
TfyVOg3EE35tRqFT2A7aaRojYBpyl/0Eb9hOY9dvXh7mUJuG2VO3w8uJP7F6
JzGl8GdTQAsuL3+vM4c1VjBsGnwmQV+totDsxSIm+bjLsDhoHLTbO6nlDYtY
h43Y7QyHcdgbMHNbdW0R24aMS7tMxkGxYZshjz0T8+JJ5vwlMg6iV258A5Ul
rDvLM3AoewxmEqSZe8pZmPWb2DTtiVEYN9RgJMyxMIuTBuE5raMwNGVcxiu3
jBXwtzecKx2Fbl3P0LEHy9hTf7/+AxGjUNteL5Z4ZgXj+MF3/oTGKCQRfbT5
R39jp12i1+buj0B8UYRkwLZVLH3lbJqJxwhQrZP/TpiuYveGrcvqbEcgMrOp
pjpvFZs1djxloDUCfkfkLAP9/mAKl3n7RUeHwTyw1Wea7y9mu5wTU3NyGNh9
xPscJQmoo/uaZKLuEFhfetdG0yKgnv1HclmKQ1B4DGsgmhHQG+GX5zzEh8CB
fO3jhzAC0mEO29AXfkBlfVk0J5OA7Lt8u7nf/4AQaUejtGY2lJpcOWyh9gM4
KwrzhkM4UHQWesSODYJttsnbfUkcKFDv69GVvYPw4Xnfq4hPHKh7Z5/OFrlB
cHTZEk6Z50DfJkSzrnEPQo2o9eWQi5zI6jU1NjplAMKc2EhyelwoxiP7pGPb
d+Ammt11mN2CvjII25+b9YPVP9a4zlZuNFMc4SKr3w/vDBw3eOW50TbG342v
cv1wyt8vqOg8NzJId62jLvcBdeyNP2cNN+oucvfMe9MHihXzHumveJB6npFT
50ovGPnEOkwd5UX9g3XbtaAHqDGvk8sv8yKVPvHeezk9MJGTMfg0mBctm2Zm
TMf1QOTw54v7P/Aiyez+p7zePdBuNmIdSeZDndwjI76qPeC4W9tiD4sPubpf
GR1O6oaQwU5Dz1R+NLm39kPJCwZ8Lz1+3a+MH/EfcJ1becgA/VicGtzBj8zs
OVqP32bAnNG7yUfcAiiuhuOvwgUGXMwOikp1FUDpYkdzMuU2/T7yve0Uwc1/
SPu/FHXBby69UmkHIUTu4shoGeiEdM/FL4k3hBDNs8ad/1snnB3IHdoVIIT0
t+q5na/thHyaLFHpmRC661WTLJ3bCU6uRDutWiG0NlTibRzQCe2tA5wnVYSR
z43MbbJSm/5XYWbBC8JIot02/oJ9B9BFw8YFCSJovueApsm5DhiLuB+czC+C
dvEdv37ItAO2B4bmVCuJoJ9JPB7nNDrgoe09Hj47ERRl0K0jx94Bl2SC8Rd0
EaSZdydBJb0dhJK89xakiaJU2ucz55e/gXuKo9CIpTiKkKOuYp/a4Il/XMKT
y+LoqrFvF7WgDfLMmpX0boqj8aLTRUuZbTC7vu/wk3Bx5MZXvZ/+og3cbPg8
dcvE0ZFMTbt27zZwESv8FrlLAolFqOWco7SBU9gGVXtGAnE8TyY2F32Fiy7x
Mg/ukpDGHVeJ+PpW+NO9tXn+MQndOkznrq9ohZem/sG28STkpEK89+dTK3xV
shrQKCKhiJyzLM/cVjgyLp7cN0JCavkW8qlPW0HZMUZe86gkmkhWn2a/2ArM
Cw939wtIIVZXJU15vgXCz/joURKkEbEjQDDStxmeNqm45WRJo3LzTDNr12ZI
MBlIVCiRRiue38007Zoh/+BRTlKbNAr43WK3YdwMDGWpljXu7QgvzvYmbmsG
JfZyx1qv7ciQzT17gvYFagu5os8fl0F7JsLEL3J8AU6x52N3VncgRR77OYkC
OojMBguIcJORroO+en4GHXbVO+ukiZKRFEOq+XQiHQ4FHgirVyWj6ociIikR
dPAfGVYQtiOjS055GzFOdJj9oHklpYqM6vpIzDgZOsyoTHg4GO9EuXLXOXZG
N0IX/f5cqOAuJPpoIp5+vwHOBTjoxFfJoix/ZZ6rYXXgxjct22wtj1QuLbP0
Z2qAnF1L3TKlgB6aXg+ej6yGAJqhheCrf5Cs35K7z6EquJnu9lFHXRlNvCP0
3VOpBCL7Poc9oypoz73KsEs7K8Do+tnnKrGq6EPJGWPFfTiQSmXcjeT3IL2K
3YJNo+Xw1PNhzN4udeTaQjCWdPwXzMNOq73+uBedv1qnHri9DFRsQs+lBWmg
yxWq5gNLn6BzbGtK7DlN9N31J4dNayk0O4weFiFTkK1mHpDbafCDM2PluSwF
NVW7a4y20ICZ7vxeUpGCxkaKRHPoNJCcnt6+S42CCuXbFQ9V0cDRa2FZfT9l
s1/YvbwKabAaspF78j8U9GVRiU02hgaKbyWlwqMoKNjdZT38NA30THpbibEU
xBWdIBN4nAYnJhMeRFMp6FYuUN1NaOChtnPpxWsKej2j8Mwao0FZsWJrejYF
WS2kZyJ1GpjXUsKq6ygo8Fhs6glBGlxxXjpwlE5BfW71wmf5aODHW7JIb6ag
xyTLFltuGrw+pW//rYOCzJVGtD03SmCiEx0YGqagj1WViTm/SmDVj33xyjgF
aTXke5dPlwC/dHXW5BQF6VLbqV/HS0DTzmTb/DwFsclqFf8ZKAEjtq3Nt5Yo
SF9XtUCkrwSsUhtDV1YoaH91G1OFUQIuRpH7A9coiLwadudIewkEjZ9c2NjY
ZN9MM7vWEvgfdq5CtA==
         "]], 
        LineBox[{{-1.5093878005672532`, 50.}, {-1.5081414875372188`, -50.}}]},
       
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`\\(-\\(\\(4\\/\\(\\(\\(2\\\\ x\\)\\) + \
3\\)\\)\\)\\)\\)\"", 
        StringForm["`1` = `2`", "y", (-4)/(3 + 2 $CellContext`x)], Editable -> 
        False]],
      Annotation[#, 
       StringForm["`1` = `2`", "y", (-4)/(3 + 2 $CellContext`x)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     LineBox[NCache[{{Rational[-3, 2], -100}, {
        Rational[-3, 2], 100}}, {{-1.5, -100}, {-1.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.485915774924365*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{553, Automatic}, {Automatic, 110}},
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, 105, 1, 44, "Section"],
Cell[CellGroupData[{
Cell[697, 27, 349, 10, 44, "Print"],
Cell[1049, 39, 213, 5, 24, "Print"],
Cell[1265, 46, 658, 17, 43, "Print"],
Cell[1926, 65, 392, 11, 44, "Print"],
Cell[2321, 78, 196, 5, 24, "Print"],
Cell[2520, 85, 475, 16, 72, "Print"],
Cell[2998, 103, 207, 5, 24, "Print"],
Cell[3208, 110, 3099, 50, 112, "Print"],
Cell[6310, 162, 328, 7, 43, "Print"],
Cell[6641, 171, 658, 13, 44, "Print"],
Cell[7302, 186, 608, 12, 44, "Print"],
Cell[7913, 200, 340, 8, 24, "Print"],
Cell[8256, 210, 210, 5, 24, "Print"],
Cell[8469, 217, 131, 2, 24, "Print"],
Cell[8603, 221, 312, 7, 44, "Print"],
Cell[8918, 230, 193, 5, 24, "Print"],
Cell[9114, 237, 388, 11, 48, "Print"],
Cell[9505, 250, 687, 23, 106, "Print"],
Cell[10195, 275, 198, 5, 24, "Print"],
Cell[10396, 282, 424, 12, 48, "Print"],
Cell[10823, 296, 718, 24, 106, "Print"],
Cell[11544, 322, 212, 5, 24, "Print"],
Cell[11759, 329, 932, 25, 138, "Print"],
Cell[12694, 356, 195, 5, 24, "Print"]
}, Open  ]],
Cell[12904, 364, 13043, 252, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)