(* 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[     27049,        639]
NotebookOptionsPosition[     25758,        597]
NotebookOutlinePosition[     26102,        612]
CellTagsIndexPosition[     26059,        609]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 08", "Section",
 CellChangeTimes->{{3.4859165271065683`*^9, 3.485916530402528*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`2\
\\\\/\\\\(3\\\\\\\\ \\\\(\\\\((4 - x)\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`0\\)\"\>",
   StringForm["`1` = `2`", 
    analyse`Limite[Rational[2, 3]/(4 - $CellContext`x), $CellContext`x, 
     DirectedInfinity[-1]], 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.485916501122929*^9, 3.48591651432561*^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.485916501122929*^9, 3.485916514357822*^9}}],

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  StyleBox["\<\"8. Graphe de f\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{{3.485916501122929*^9, 3.485916514489401*^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:eJwdVHc4Ff7/Na+La48kI5EKiVBCXu9SZCQhoqGsipKIbEL6SMsOV5JRVmZI
uvedkZk9MzKybmVnhm+/33me85x/zjn/nSNhfdvYjoGOjm76H/9PfSdOz29t
KeFw6Ry5mjtkGPcW/NP3VwnvMykKDXAjgyH39+WSVSUsYOk/pOZJhp1HnDdu
LyjhxpUpn4IAMlQ8iiAOjSvhqbY+75xnZCDKd4vhr0r4VdyBqbYcMkTdvaIf
kKCES4cvnRikkSGL3jWV7rASnmMx+sJxPRGY7XQObr90EIezPEmMCnkJfD3V
N1+HK+If1yQ1Q9OTwLgy3mZfvQJ2KLUp2OH4Crxnjt58PnoA90/LZamLJkPp
vXiH3DPymC1y/9f01mQwjDi3czNODpO5w1zL01+DTuInw1O/ZPCdO++Q+uMU
SK/x7HK9sA9LZNkEit9LhcvBUQLNb/fgHiMjFsHnaeB3hfEdO580dnleOsdQ
mA50+8WpWg+ksJ55Dm/8zBv4Fhb3MKtzF3Ybr4dI5wwQYbuesXhcAtvdTrCS
IGSBo4oMc5+IOJ6X8P9IW8sGm8ODbysrd2BlnowL9w7mgoyH2pZTqhDmFeu3
ZmrMAzxgKDMaI4RTjw25J7XmgZmWzTnzUCEclcOsp9mdB4Gcj7PASQgbv6rS
eDiSB72pA+bcqkJYqv8VRXs1D/5rDcjLb9iGT3kej/Pfkw/jMjVXF+cF8d9x
qbnFkHxIHjCp8jwmgNdYHDJHjQvg4I+Dax3KAlhBag2LWhRAFY1HQWGvAH4q
cp3/olUBjC83J4xzCuBNo8NBY44FIMNr4GrSz4/J32zWZR8UQIH2iV377/Fj
26A5CCv9l89VDhjK5sO7JbOKC3cVwsR9AQ0dIV7s/p/AdA1zEbD55s5EsvFi
jzv+g10cRSDvoZsy9JcHk4LYDH8JFIG7ky+b1zAPlrJiq5eRLgLChbGe7Ewe
bCQiK7CsXQRSyu/deI/yYBfTGbGO0CKwHjfNHbjKjeUWijn7+d9DWfTek5Nm
HFi3cV700PFiIF6YsKHX4MD3XaN8N/SLwWxneqCwBAc+6hnj8fVcMcxnSmKD
nyR8FJs7PbxRDPuwmHq+PwmP9QWRbcOL4QWNX9HrLTv2fBtp1zRSDG5AL0pa
Y8WmuvZQ8rgEKpiw+u7vrHiE4FSaEVsC3PV+lppVrHjM9p1N+usSyDb9G+v8
lBUrHmF9RCktgR83lnk7d7Fio7SL2Y5jJWAc9Zv4Up+I9a5Lmn5BpaAw1bt4
IJGAJ3fKkn9ulcLd2f37tgUT8JdFzoFb7B+gdPn+pU0HAhbQ8P+4JvgBjhFk
vjSqEvB/IuthyvIfwFjSK/ZGBzOWOS0qJnPpA7hdElZLYWfGD0zbPGU+fYCy
Vkt/QS9GnMZdVz/3oAw2e94VblxhxHsPDrqOR5TB8SGGyR86jNir2qBhIqkM
GqYzjQoFGHFA/Eozd1kZ9LOvSxjlM+Bb/Itam9NlsHUyoSp0kh630phnzC98
hBNlfawbZnT4qqfE9VjNcniXmXakRp0Od06m3w4xLAehhNs3wnfS4QiraO+H
l8uha5kQod+xRe2647YD+5XDbm8z7sS1TaqIktg4Jy6Hivt/SEhng7pUoPRb
U/sT/H2qRAgZWqWWRx+l67tKgZbbNXbCmatUnwanNP27FEgxulD9znWV6lfh
XdYWQgE93qDgbsIqdfA8pUcqmwJx0W0M+/avUJ+qKvsMLFPgEPnOVoPnEvXc
jnLHL5FUcM7IXeHhW6DmBYlbWN3GoMDpFHR8aJ6qufCm28UTw5yLHKdrzjx1
f1phaUQQBheNDMkOnXnqff0dm8uxGNyaXxvG+MxR/6aJ7r7wGcMCTVZXpXGG
mjhdJhYn+BkIQSuvtF2mqKUS9NWZDZ/hoYFb8RvSFNVCPJbs3f0ZiILzDcQ3
k9SoKNcDF0c/A1vGz6X6vgmqTJQJ8+n1z8DVPGhw5uQ4tTMnY2VWtgKEdlSv
mAuNUou4JiysnleAmb1kcptPL3WTvKe2w74SHt1x/S/ifQ81xMFeL/5uJXzy
qbxtPN1Nve/qcs01sBKkIm0026y6qMHPzwlffVkJ89SUvtbj7dRixQyhA92V
IKZ0Su41Tz01UJdQXW5QBbMv4mzn4gKpKQLksT+nqsGHIapaW/UGbEoYqjyy
qAb5eJsa/kPP4JeI9C1Vh2owUeopDzmWCtUbGaGjYdVwx95xqiqqGNr2aJzx
bqkGOrr3WzaUGjittdONdvkL1DT2PlIy6QGUbViGI2rguse3mguyvaBas97f
/rYGiFJ9TMGM30CTx8SPm1oDet79fh2FfSDv78ZP/FUDjfu+u7jxfweeyb7O
DZ1auK7lktNHG4HPO4N57xLrQDVuvmHGbBQOSZkcspSoA+KMC42xchSUX5P5
XNTqICPedY9cwg9YLRczOXKrDmhzd5N99Meh/nB296HOOrj56l60aPYUTKvM
Tfrm1oPG0nKhohANLB5LqTc01APJwKPtZDANSCIlnaaT9ZCz7MHldPEnxBzv
+SW+qwGmDb1CKaTfsKT8KT7rRQOU+lEouYdmoXYo39w0ohHU9n8uMIpdAKe6
swpkShOodHTFUOoW4O4T/4Sc4SZQ8P7lJfd3ASxu8VtzMTeDdN02LeLVRbhp
dfRirUEz8Nk5tVNl/oBiplzSgaFm+EXesShPWQLH9zx758JaYEJLsYc8uwQa
83cztF61wAhNu5xNchm8vuWZ1Ba1QK+qS/D4w2XwWMLcjoMt8KWjlv/l2RUY
9pUJkFVuhSSSuwrH2CpoNHcxG9FaIb4wbLv3tjVY9GKX383QBjGWyRuTumtw
worCpybcBo/fNlZXvVsDKXRMYo9+G3ickDTz8VgHEfuzWDavDYx9Wtx/sm+A
WVNG3+DDdjgtOW5pobkBXx/sP6eS2g6n6tc1a5w3IEJNMXAQt4Om0B6WlM4N
qCl/kiu/3g6yRb6xlkmbIMsWrjvr2gEM7gL9ttvp0JX6varX7nWC5ZXMtlJl
OjTtYInDyJ1QoAd1JCM69KlVNF+xohOsxW8UF4XQoWSf8UASVxdU1JY/Z1qk
Q05fZqRP53aBcOHZh+e56NH9rQcfGnq6wCVx3Ddbhh6NyA0pjDJ0wy4XbkfT
q/SoYMtRiXa+G4J22J5MbaJHFFnVhY+kHuhnXlVfmaJHtmlq92zVe0B59slB
A2YG5CH96lqlQw/8qCoRX1RnQNUfLjx839ADJ5zY17QyGNDb+MyDUzG9wPS5
4N1oECNaqvC6y2jeBxezdNIOJzGiI7ocxVaRfVAU3Z8QVsaIeo0dm2tb+sDW
gRCqNMeI3puh7YOG/VDNZ2kTdJkJpTZdTPt5fgDENqctuj2ZUMXzgeyglwPg
PhlkJBvNhNyLKX3XxwZA+lPO0fYGJvRyG2cNujcIIfb0QpJHmFHvb2KcdvZ3
GDSK4bxnyoxqDxCs7Ta+wyF1WeaG28zoxNNn83x7h2Cc69y8SzozapGzIdj7
DoH2h7eNFXwEFJX0Z4pDaRhephytFDxAQPojraRZ62FYetL2wUGPgFB59Mfv
kcOQbv03nfc+Af2OeLadtDoMLCSj+9bTBFRxPvx8busInN9jiQ+xsqDm6/sj
GdhGIfO47RabFAsKaCxbyNQaBUNPD99CCxb04kYSlvs4CjHjrzyZqlnQGeUu
UdfyHzBJn1Xa850FnWe8EUajGwM10ffL2WssSC7yEr2czhgMmtS5nVMgooH+
/iqz3jGQ/jx3Jz2BiBRuNDk+EpwAj/71PK9iIspcSd0Z5jgB9cvMs4atRDRS
a/idUDkBTvLCTssEVuT74ijjiOckYF2pnAYJVhRqkszu3zsJvHbyv5I0WNHb
fIcMXo0pKE447nDKhRVJ0IQO57LRgFhikCHyhBXtK9/qJdyjgWWb2eTsG1Z0
U+Zi//w4DTaJjvZxA6yoQ0d9QKvtJ5x0j7SmnWJDe89zNOT0/4aY8MRkig0b
Sh7zY/V2nIbJ7DdDEX5sKGfvG1Lp1jQ8Hv14Wb2IDUXJ6s6OiczC4GZ1Ilcz
GzoWlHJGznkWFIRb+ken2NArZa0Dw19mocPoh+VjcXak9PHEuof/HEjfnI67
osaOxvUHE3uH58Dj4UqP8jl2xDsnr592ah5EKCTzgUfsKCpw4nu51L8f6xWM
yU9jR0lxtqEf4xcAL+7sfID/+U/SvXksuAi2siom8kvs6FtHiZ27xB8o1oYI
Bh4S6tw2yBST/weI1rqtXbIkNFRb4R6nuwSWvibcWdokJDeUclyWtgTZLy6d
8b9KQqS/Z/JYo5Zhs/DaUxMfEnpivqOM9dQKGDXf+bon9p9fZThUmGUVFplD
9FsaSWgffVt9TeYaaEs8f5Q6QUJet70lZsLX4YVGfJ0HAwd6kaUMeqF/gWae
SjwtyoG6LIT5EiM2QMP1nY6EKgfSbUrJmcndhKdPS0P+GHMgu7vMLxJGt2Ao
o6K67hYHuqh467D8CzoUNNSl5ZLCgbQWmKQ0eBjQ4Af9Wx7lHKhNz79toYcB
qUXiGL9ODvQ6vHJ3QQEjir6pgoOnOdD8Zro9czITmj2ZOfWIhROtppjmb/zb
lYG4OF/4Tk4krTrVZVhLQG9WIjVij3CixOIlZ19WImJoI9onGnOiB2TB0h3O
rOhylu+zFEdOlBn4YE6EkR2VBc+XZgRzostNmiO6DSQkcPnaSG4iJ3KWo8WP
t//Tw/3sxcWc6M/2q9Ot0dyokfusSnkzJ2o8G93EuMCD9tKqL1dMciJl53d5
DU/5UFCl2n+19FwonTJIn+YtgAbJuflNwlxIpqH0mWjHNqTmLtXXocSFdpFm
BmqowijmTBxTnwEXch5ibTf2EUNzeznlh+240KxMeiClRAIZMASZT/hxoURj
RZ1F6d3obd9ywO9YLnTz6PaAVQ0ZxPT+ZuZC3r++g1UF2ScVkdXT4fbVOi5E
CPjj8fXkEVR2zWxja4QLxYgqndd7pINMGnhEYJQL0f0/dNH/APVwMxc=
         "]], 
        LineBox[CompressedData["
1:eJwdjgk0FI73xYUWqcxiX8fYByVTlKRXSRKVrJWIkKQSJbKUkihLllSi1YxC
si8Vb0iDMCRblkSMXYQvRfz6/+8579xzz+e896680/nDLrw8PDzf/83/+Ymn
gpV1QgTg+X/tY3H92vUFxAhgzHp43u/5dlY8N948QoEALqsYrnqb6KxdFgdd
hbQIwPt1WfsrNw3WBAr4x+oTIMWnMM75tjLrsUZFtMg+Ahy9ki5+LZPKMn0Y
lPLAigCfXxaqtXDlWL+Xby2WciKA/Eeh1v3NUiym11Td43P/Mu96D/s34izL
7te98v4EKE9UyNbTFGXxmrrNptwiwBNr8ptIeWFWVhF1jWo8AeyHzBcszpFY
9kpdlPSnBGhM1rr7Y5HAEoy9v3n9awLkaOfaiIYLsYoWzU2yiwngYyCdKHt6
Lcv1zBqHTWwCHG+7f6YpUpAl3Mb2LmwkgH5tT//8sACr3DA4TK+bAHcT8g6K
XV7F8szellwyQoA1FNePGbSVLBnZ/7JhjgDB96nbKpaWsz7dzmJ/4CeCWkns
yO1JfpbvrHuHEZEIvss8NxEW+FjKzkoT1TJESO2eERGW5mM1NXTzm9GIoDcX
p9J7gJd1fXuiRIMOEVzFNK9ujl3G0kqzXG+x+9+9TDdZhT4e1jdRod0tB4mg
cOCOtsBuHtadG9U2R+yIkMf74zvfsSXcMnHDo9ONCAJR5bY5hovItTMIdrhE
hLE+IfKqnX9xl05umksUEdYevMl85j6PE8/P4mAiEZZ1sdOG4//gYyHVpjOp
RNh1AUSba37j78GkvxdYRNjCehplcWwOmVY2pJlaIuzc0VVJzplFy3Kiiu9X
IhiIr/37kTiLWY9CDwX9+teHT+7JgaEZrCGHDgjxkCCYzJ+fbjmD3Ds3g56t
JYHKUNP+/MpplA4IyahQJcH+XC3zO+VTqDt9Y7e1DgliNPeQj+ybwsMeN9oH
dpNAv6WvtLH5F4bZXV8l6ECCC8ZSToaLk/iiKfhJkgcJFgpShqMeTmKpabDO
+iskMPbfmaG6dRKn9a85m98jgWS0rp5eyASekAli3a8hwXtHcRHirXH0vxdo
o/aVBMu9oqNezIxhwtrA8bdcEpjJCJiFnh7D2r/+0t+WkcG0NHdA+sQoDlzy
zz0vRAaz7yonzHpHkHf8iskyGTKEtc4HsN1GcMs3P1/FLWTYmmv5pzh4GC2s
/YQK9pCheatsbQN5GM9xfJl7LcgA1x/fc3s1hCmll5vcz5FhldDZ2ovfBpHw
5JJWdgoZeH4GucyfGUB1sUuVu3LI4D4XsMgjOoBG0Rftm5AMfnIG/RfLuRhw
1Ttitv1ffj07CVQuDjpcGNxOFIY8b5oZ908f8rV5Xq2XFYYDnXJn6/P7UPaQ
p6ijhjCc+JXP8fPqQ0s4bxiyVxj846Ri6id+IIty9umnQGHgd0+taV3qxY4H
Hrp2d4Qhq/KkjkxlL/5H8OCMPRAG22xSYHZ0L2osO7NAyBMGQ8K41UPFXnzQ
42ZrMywMntbqcYZ2PXj+uTOhz1oEKppu2KT9141Rfg+Tok6KwGi6dUJ4ejdm
HuKobvUUAY8981Vsx24cX9TdGRUuAk4GnTc2N35Dj2OCXlvei4Cm+/3Kn2Vd
GKENi71VIiBBI0ZVXuvCDIFLtyObReD4c+KOt9CFI4XfnveOi0As/xSh6UMn
ugvnfImQFwWj0jQipaUDb49wHXTXi0L4nO4SObkD08qlRnv0RMG0M/fHT+cO
HPK8ya9rKQqW1a85+2bb0a3OdnNPqChwaLyis0rt6Bq6lLB5VBQqpk6e3Zra
hqHHNyl8nxOFdaK1U+evtCFz0+k3t5eLATOmc53xgTbs722s7JYVg29jA+H1
s63ovIM5F24uBiYzq+17zVvRac706LcCMTCsd7sSK9eC1+uDuWEfxMB0k1nW
lflmfM4s8KI3iIG0TspIa2sz9lhS7oQNicHC8cy0wZhmPJE99U5bWhws9Q41
qgo2o717osytYHH4YBDQ5ktowvmvApzJSHHwcvpqcmTqCz7Y5xdklygObnZR
nMiWL/hZ1bZ7Y+4/fm6T+1jyFzQcEHnW2ScO21zu7XfU+oJqzjGK2sYSYFQ1
LLXiZCOyv/A0J1lKwKNt/CpRJo3otNvz5kpHCfChMuattRsxiXqQ2+knAeHu
7BWpvI24rmfNy1vpEiA8mDagxPyM08fD1LvWScIVLyHXttkGvFs327FXShJY
MiVPlnobUHP7qYgcFUnQdqM0HeE0oKu00dgtkIRdCtLGKYwG/NrO90bbSxIS
N8h0BFo3YKnNVe2wZklIST1Pdw6ux3Bzn630JCkI+rWYYuxah7G1NI+MV1JQ
pBo5aG5Yh0l7ux8rFUpBYrXA/lfUOszabswv3igFDy4Yg8H3WmxTk6xfWCkN
JsnTxX32tajKW+rM9paGjOLXqYdO16B2oNf9HcHSQGtf1Vi5vwb155Q/FUVJ
w4FVvMeD1tfgofHoDemvpGFjT8IZ5vQnvNzu+Ce6Wxoc4wX46258QnbO8rtH
9stATLQg+UtGNTZovi1vtJWBvkMlcwOx1dj+8tzMflcZ8Agp/6vlV43jj1uP
GgTLgMDchxk7o2oUvfNKSaFQBm4eTCGv+VGFLifN3o1SZUHnwFVJE6Uq5Be+
x736Rxbsp/JNKqvZSBoPWkdaKQePA7x0CgvYKF/lppNCloPhF+qj7BdsNAjQ
D63SkANqWoyfYRAb/fp+KBEd5KCLyMx6s4mN43naLs8/yMEk7fKRFakfcZQ2
eMHJiAL2Tl8ffX9SgdNiXTfTTSkQm1m5uPNuBc7zNz6cPkyBG1ed595eq8DV
3e/KQh0o0CKh2fHLsQJV4qKJ6b4UMPi5LueiUgU6zetkT6VRIDz2ofq9rA/Y
WnNzIkRIHlqMBKsEWsox3iB5j5WoPBwN0ZEdrizHw9l5iUoy8qAbWhrbXVyO
nIQfhmyaPEROhkoKPC5HtuPOhyuN5KH6bWaS+alyLJhd2Hk7QB7oBRXtMX/L
MEHhYlz0kDyINGTG5eqWoWXCnUGHCXmgaJ9t6FcvQ5LAi+1as//+OVhuVKWU
YdT454EGfiqcyu/p6FxVhqHFG/RJFCpwuvTNeDtY6HNwpC/emgqZBkvB1Oss
tPJ30kn8QIU9Gi9efstHTEgWXjFbTYUD504dUn+B2ILsZosGKpTlp/2OvIto
za9+aW0XFdyllxfEn0G0jZzKvfYfFbqsBd+8oCIefRKy8ZSaAsy89glNjS/F
Ex+YGpuiFWCYqhNofasEn/bbLty9pwDjhpwE2csl2LNSsHbskQLUdnlcnnMt
QSfT82dSXyrA5JS5RI9RCZ5s1k2TLFeA5sXY0usrS9B1oEpl2YwCZKpdM/t5
5z16CI5QOUcVoe2hl0rh03c44veWX9BREUwESjbXxL5D98Fw7t5TisAkFxmO
hbzDUx9V08q8FSHfNI5w7PQ7dLrqujE/QhESEmqlOrTf4ZGpnh1JpYpg69vo
fKzqLRp1tNm5U5XAUMD8fetCMcqlsxNWDCvBvs0mtJVhRWj5pKj404QS2B+u
k5YLKMLbcWmdUbNKwJi++mCXZxFO+0dRxZYrQ2dvymC6bRF+MrXOVKEow2f1
PXIraEXoM97/0dhaGQTSbnI/cQqxbuPymdvlyrCMT4erTilE/6LdFkKPVGBR
zUH8cHc+ats1TDg8U4E/h972+rfk4/CSXVRWqgrE8ylwMury8ehen2rzPBWg
RBX0K7zPR72Wlzvi61TAJ0GS5vowH+em1mpI8KjC4K3LH+lW+eizoY1fwUUV
9hs/anz3OQ89mR4FOhvUQHXuVudQZy5+q5e6t05HDTJkNcj8zblo9vuTN1df
DSIeEaIV63KRZqq2McFEDcTWfNniW5KLfZP96TMuamDZYxt6+nEu2mx3eJaX
pAawrQzPOuaiQZN5hPZqGqzYsf1R7UgOruHVdVrfTwOLdidSCCEHiy/zWXBH
aJCxzXyl5OocdB2r3/34Fw2KS4vD8vhykNXmprSORx0oKzJkZv/LRu83iYNj
kupAKr60OqcrG9vtFs+9PqQOjRvd2v6kZ+PLwo/+Gu/VwdzIpr1ofzbuOWt5
jxanAUmi12wWE7JQvFjm/B7F9TDjdebnaFMmxnqFxWi1boCwaeM1vs8z8HDo
Qc3kAi1o4XC76V/TkHYsxColcCNod5gekzZ7hS1cgedxVtqw08m7bLY+FTlO
/TtJcnTIPBi3Oi2WiT38qXP3qHTQI/ev94hk4jTT7Y2EMh1U1ZrLtMKYKDEy
Ii2vSYc5EkejLJCJzt6/Zjdso0PoC9rgohsT/9xYem1mQ4ciubbg0R1MVGZI
SIZH06EhifM75CcDt+7taFgTR4eo0ctVMcMMNB1KunU3gQ4p/mGNT/sZeEGT
MnM/mQ4lMm2xHzsY+D5fuYGZTgdijEmiWhUDD7PpoRWVdOARZPgdfcZAF7cZ
feMaOiQHZpreTmKg7+rCqRoOHcpvJO1+f5+ByQf0HL8002GrqPd95SgGDraA
fu8POmgFub8R9mfgH1/eKZcBOiyv/Oln5cPAtVIVr4aG6bC6jXz8wQUGajvs
FZucpANhIeOUohsD9ywT4Fyc+bd/wSHi7EkG2r74FDI3RweSp3pFkT0D3fdE
bAtY+Mezc9auOMrAwAGzX0tLdCilPDhlZcXA/wHncNht
         "]], 
        LineBox[{{4.006839567028663, 50.}, {4.009832433921395, -50.}}]},
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`2\\/\\(3\\\\ \\(\\((4 - \
x)\\)\\)\\)\\)\"", 
        StringForm["`1` = `2`", "y", Rational[2, 3]/(4 - $CellContext`x)], 
        Editable -> False]],
      Annotation[#, 
       StringForm["`1` = `2`", "y", Rational[2, 3]/(4 - $CellContext`x)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], LineBox[{{4, -100}, {4, 100}}]}},
   AspectRatio->Automatic,
   Axes->True,
   Frame->False,
   GridLines->FrontEndValueCache[
    analyse`grids, {{-2., -1., 0., 1., 2., 3., 4., 5., 6., 7., 
     8.}, {-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}}],
   GridLinesStyle->Directive[
     GrayLevel[0.85], 
     Dashing[{0, Small}]],
   PlotLabel->None,
   PlotRange->{{-2, 8}, {-5, 5}},
   Prolog->{{
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{-2., 0.}, {8., 0.}}]}, {
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{0., -5.}, {0., 5.}}]}},
   Ticks->FrontEndValueCache[analyse`ticks, {{{-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]}, {6., 
        FormBox["6", TraditionalForm]}, {7., 
        FormBox["7", TraditionalForm]}, {8., 
        FormBox["8", 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.4859165028594007`*^9, 3.485916515884049*^9}}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{318, Automatic}, {Automatic, 173}},
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, 107, 1, 44, "Section"],
Cell[CellGroupData[{
Cell[699, 27, 386, 10, 46, "Print"],
Cell[1088, 39, 239, 5, 24, "Print"],
Cell[1330, 46, 602, 15, 24, "Print"],
Cell[1935, 63, 433, 12, 46, "Print"],
Cell[2371, 77, 218, 5, 24, "Print"],
Cell[2592, 84, 455, 14, 66, "Print"],
Cell[3050, 100, 231, 5, 24, "Print"],
Cell[3284, 107, 2583, 44, 90, "Print"],
Cell[5870, 153, 309, 6, 24, "Print"],
Cell[6182, 161, 657, 11, 46, "Print"],
Cell[6842, 174, 606, 11, 46, "Print"],
Cell[7451, 187, 362, 8, 24, "Print"],
Cell[7816, 197, 234, 5, 24, "Print"],
Cell[8053, 204, 155, 2, 24, "Print"],
Cell[8211, 208, 316, 7, 44, "Print"],
Cell[8530, 217, 219, 5, 24, "Print"],
Cell[8752, 224, 424, 11, 48, "Print"],
Cell[9179, 237, 668, 21, 100, "Print"],
Cell[9850, 260, 222, 5, 24, "Print"],
Cell[10075, 267, 454, 12, 48, "Print"],
Cell[10532, 281, 696, 22, 100, "Print"],
Cell[11231, 305, 236, 5, 24, "Print"],
Cell[11470, 312, 886, 22, 132, "Print"],
Cell[12359, 336, 219, 5, 24, "Print"]
}, Open  ]],
Cell[12593, 344, 13149, 250, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)