(* 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[     25996,        629]
NotebookOptionsPosition[     24711,        587]
NotebookOutlinePosition[     25053,        602]
CellTagsIndexPosition[     25010,        599]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 03", "Section",
 CellChangeTimes->{{3.485915947021246*^9, 3.48591595012512*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 1}, {20, 1}}],
       RowBox[{"y", "\[LongEqual]", "1"}]],
      Annotation[#, $CellContext`y == 1, "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     TagBox[
      TooltipBox[LineBox[{{-20, 1}, {20, 1}}],
       RowBox[{"y", "\[LongEqual]", "1"}]],
      Annotation[#, $CellContext`y == 1, "Tooltip"]& ]}, {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 
         NCache[
          Rational[2, 3], 0.6666666666666666]], Thickness[Medium], 
        LineBox[CompressedData["
1:eJwdlXk0Ffzzx2ULidu1U7IlZEmkUkyWiCRKVNoeJNRj37IliUiLLCH1FCKS
kixJPh/Zo7LGzc513c2Vm53y9fvNOXPmvP6Y95n54z0j7+R1/BInBwcHZS3/
r4ZPHGWvrurgqIjQJxPXWEAJFZ/tW9HBTtRhg9drbE0Ymi9f1MEKHi2tvmss
t8/7j9dvHVxiQij7E8yCz/EP+YYpOvjJjrBS4hrzafbI4q86+KYg+eK+QBYk
+188EvlYB7dyamlf82XBq3V+ORx7dDC1YXUYe7CA55L5Lqlzu3Bxt0b8r1Ms
EOmtv5qVqI0n/ftmu8xYcLw2w1n1y05cQvqwJ0qHBaFTBlcfjGnh8ktXG+I2
s6AiKMPjzTFN3O/5TxGLe23ehyfl/qarY2JO0+YM6iSYP/lkfZiphrMNeF7H
Nk9CbuO1H36OqphT4OWkTP4knI9OFvv+cjsWvv/JIfTGJERc5CraIKKMF8Vr
XH0cJoFDYysyuaWEVbQJ5WEqk/DzTnrsq24FfLZ+g+zTSSZsFnDLnzGWx/cj
u4tcXjPhfHVrgsIBeaxfrSO0p5AJz321vW12y+OyB46P+F4xQblvSa9wuzxW
fuavmP+SCVqFd+ucBeVxjUc4/3A2E4ytS4Y6uuXwi9/bDJUymOD+8K9YsZsc
1uodvbN6iwlXdqvx9G3eip86WA43nGGCL8+HvEDhrVhNPMrd6TQTQrrNLYmc
W7HBSY7RFQcmxAdcum8xIYtls6mPNU8yoaD0mVRFsSz2TX9JuHWMCbTdEpop
ZrLYMD5uZMWECZf1uB2OeW/BJ7q3dwqpM8F5z+DL2loZ/NSIrOGxwADXl3vs
zcplsKiMD7tzjgEeUolczQUy+MOOe4EHZhngvWxy/luiDK4tji3nZzMgDOWL
kC7I4DtER3YygwHJ5gERrGVp/FI0h311kAENDoJ2UrrS2MpTtF2ilgHNTZfW
ZW6Xxqf064LsaxjQug8VycpI4yrVZ/lJiAEdMr78SpzS2Mk5NY+/igFDQz3V
mm1SWFp3onfsPQMWLmerml6VwthR0+NYLgPUgvVXPXMksVOIsPNsLAPwgLXa
WKoktuk7bdtziwH2Js4nHeIksXMLh0H5TQZECSW8Ak9JbNg/zuFznQGknAEH
wl5JLOvoRGsJZMDt9si3xS0SWD1f9cnmSwygqDX+M8MWxwLp/54QObi274O+
BLdxcTyrv3WyyIABxLmp8v4ecRy1Wrn58H4GGNZICtVXiWNDTS4tPz0GpDh4
VKbEiGMVft/yV+oMMI3eKLJHWhxHjJssZ0ky4PnAibprRmK4PqD7w10WHXaR
dy116YphnpoqOieTDnX0TTt3qojhz/IBdwNodKDMf39MERLDQwrDkifIdFAj
Wvmd6BfFQz6PSCwSHd6ZmSpoBInilq25QS/q1vrf6EYOF4pgkX5B/ulHdDhZ
JlK2/5kIjn5bZi+YsqZXxWakJolg9b+TcUoP6cD35a3D0RARPEafSziSQIej
ZHWtSnMRnHn2daBfJB1+SG4bTBolYvfxuwbKbnSYuCF2wFySiDO2JJv/0qWD
QPibqSQBIv5yd6+PvTYdNIMtsodXNmF3T3HZCg06BHqGC4SMbMLiqw1D/yrT
gddxvLewYBNuG7ciZknQQUm3NIBosAnL7i2+tG2RBk4UuzcD/xDwoGCnm10F
DWJGWE5qdgTsxOsxJfmeBgX9t8WDzAjYRL3mU88bGrA7qsIJOwg4ki7MZZpH
A87rFmkxVGE8vfh1tDuFBqBNa7fdKIx7+zbLdvnQoDJF5RDVfiMO/Gl2uF+J
BnyOE87rDmzESUnO2tStNLCXy42Slt+I6Y+ZTKb0mn6BIrZiCGImvp45TKCB
KpbdX3xdEH/7vHOz1woV0uii2iEvN+DwwhW2VAcVAmDdFsElfnxORapeOYgK
n7nx/m1D/Lj5gXmHmg8VCF8izhjW8eN3Bn72265QodBu5ZH3PX58bPt6tz/n
qUB2nyd2K/DjMYGKLXvMqHA8eZLv6RE+3HRk0PAjkQo7aaQZrSe8OEVFiWWe
PQH+vzRUJaJ5MYXVd+5y5gRUzN8499eDF/PWu/mHpkyAEa9aQ+teXnzsBkPp
RuwEHFcMeeTexYNlbNUur3pMQMA5af3sDTy42li1rlBrAipdPD3j2dw4ea9f
Ep/KBPy98jnLh8SNIyWNJBzkJiAmxGPDwTxunCNS+LaFMAFpjyr7+4258aCN
r4HwNAUq289cFw/hwl1Gv14MFlHgb29RyZ+LXNj7xC5bu1wKGA9zUsnmXLiO
QDpU+YQCLawCmxIxLiy8M/OsfQIF+jcsy9sUc2LN9at2X9wosHrocV0cdR2e
k6oeCJKlgGllH/8few6cu/wxyj90HIoKXuxr3M+Ba+O+6L/wGgfJx17uiXIc
uEox79hH53H4Mc/78EjXKkoLklBKPTIO20LtCU+W/iLT3Q2qK1Lj8PnGrOBB
8z8oxC7HXbuYDKlOcVe7CH+QzbWW93HZZHA32dLq9nMF8ekaDeAUMhB4Dt1J
/HeNq/iHmq+R4cLtZP6xpGV0MCvj+96DZFi5p8MbM7yINqRpm4g0jEGbV+Ml
6YJFFN1oIiZTNgbZNo71RX6LKElvemHhxRhYEm9G9/AuosXEwtO6t8YgPaWD
U1VjAYUYNIWkGo2BXqbPasu1OeTUy/JyLh5d8xvPhYsmc0gotNQu8OkoDJxL
r54RnENuDzzFT9wZheitNeFbns0ixR8St1xdRqEzi7Di2TCDArIqNX6KjIJ3
/puFTSK/UZgJmyhweQR2CnneNB5mo2/IG9XbjsC0r7qQ32s2SviUKWVyYAR8
D+Qrdpmz0WlmdFQEYQQCvmdZp4ZNo8U7Fy/3lg7Db/oOi92tU4jO1fSUhzIE
/u9fnk91nULHPyQkJb4bgrnwbf7zHFNIfGTz3aCIIVggbP3vw24WipBZTzIV
HYIVPeKswX9MpCTQpBO7ZxB4by48M/OloUyNdBvv0/0QaxVQlidIQ65y312m
pPqBT5zdwpdHRae8JPPiSX0gkM+Y+9I3gdyOnznMad8Hwt8HrY4doiBDrmf8
riY/4UGao9PboXGklzgXtmeFBESn3qBNIePII/q221IJCURn27M6i8go+JTH
rgNyJJCUqV9wkBxDTZzyJYv0HkgnGwl9eDeK0v6S9LIyekC6qFpR+ugo0sv6
JsNr0QNbjCqs+2+MoKhPgV+Hn/8Ak2/2FjU/hlAY9VvRgnE32LsqPu8IIyHK
Gx5tH/0OiPfxu/2wtBcpvBm1zepsh09htV7HWT2olWEds+5KOyglORt2XPiB
6pY1mySS24CNsvvajTsR9XyshW3mV1Bu+f05MbQD2Yjn2ecUtcLpHyYFtu/b
EbdUmap3VQtg5lhw+7Y29F6dfwOjuRlkdQ6rZ236ggqFbr/2elkPtyyoS/I3
m5BpfPzMw4d1wLxwu/n5TAOyyb2lsxxYC5UJTa7Pe2qRS2yDwYhGDbxuTTQ2
2v8RVWzU7FjNrIDQxfahg7IVSCWE7JUrUAYWysTwg+tKUaStc1akewm0rCp5
Xb/3GnEoL6jGT7+CX2npLtPpUShy+vAnUa8oCONMrjfb6w4cCeVf9azckWaG
c6Oo3n3gYMzgj8X30Qmd3qoYoxyI3H+DS17iBfJxvUKrSy4DfOrxpXV1FShr
3w6r+uIPgF1VLz6/X4W6BBlF9d+qQGVGUWtaH6PM07v1naNrwObcxRXnI3WI
g6N01bm6EdJUpN+9V/6K0mmi2mSrZmjr6iZG3P6OdnX6O7n0fQEXw37TmL9t
yCVXt95l4SvIvZ/fwZvYif7cT54jx3yHhPWtenr0LtRyYCnpXXwbZMbsqKmw
/oFclM/U75LqgNuzrdJcB0hop4zAoO9wB7RZ9+zf0PAT/RGunHuX1wly+qIW
1HP9KHVRSkVHrxuulkQTlSuHUGMrKV7nRC+cv5LBTnw6htyCfzY67iCB25m9
QoxPZMSn1McdzfUTqJKPPATo48gytD+iq6QPcvOyGtWvUhFdeeDjyp1+CJan
JGnW0dCdjoEFJZcBKNjIGbOozkCtqkO+AWs+8xapDxTTY6Gr3UNvnjCH4Pi8
29fjpCkUc9B7zslpGDSLmoqfNP9C9qm/RIO+DUMBX1wE6d002s701rmjPwIe
A2L2HvlstGA0bftf7gjEOOqEhBf9Rk2PfLxLiKNQZqvw3qV2BrmZ+L7uo4+u
3f19iW0K82hvOrtlyn4M2JwzaVTvBcQ35Uvnqh2DyrOFCRt/LKJe0998klpk
KOyMnCq3W0b5GX7b1R+TwbWqjat6agWF/Pp96OD6cRCSf9x1qeAvsjTzd7Hz
G4cmYlOzgSkHpk/7Pw87svYnCnd8LL/IiSvNZ9GDcgqMNChkdiZx4fgnAYM5
ihOgddnnvA6ZG5/5PbtScX8CLJ0LA/fb8+IdFoEyX5cnwPds/z6DqfV45enc
vpHLVOBuMyutKOXHrTOBp2Y7qYBzohpLizfgTMv5QP6DNPhZejbfcHIjvvos
KGVLIQ3SRlU+39In4ANz8yXaknTQdXZp/1i4CQtaBXcciqbD/k+h7N8OIrj/
+cKv07/oUCTId8zXUgy/ng8W9jzLAEuLkw8LH0ngiKOLGlFNDPjZbhk4dkYa
W2dfs0rVZULrwExG8MctWHZx0aPg2Rpbpq8aL8lhlnVIXLXgJLz/WC4aXqyI
q3OW8jqCJ+G+7lESw2Y7vrcU0kAhT0J3TyLe46KOz9ssk5dsWGDzuSf23rpd
WCs3lEv4EwskTDeOU8/txRwry/KKqlOwmPg0WO+BMXbZR7fUPjoFHP8fFvh/
z311bg==
         "]], LineBox[CompressedData["
1:eJwd13k0FO7XAPDB2Jex70uWJkt8yyBa3IssFaWUhChRklTSlCwpeyllTaJN
CkUJbVIJaaMUKorsIWY1Y2y/ed/nnOc853POPc+5/9zn3kc34NCWIEECgdDB
3/93HoueCnPxpQHh/9c6vF4y/+lpKA3kycU1mp4OmPLN9tebmzSgG62TWGu8
Eg8vxI5/+k6DS19JP08PUNDL+OVMpwwdfvW/DknQWYa4bUGiby0dqq4sjlNb
YYKGcaA+fpIOOzbT4hIKl6Bs2SmjqQd0sGrRqKgdM8Dp9pfWhGE6lPoF77Jv
08M+AsFFQosB5kICQmQDXXxvgtsVPRiQrcIjb0rRwUrPuL3aqQy4eW7GIHWN
Fl45/eqY4UsGtFkn1TBdNfDMPUKiOZsB/fK/U+CWGoZ0YtZqEyb4a9lG2Jur
4hbB07ecdjMh8cBqU99JZVxp+rrSPZcJ60TbRELblNDyW0dO3Tsm9HIlFowG
FXFZ1PjJpbNM8KuCJl+SIproCfpfMWNBtbrCl0duCkh+p+IgtpsFSQOvHY4X
yKPuYdMl1EwWmBX2K+6blUNNFQfJgUYWWFWneNwMlkOFoLCvL43ZEOrgKjUU
IIsyUgmPTXey4dOhzJHBbhJKPMrLz09nw5i4XPMpIgmFvStOidez4fK5OtOR
lTJIEGjcc5zFBqHajn/FsdI4c+en8yB5CkYzxyUiWqRwaiPNxGPHFJyhHFi9
zEgKx69qsMzqpuBobVD29RkJHHZY/v0qbQpcPS4/rzgigX2jTrUS+hxgK8U4
+E6K4w/r8IShZA5ELEvONFoQw289ycFbn3HgTE3jPrgohp+TClzrxznQoubb
/p0shk3fmhULN3Ohz47oJ7xHFF9H/eZKJnCBFW+jOSwqirV6rO7IGi7w8gg3
hh+IYOVhndvbNKaBd+4FhSIjgtekqJbSg9PwfSzevGSSiFcenVOLUuEB8bZC
ErGCiDneN+ZG1vHgFTMp9cdhIqbd/djYUM6DdiX1fYEzQpi8qa/E/A8PPq69
FvPzjRCemeKcv64wA6TuVevWXxDCE2v1PaNPzMDv/t3N5YZCeHTMeuVo6Qy0
TXo2HeUKYljGRm2vXzNQbHvkTds7QQzqjRyi2M/CaOzBMtIRQdwS/Zk6JjkH
1hG7CgtbBdBNf8h7h+0chCoPNNuXCqDL+xnbt4fnwHfP2PqFRAG0VV0ieqt9
DioITWGXUABNqmJyva/NQ3HATfHJVwQk+2RGNX+Zh9Bqux2LbxFQT7DE34q4
AN4+Cs/1kwio6v5tifz+BVht8IzovZGAglSl7kA1Ak4ESiW2f+LH7Spte2JB
QOrOd58peQtQuR7eSbkT0IKtZTwetAABOvtrqvj3eHHyRVcILUB9c+1FIouA
l+WdKOMb5kH90eZkL5IA3psZzP64aB7CC4Zi7hkLIFG8XKV8ag70wmUPbN0t
gJpl13w2356DeI1Ax6IWAZR0fxZnLT0H3cLTq7h/BbCqut7X9u8sWNDOm7sK
C6Kx9cujYk2zMNDwWIe1ShCvZNbVfz49C2vDJHkOJYLYc/7580yBWSC+rizv
jxdC6U1F9Te0ZsC3zPn2imtCSKWknY4VmoGq7O78c8+EcHiiU7r9Lw8CQ0RS
KXQh9Cn/E9P3mAeNCt574v2IGHd6aa7RDh5oz0/s6IwkYqDXzSex9jygjsS7
m2QT8Zy9vbvVUh6QX9xf8/UDETOKS0XeEHiQtFdAVd9GGMXOpAjLl0/Db/cc
meNbhbEzhFBuc2UarFaZCH84JIzky3mkyqRpGCJtY4QXC+MWu56Q87umwenp
3Y/1CiKYpipbWasyDaJS7qcDJkSw6vKf13kZXPBa4v3KSlwUiXIve93iuVBq
H7ggYSCKGs4ultYRXNgYeSLm0Q5RdPsaLFPmyYWcoeuRxEZRLBx3lxvX4gL5
Nf1Icb4Yhjb7LxGp5sCJ7pkHJ2vEsBE3dxXf5cB7jjBt4xd+3em3iR26yoEw
M/Uwjog4jmvrDIUncKAm3z7EJVwcK8QcV1t6csCRmhkw6iKBuWFnnZQJHMi5
VHCjbo8Eqg6uf93DnoKRe3d6M2Il8NVI7q+msSlI63/ut6pKAgsnWmbHOqfg
m/uAd5qOJMpSZ04lPJyCQBNLD7MpSXyXtmVL2v4piO/tcAi/JY13pzNNto+y
4ffTDQdP1Erjnbc5Dcn9bFiZ+Sontl0aW/f8nH7bzQaaY+nfs6Iy+IzsHUht
ZYNfWUz6rQMy6Hm3ND+xmh9PNej6RiHhyaJ3MQ4JbMjZlEfsciVhgJ9AnWcs
G+iGMmZ/gkiY3XK2lHqCDXe7OHH/ckm439NpuCuUDcp2H8gisyRcOqBatsKT
DdPCNk81+O+s2w1nUDRhQ3E481NhmCyatSaW9C5mw9ae+326UbL4Ij399ONF
bHjwRE/KMEsWzy46Ox+vzIa9B6T8LZpkcdmvoJ4sQTZ8+9xDdDOWw/ko700x
3Sx4kJ/kHsuQQ7yzIqImhwUfFJKGSQR5vCGuzXTIYMHQucTYG9Ly+CkvQezn
eRZoRifcazCUx7UZslk6iSxI8T0jJukvj18y1qRLR7Bgl1bsq9wP8lgypAe7
PVgge+3YsodFCthuUUvzUmGBicqxt/aVCtiwfGN6qwILnNIj/L69VECe0rij
qywLok8dTeP8VEDh3zW128VZMOJ/ZGSNnCLumREhV88w4dWig9ffxyjiukVE
65g/TDh0M1B2wFMJre4nmgw9YMKFyLyrF/YoYezk7KBlORPK3VsMbQ4r4TOd
DSmpZUyYmF9hdyFVCa0bMwJWFzMh1Ecy3LpWCe3cyEmt+UwIUaz8mqarjJ7f
mblFyUzYm7SQYzmujOXTVjUd/L6btNNCv5erjEVnFEqy/JlQbLG/4qywCqpE
NBRs28mEwb62tz3aKiiz8Dyi14sJgVDMTd2sgj6h6pZq7kwI4Lp6/65RQSG5
x3LywO/LIVe0kk+rYhFhVfGsNhNmfoi30M+rouyIzZyaFhMur4uM9b2iin4+
c3k2Gkz4YujVs/yRKh60p2adUmHC2mGlG90Dqtg216JJlmWCUeAlA3MXNYyJ
aVX+KcAE1s4Uk18y6qie92d7wxADLn7idDlrqOMvg77F+oMMMF2zL61yiToa
pCa8je9nwF5Np3/JqI6kS0cj1/cy4MdPoQrzcHVMietw+PeDAXXbT5mntKvj
5giB4cRPDEjdTLWhXNXAEb2m9bRqBmR8NA69V6KBErWSJkFVDLjq3FO4+LEG
mow4f+yqZMCDNS5E1TYNNC2rdWypYMB3I/XWWVFNpB57Vv+2hAGGgnWBTUc1
MWgQD0gUMqCpUvjijg1aWK/eOPA8mQFExeyhUzxt/OwRvMnVnwHyE7Ey8qI6
KL5h8vtyPwboNgdbFSnoIDXqRbDqTgbYRq9Oal6qg5GXT2WPeDMgcqB/sZy/
Dj6P3jmb5cmAiSrzoJtvdFDzyd9PmhsZMG48ciTAaRFKbnx8pGcNAzo/JNIS
SLrYtFnOb1KHAVm2BY7blHWxKBhrprUZsOUhf1LU0sVepckxIt8tOf1rm4x1
UVtDd0xLk5//brs8USdd5Ny/reqtyoAazqzd2WhdLH3pYMmTZUCOfkRm+l9d
TL6+WLBNkAHbogKsrrzRQ8pFA8HSETrkFCiKcN7pYbhxyBcaf87seNnU7vFZ
D6d6O5da8+1JNDkm/UsP7eUeJjYP0sHrPPNR3JQeWmVblE/20cH7WsLyfUb6
SK/fsHX7LzrselO81CJdH584lNOS2+gQKjmm1+JtgB12skPudXTQKWvKERld
jHLL8zN25tMh6omDByl/CbYbXaozjKLD4eLQGqv/jPBpZ+vy7bvpICW4IsBs
0BiP1xorktbRwfHg1mzjzKWYJtzXZW9BB9WnWoccDcyQ6OZurqZPh4zwlEvL
Ov/Df7n/4pPk6bAlaZNpQc0yvLP+3+UyIh2MfRK2FcUsx7atLy7s5tKgY0j8
ZuY2czzme+PohnEatAQM2snrUPD28h4psT4a/CHe4WbrUdBFjATdf2jAKg6u
UCNT8P2U5ZkHfKuNjWnqmlLQss5u1Q6+A48yOP+toqCdAhwv66UBL37hvtt2
ClZu9Zbx6KEB+baaemo6BQmve6jl3TSwce76LJVJQfKeg9UJfLv+vZp8MYeC
D80ahXz4PmK6iJ1bQEGf6IpWUb5rq8mfi8so2ChE1Q/oosGWJkpSw1sKui5R
e6T2kwZBwezVLh8oGC9GHqX9oMEJicfMDy0UHJk/vKyZ74KNK3d/baegtMS1
USrfIx24uq+fgtZKYYrt/H8L74QgM2iYgtsmYhru8S2t0VDyd5Sfv21KfALf
5v7OKnQ6BU3+hZhZ8O0oIN4SwaZgbbm5uhTfXrfeJ3C5FDxQ/lVxoJMGIY5p
q6Jn+fndd9Su5Ttm2I2xsEDB8+FxVll8/w+ASTsk
         "]], 
        LineBox[{{0.9870177886223932, -50.}, {0.9872237574928957, 50.}}]},
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`\\(1 + 1\\/\\(x - 1\\)\\)\\)\"", 
        StringForm["`1` = `2`", "y", 1 + (-1 + $CellContext`x)^(-1)], 
        Editable -> False]],
      Annotation[#, 
       StringForm["`1` = `2`", "y", 1 + (-1 + $CellContext`x)^(-1)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], LineBox[{{1, -100}, {1, 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.4859159395148687`*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{28, Automatic}, {Automatic, 64}},
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, 328, 9, 44, "Print"],
Cell[1027, 38, 215, 5, 24, "Print"],
Cell[1245, 45, 578, 15, 24, "Print"],
Cell[1826, 62, 376, 11, 44, "Print"],
Cell[2205, 75, 196, 5, 24, "Print"],
Cell[2404, 82, 424, 13, 64, "Print"],
Cell[2831, 97, 207, 5, 24, "Print"],
Cell[3041, 104, 2402, 40, 90, "Print"],
Cell[5446, 146, 286, 6, 24, "Print"],
Cell[5735, 154, 610, 11, 44, "Print"],
Cell[6348, 167, 562, 11, 44, "Print"],
Cell[6913, 180, 338, 8, 24, "Print"],
Cell[7254, 190, 209, 5, 24, "Print"],
Cell[7466, 197, 574, 12, 24, "Print"],
Cell[8043, 211, 270, 6, 24, "Print"],
Cell[8316, 219, 197, 5, 24, "Print"],
Cell[8516, 226, 385, 11, 48, "Print"],
Cell[8904, 239, 611, 20, 98, "Print"],
Cell[9518, 261, 198, 5, 24, "Print"],
Cell[9719, 268, 361, 10, 48, "Print"],
Cell[10083, 280, 584, 19, 98, "Print"],
Cell[10670, 301, 212, 5, 24, "Print"],
Cell[10885, 308, 838, 21, 124, "Print"],
Cell[11726, 331, 195, 5, 24, "Print"]
}, Open  ]],
Cell[11936, 339, 12759, 245, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)