(* 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[     26202,        634]
NotebookOptionsPosition[     24917,        592]
NotebookOutlinePosition[     25259,        607]
CellTagsIndexPosition[     25216,        604]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 04", "Section",
 CellChangeTimes->{{3.485916059244735*^9, 3.4859160623995037`*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 3}, {20, 3}}],
       RowBox[{"y", "\[LongEqual]", "3"}]],
      Annotation[#, $CellContext`y == 3, "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 3}, {20, 3}}],
       RowBox[{"y", "\[LongEqual]", "3"}]],
      Annotation[#, $CellContext`y == 3, "Tooltip"]& ]}, {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 
         NCache[
          Rational[2, 3], 0.6666666666666666]], Thickness[Medium], 
        LineBox[CompressedData["
1:eJwd1gk0lc3/APDrLs+15toiJKFkTUiUmgmRJUmFpJTiTSTZsiVFtnZKISES
kiWv9Y1nStaUsoRkK137dsnluq7f/f/nnDlzPmdmvuc72zmz2eWyrSuRQCD8
4tb/a6+NHGKsremgqScLlaMvqJAesv5vL1sHXSgW8url2po2wCxf1kGa/Sfk
vnAtb+C9enleB+lORPqWcP0hLp53kK6DBBnMmWtc82p2yaHPOmjiwcB2Ua4f
+Z2xDE/RQeyEOXxXBhW+5vHNIuzSQQWfER6QRoUUVzPtDae00XzCSXQphQrF
uus8XzzcgWDXGXGHJ1RoW5t8TqVZC112PSHAk0CFITN7PR/83o5mSBbV/Xep
sOJq8sXCw5qoyUTSJi2Gm2/8cXlOkjp69oeV7HSTCs1Sq60PTqqiM6k15XEh
VJjdEPTd96QKSq4y0w72o8LTkY8kWnOUkZA2rWLMgwrDzpAKBMS2otz1+QZj
LlRI0NiEG99SQkqt3QMLDlT443ZS9OtOBfT57ZeUNCsqlOW/kLtgtBkl0lf5
HQEVeuxUpfTKbkJnbl3/fleTCn0ola8ChDchWhGgmnId3GlmIUrchOTOFGMc
DSqM83e9bz4ih/Jf9Hlf4jqvNH1DRbEcComqmDRXp8KxnZKaj03lkI7YzWPL
KlT4jx7Z/rD3RlQ1b+WqtYUKz+3qz6mtlUE5zrQohjQVuuXssjMtl0FV/wld
esH1xQ0PSU15Mgh7wZCx5dp7xfj0l4cyKL0o6mvRBioMxXPFepxlUKPA4Xse
UtzzMvMPm16RRl+DiMrfJaiw3l7w2AZdadSuWS0cRqNC1cDda15ZUuiT1LnH
fBQqRH3Wqr8TpdAP7QiTDDIV2hmfO24fK4VSKuuf6XN9c92d18BLCqm+Jpu5
kaiwJ6vPnqYvhba5WgVU81BhzLfwouJPkkihQanPkYNBumrD2QXGeuRTrnXH
monBjL6jH4P2SyD3UOs09ggGtYe1WR26EkhEYcwtguuP4yJaWtsk0KPus3V8
XNOZrSn0dRKoIbrRRIKOQVVRK9+jP8VRIdLZpzyMwbemJgoaV8VRmUrqc71B
7vxC3fDBfDFEtJBe5nRh8HiZWNmedDFU3PDp+lWu6e8YE4kJYsipwyhu5jsG
eZuL7A8FiyG77Hbl/k4MHhpW315lJoZI84E+pe0Y/C61pT/hlyi6HO2Wa9mK
wZEbEoZmUqIoptjFV6Qeg/zXCmcS+EXRjxY3C886DGoGmmcOskWQiqSZb/1H
DAZ4XeMPHhJB8WSLssBaDGIn/3Tn54kg6uunvzoQBpV0S/1F94qgKp0b3y/+
h0EX+rHCvrM0VHmCWk4uwmDU0LSL6jEaUv2xLsKsEIN5P2PWXzWlIX7pqKDY
Agwy2t5do6nR0CUxyUH+NxgkXjd/GjUqjFDTUQ9SHgbBjrFvR4SEkfi9UrXm
TAxWPd52YNROCO0zClPITOSu/+TIOR5DIUSbuWrQ8hiDdvLZN6U3CyG7JAOb
hUfc+HmKyGpCEAnf+u2/PwGDKkhuT/F1QSR5N9Kr9T4Gn46L7wjOEUCxT5FH
RQwG/QHPRkEWH2LXfrYqCsLgBzLas2WADy0VrEaXBmKQ1hzmuO8jHwrTVgyv
vIrB/GPsJ973+ND52Bup1f4YHHZninYq8CFJxSjTsisYtH00xfvckhcxapMF
/nHHoNZYz8L2VAw57tpc+tYeg36zGiqSkRji65/a89wOgxXMG6c4FzGk3n/z
RMxxDO7HVOtb9DFkUzdyyOEoN55i8BP3DgpyltNooVtz8z0lvTtTgIIMbk/E
/neAuz/fHK+vDyahtcYdBRraGOR0F5SsniEhxekwMboWBo0GiaPDZiQUU1qe
/Ww7Bj9N59mUSJBQgrulGVkDgz8FVjbbFBNRHnEjT7UyBtcOpHyMHeVBPkLZ
xV9lMWhS1cu3akdAm6wHtc5SMFiQ99KgYQ8B9Yp33ColYVAq5bL7Q3kCeiPr
iFGJ3PvHxOItO9bwdfoqlzI4FLglxI6WyuLgmqlFPCVMCvxw468gNFvFWWPZ
XkZjFJjoEuvZQVvFZ5U0f7mOUKC78caWCz/YOAs58UT9oUAa5cDth5fYeHHr
v3LvhijQOeYR3++EFVwjE7ZxeiiQfU8Hixpcxo0Oy8R3NlHg18sNrtJ5y7jz
66j9eAMFZtqcrCvwXcYtu0rYWXUUaCEaEdmFLeNVvQLu599TYNLjNqKKxhL+
oV2xvbiCAvWeXVn7FLSIe1vFbwrNpkDv3MIlEbF5vKxh9dylMArUWucVYTTI
wO90Gr2cDKHAOR/1db5vGPhdn4IhtyAK9DHMVewwY+DMt7LCVn4U6N/6wjox
dA4/bpUR2eVOgfPjauY7W2bwMA2q0fBRCvT7N+d0otsM7nqy/7bAEQpcvLbF
j0mYwb/019eoW1PgEm1TWuXOadxYYfmB00HuevVE/+5Nm8TJlrr5lw0pEItY
Sjf1GcMfcF5V2ChSYLSVf9krwTEcDvMmC8pTIO96xifeV6P4NYl7HCRLgfy5
E4vNvSO4I1NyTHQ9BQq39lsdPkDH5e4MH3HgpUApmbole6nf+Ob29u02E2Ro
56aY0Rbag4f/FXvDn0eGcVd8Y+JLu/Fmfhn/opdkWB1ae9l2ugtX08xqs8gg
Q6WEc/vanL/jCczyp05PyZCBZ/Z+M2rHM6xuK83cIkM5nYPqL0SacYf3ZI/M
02R4y3yUtTmiEQ/b57k15AQZTjrHNGUs1OMVD0u2mBwjw6o7jW4ZXbX4c5r3
bI45Gb5peWi0f89/eFnN1D9lOmQ4+zTp/FzSTTyn74F0BpkMQ4mP6kz13UGL
g+1PDw4JaiafaxDXuw9Oj9ooKS6R4FGd7ndR+7PAMfWh9uMTJHjFzWPs46My
cKBWhvr+KwkSCKVr52oaQHJLfLfNExJMGhPfMWzVBFrK/XRL7pOgdrufy/ne
ZsBqlBdbiSbB89m6deeXPgNdB89tBoFcb3Ws097QBiwMX9w4bU+CDS09cTpH
uwG76cOXamESvBD4o+GkWg+4etAdOFFIkFeplxxJ+gHCLnwp+MIiQouQn2Ed
Jb1gKbxBUu0PEbaoDPj4iw+ARcOhxvRyIvTsHChMnRwAUa0qCjWviTAKei+6
uAwCRv3fqJdpRKg86a1ze/cQSN8yn9wSRYQXjH3e9I7/Ap7YCOOwLRHqJzE+
zdj9BumuPcR4EyLknfEZJ9X+BlslPKYe6BFhbrKvsnrKMPht+DikegMRjs/5
ZYRa0kHGnWDVxJ880DP96uON+WNAP6G7T9aWBxouMkt2SI2DtMiIKBHAAwWt
AtsORI6D6XwTp6dqPPANM1DYy2kCZJZedz5E4oHT1sGxNYJTIG2DnfZgPgHW
ZLFetQVOgYCq1GrGYwK8xwqupw9PgeR3Jsu+YQS4PTuEJFw9DeQy8p3zDxFg
RVhNTaHeLBC3mG2Nb1wD6bmcz5Wes2Beo3DX4QdrIKZjX1/ti1lg/Fr5+3W7
NeCgiq90rZsD0ReuPmf1cQA8vsb/y2QOIMl7HfJpHLAtHEhPBs8B80hxPd/T
HLDciesTRubAVOWkx8GuVcD9px7k38gAEs8KsecPVkGzGrQXP8oAmrKmynVm
qyD5BvLfhjNA0H1Fw42FbLBb4/1bmyfzgJJQ25F5egXs7PieWNM0D6KarDx9
+FaAVshksDp7HoisBvb7F7PA1iZJY96zC+CQqOqP2KVlsNlbQzkgYQGoChFd
LJ8sA1lJY4HhugWQ+zPAJlN7GYi5erXjqn9B1j4PZH96CawTjCzXOPUXqC1M
brSaZgL+kqSUlPt/QWNP+AwlmAkIPHXnri78BeGexpqfIhbB5DOZBc2aRXCY
x3y/v8MCGDHe0f1sdhFYV7xbiq6ZB7/GTd/xKzJB3CVEq904D3r0fSLp0UzA
iogPbqqbAx0D0ReOVTHBt3r1vRFCc+BrVKrVh0kmKOv+cRFYzYL6jkbx50eW
wPm9Mlf+2k+B9yH9SwKRS0BefEW1LXECvFNY+BlUtgTSj55JdqseA+VNfO9H
RpfAg7nB5/lNI+Ct96aXx2WWgUnE+n6Xyj/gjeTO2NpDyyA93UeIHPcb5NRY
XNoRvgxiksOz3+kPgTTBgJ1Cf5aBlJOGerZpN0guub0hRJIFBocpd2mFbSDR
MWN11JwFCEr65b7uTeAhT/mQXSgLnFE0GdTWrQR3clrqPhZw+8VHb5ZH3MSj
D//K1R5iARRAdVWfx/Gbi8y76WIroGhgdTqM1YoHmijahQaugA7v/o4T/EO4
74T+7vG8FVAxpziurEnHveKt5Rz6VsBssrvPkdYJ/KLBeWK9MBt0Dw9N2RLm
cNfBILqOERv4semn/D0X8DPR95sz/NiA4D72lWWwhDtpviwQfsUdrxRSKh7M
xu07q+Kv9bBB2ejdXPkMArIN/RowIbAKCuhDfn12JHRIke54Yt8quCdlLvfh
MoYONq/sa/BeBYkjEa9LiPzI+IqI4s7MVXBnKI5poLkO7ZNSpmZ2rgKH58kX
2XdFkAFuOEHj5YB+qBi9KUIc6brZtobt5oDzp6zdXspLIS2hCyWTnhzg0PfF
9/1LWaT277Unjtx381UskEHfvRltPZkQ0viNA7IsjyTtltmCFIi5znrkNfDW
y9BUKFYVbcytMc7SWwPZDq4bIux3ICmbDmVR9zVwUHb5cZCiPhJjjgmEp6wB
38Xz2l8GjZDWXZv3cXlrgPD/xRz9D6ACtvM=
         "]], LineBox[CompressedData["
1:eJwd1wk01c3/B3DLvdzvXbiu/drFJUS5UijeEuUJbZQocknPox49JFGWVkpK
EiWEslQUSag8SosUlSxJQiJLJMu1pJ78vv//nDNnzuvMnDNnPvOZOTNagj0b
doiJiIh0kvX/2m3PglT9TEQg8v/FER7bbzRWmImAusgv1HR4JUr+sHnBXCeC
oqzIhiPJy0Bf3Pxw+y4RVGT6/JnDMYdA46+y0hgRpNq6CBXNTHGf+F1IuyIC
fcrArk2rTMARnru69V8RJDdPWu3KNkRAp96l4vciqBS1WMvu18fj2sqzFKEI
7PJ7BjRf8MC9sz7WXVoUg/ETHh5KugjO6IssNBCF+JN9P56VzcPL2IMhIg6i
aEu8ohd+Vhvawexdrj6ieCHzpLDkghYObM31uRYhit6kzoicx5podLB0/3VB
FGGFtWwtuiYMFr1xWXdHFEcvmqWdfauOoyp+9jmvyfmusg78LlXDR+oPq5lB
UXxbd6XaoEIVZqOnTZ2oYjgv7IxlvVNB/Aft+VmaYrjkyBZk01XQ+7RcQ2gl
BtuixKu5G7hYVuSksHqzGIRBkkeCCpRxPrWbmR4sBr5/+lQjRxnDR0PFR0+L
QUFo9m0yRgkrAxmzdtfFYGRzZfd6CSWku2eNXngqhlZvKZXUBEUIVyzuH+oS
Q0f7gV+3tRThtOBlh81PMVxudUi//kABOYrezUkK4tDNnmAUbVXAL1Hhy/5F
4jjeuNORRVGA6/CJaitncUz5uT7g3ZYHpbrkVs9RcTRapyWEcOWxtWBV7pJM
cWS9GRN51iKH0uSPaafui6PQ9oktJVkOfgESJ/lj4rix3oCgqcuh0jUtOpZJ
gcRE5SnrflnI2SwMbdejIETm9GX7O7J4Juvhe9SLgmU/xUzHN8hC/ffIltZw
CrpjO69b8mQROnB0nWEyBRaPhvde/MkB79+by5vqKCjPtTxNLeQgKn+FmV4/
BRGRuX4tMRy8S2w1OChGRcn6XZOWvhzE+IsqzbOgoq2oqdpXk4POdSlS+12p
KFu5cemsCAfmVobUuj1U6P53P7z+swz6pN3Gg/Oo4OU/ePrxugysZwcHaqqp
OCR9b+PsGRmk9EZ1cTuo8FI6cYCzTwYO967VP5aVwMJsw3//s5PB5avLnyiY
SCDrhWd5hZEMpk433gv4QwJvLMI6lyvIIE/wK49zWAKPusa6o4bYkGSuOywY
kUDtth8e/RlsuOt5PDInJPFzSibDKZ6NGyv85ug6kuCm2eibH2TDJTws8s4W
SdzyL98f7cFGSl9WOOWZJJKyGnO2qbMxIFpQ8b5LEt9651a7sdmwVLs7XTgr
iTGTgT8KxNjo3Phin9tCGl4VFzY9b5AGr3osKC+NhiPSNhLue6QR9vFn8YEy
GhyvVqntdZfGy2nqqMtbGkKMu2KUV0gj0JgbOC1BgG3l8kWoII2ytBUBq4MJ
5Hz5QgmokQKt3Om66mkCmlMsruCOFDwaNw2M5hOgeP4x+iRLCr9pu/xTOwjY
vvrkVx4hBfvQJMHX1XQM6f2qlrCQQkpiRnaVLx3Fi1sUJ/WlMFCY/+lcFB1f
DAdTFitLIb7ngZdVKR2ztxL/ujrLQvO6Xo94DQY+hQX2TTxigbd7JHW7JQN5
zu3rze6wEBY7897MjYFS2cyWu7ksqFYxN3fEMWAzL1pq3ykW/AwXbzSeYuBE
8WNu2RYWyhxszonJMPH6kmFWgzMLNIHj23eGTKR3dl/QWMFC4cVta6N9mFiZ
vzPOzZAFITVmTUM9EyrUQ1d+zzFx9NM7u+CrLOSeSZpyuc1E5701f4dVsrDC
f2r/42tMWCY9SolqYeGld1OfaxYTo/Y3BuMkpfC5TmS6KYEJr4LIhKu7pOD9
IuXx/H/I8aE67c18aXisvLqqYjETKWtTKe1O0kh0lstuMWZiTF/KuHuHNEKq
b3oS+kxca58+9O2CNHKP+9iXcJlQsK3jSfySxtJrF+/+FmHiB9XinoqAjeOc
n+YL35JxCp54dTmQjTcr3BbH1DHg2nXzsxaZZ6rWCl+HnzFQXKHN1D/Pxqq1
ThuG7jPgv4vpbVbDhlnbyvCcXAaaG7oozgYyKG3S6nkTSY5Pi1kXNS6D2+UG
saeWMFAnG9MvTZ6zWhl3VWM+A32njkdlszig1baGfzRmQDXiWOFTfQ7y6dMN
njxyH7YeoTG8Obh9ruNnlzwD29WiHl2o48Dr0qmzbVN0HEyO3Dy/jYPmpcQu
nQk6UliRI/f7OGAErj0U9p2O+v8OqnaKkveM661GqwE6lnaGh+kslcXdUq1o
ww90sDP3LbydI4vDTokLzz+kw1Bx3/MVJbLIXPJ11reSDoeEEK/mh7IYbtun
bXWPjojovfHTH2RRESiqM1dCx4B30MByGTnUHntj355HxyPNv7NeRsqhashB
siGBjj1X/Ni9m+TxbXbldXV/Os6Ep6af8ZXH+LILxW1kXt9a91rf4h95zAwp
zF30oWPk9xLbMyflcVErxVZnGx27PRnBSyvlUb+VUNjtSkeAXElTvJYCfJOz
15fb0eEfM5eyeFgB15pVdk/p0BGzzWzepxmyX91bjDePjjyzv4riqIrIs3mb
765FnpvPjc+71BWx3euw6HM1Ovxs8mZOrlcEPLeqP1egQzDj5NFZpghdJD10
IejwCrikFntYCY4plw1cRgn8bCNej51WQqy77GDbCIGLjuFRWy8p4abRxuad
3wi81XfvWnRHCZ5m9WpxXwms7JfP/tirhFtpQ9P9vQTm+yXqmK5WBtPt7RvK
BwLCbScMO6S40Pzu25L7jMDZV9Ptq1S4yE0L/zfwKYEFy3fGl+hxwVqguNbi
CQF/VYdvseCi1cDdp+kRgbYP4kWmwVzIOwt7uZUEqjZHm55o4aI/fWeGsITA
yfWhFvx0FRhmb9KuyiZwrt5gd+F1FWztHvmcmUUgfVXXZd1yFWx8/tTgaCaB
4uWrKUqNKqArlti5ZBB4P5/75pekKl5t0bGfukhAX6zKr2avKr5dc5uMO0ug
poR6dssaNRwq16CVHiLQsOD+40Z3NXhJnV9aHU3gw7XAyTX+aqhXfXHpTRSB
kcutHtaH1eBw+cDQ9wgCCqeu684rV8PZ3s2HrMMJ7PB1fjCsrY7pqdB0GfIe
pcgl90XPqqMoLfb5YT8CnJEoKY6kBj7zZvQf+hLQqv3TPEdWAx/fBXn9JyBg
HbEsptZIA4dCVBHhQyC8t0dXxlsD4uX8e0e9yPlLTXdceaKBD8tqBBXuBIYN
BoIEDppg5OzRLHYm90Ox43iBkyby+l6kUkn/pDSmCjdo4p6zfLWnEwF614Pq
GG9NfON7ytPXENBLSpApCNOE75hyReBqAoKf5rcnbmiioeU+bbMdgda646PH
pLVQRDg6Z1gQOG+dYe+moAVujwl1dimBDbdLL+mqaaHW+6n/ZtKvU3pW1hho
oSf5vbbcEjK+Prapkg5aaD3lKkg2I1A2/cs2LkIL7vIx2mUmBFLmhSQlDGqh
OGCpUQCPgNtBgfmlJ9q4cMtSJ1Ce7M+Qk5h+oY3H+c21U3IE3j2sadnYQLpx
sima9CaK4T5WhzZk5B6qJMkScD89cefQlDYepC7xrZIh4JF5bNHO+fPg8r1T
oCdFYPuTPCOzhHkYeHDgvY0kgd2MIe3XHjqIEpzLCp6lYSj8PoXho4Nnzlwb
WdIBAyf7Vu3Uwd/fjXilP2jY+Uz/RvVeHag5XqufmqFBEO2/6G68Dhz5zODo
aRq2THTbpFfpoDKi6n2GkAaH9vdbA7R1MR6+Zo75nQaNgpoUia+6mAoXbsnt
pcE1s+Ley1Fd3GTEq68lHZd04+OZadJ2Cjo/emgQHjyjrUjlwU6sc9SZ9Eun
Tbf0NHnw09pwcrabhtCRL89Wb+Ihf0Pffu8u8h2wiDoZ95gHFj0saNMHGg5W
2G2UTtMDK3rcfKiBhn/ydpeZm8zHo4vDEVuqaWCKLREYfzFAfFV3R18JDfZ/
uyYbJBlB+DkxuzCPBqV7anvsdYzxV/wRu6J0Gs4Fn0hc2GoCmnF6kkYSDRti
1i7IKFsI+SvMmEWnaDDwPOaWE7kIenHLdRcfo+FdH3Elyc0UXiZFO3wiaXgt
+GLL0eCDudDofcZ+Grop+TPJ2nwEjYesPU5amPdnkTKPj0fs+obdpJWHhlS1
FvChXhw/ZkXab+/4tIkVH58rC258CKVh9ujcTefNfBTul51SJs3LVeaeTOBj
716V2swQGixWtTcwk/iIrEjZd4K002B67NkUPnTk/IyCSAct0Jy8kMFHUVXn
3RWkK+/yGvIK+JjKqVjSt5dcXw0/5ulzPjwt+ePGpHf8OblsdR0fcolWpkqk
w+jlE3Wv+Vhebn1QlHSGi6VPUwsfIuaa+s3BNAy8w7LPPXw8tKscDic9GyY2
saOfjwFryRBf0iyVp9cHv/JR+Z82xZm0qfcqxbExPlKkKqw1SduLEq9DJvlo
l9IbJEi7X315bGaGD2uTDekTQWR+2sdbRfzik/8VM/cO0pH9zuNzc3xwt9Sq
Pif9P9+ryv8=
         "]], 
        LineBox[{{1.9878065792194937`, -50.}, {1.987913632458077, 50.}}]},
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`\\(3 - 1\\/\\(2 - x\\)\\)\\)\"", 
        StringForm["`1` = `2`", "y", 3 - (2 - $CellContext`x)^(-1)], Editable -> 
        False]],
      Annotation[#, 
       StringForm["`1` = `2`", "y", 3 - (2 - $CellContext`x)^(-1)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], LineBox[{{2, -100}, {2, 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.485916051678834*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{36, Automatic}, {Automatic, 84}},
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, 328, 9, 44, "Print"],
Cell[1030, 38, 215, 5, 24, "Print"],
Cell[1248, 45, 576, 15, 24, "Print"],
Cell[1827, 62, 371, 10, 44, "Print"],
Cell[2201, 74, 194, 5, 24, "Print"],
Cell[2398, 81, 450, 14, 72, "Print"],
Cell[2851, 97, 205, 5, 24, "Print"],
Cell[3059, 104, 2400, 40, 90, "Print"],
Cell[5462, 146, 288, 6, 24, "Print"],
Cell[5753, 154, 609, 11, 44, "Print"],
Cell[6365, 167, 559, 11, 44, "Print"],
Cell[6927, 180, 338, 8, 24, "Print"],
Cell[7268, 190, 210, 5, 24, "Print"],
Cell[7481, 197, 604, 13, 44, "Print"],
Cell[8088, 212, 292, 7, 43, "Print"],
Cell[8383, 221, 195, 5, 24, "Print"],
Cell[8581, 228, 387, 11, 48, "Print"],
Cell[8971, 241, 609, 20, 98, "Print"],
Cell[9583, 263, 198, 5, 24, "Print"],
Cell[9784, 270, 362, 10, 48, "Print"],
Cell[10149, 282, 584, 19, 98, "Print"],
Cell[10736, 303, 212, 5, 24, "Print"],
Cell[10951, 310, 980, 24, 138, "Print"],
Cell[11934, 336, 197, 5, 24, "Print"]
}, Open  ]],
Cell[12146, 344, 12755, 245, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)