(* 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[     26310,        639]
NotebookOptionsPosition[     24996,        596]
NotebookOutlinePosition[     25365,        612]
CellTagsIndexPosition[     25322,        609]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction 01", "Section",
 CellChangeTimes->{{3.4859154020525703`*^9, 3.485915406912508*^9}}],

Cell[CellGroupData[{

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", 
      RowBox[{"-", "\[Infinity]"}], "    ", "0", "    ", 
      FractionBox["1", "2"], "    ", 
      RowBox[{"+", "\[Infinity]"}]},
     {
      RowBox[{"f", 
       RowBox[{"(", "x", ")"}]}], "0", "+", "1", "+", "|", "-", "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.4859153841137333`*^9}],

Cell[BoxData[
 FormBox[
  StyleBox["\<\"8. Graphe de f\"\>",
   StripOnInput->False,
   FontVariations->{"Underline"->True}], TraditionalForm]], "Print",
 CellChangeTimes->{3.485915384130443*^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:eJwVlHc81f8fxe0VMm9mZsoMNxqq17UTShLFN7u6Rog0jJRUwvfra4ZsCjeZ
IfPzlpXxtfc1bsjOnlm/fufxOI/z1/Ov8zhHzNbV+A4NFRXV2B//P32nDFcO
DvBIJEM/uXo7Bia9cevkXTxq5ucqj9qLgSsco5sl23iE4/WncaKOBdGzbnuu
q3jEVhTIz88cC9+Cwpkok3gUmOvw+CVfLDAp9B1F/+FRUf3t+2GnYyHyobX+
8/d49KZGSjb6USx8ovZIpzqNR/vUNLZ2W7FAf0dXmf+2Moq027ljK/keuPvr
nFPDlNDW1cm7dKbxYFwTZyfdpIgmrHZJC/EJ4L14wfnf8ZMocYVZPFo8Cb4+
jnPMvaqAqK95F/GZJ8OV8Bui+7FySNRdaZGinwK6CZVXLs3LoKTzrcLspqnw
seFpr4eFNNKqE7Wcck4Dy4BI3rbM48jb3kpUvyYdnlnT5hzilkKK54PDiIof
gUpeBNN8JYm8BU+OBTdlwGBw7JtPPeKo+Tl+Vq09C7rqRLOt28SRObvOokt/
FrQcZLTzNoqjkfiHshmULKjyKOZ/XiGOQor5bx9fzoJUi65PJmniqKkkSvke
FwkcZdna99zE0Y2By5IzN0iw0/Scz4hVHOE9fR4J/iCBEAsxa01DDNkUXQ/3
Yc4Gy6qWEPHzYoh4ZMBwmzsbUtyV3IxUxBD3XTThezQbpMi/VbOPiyGZVtHv
ifhsOJn9d60dqxi6H8piTbDMBo0rhaOdPaKoyPltP0tRNjiE7/PmE0WR3QvZ
/QPiZ3BSkaEnC4kgM9c4r5L5HHCnL814dFgEcZFtLS9u54BXj+5lLhoR5PHK
0rmNPheCPO+E6k0dRTj2qDMcIrlAKkrm/5p/FHXTby2zGefCjMoRhSido0jR
pUuOviwX7qnSmV11E0b2lUYFonp5YHd6JLOmRhDFJeyOxuHz4W7maVOdEkFk
P/e+sOdcPjjyh9E2kgRRkUN0Ak4jH9x2NC1bwwRRWujjLpJRPvhgWdwDVoKo
/3JNirBLPkTqej5b2BFAPCrezXhSPtSbsZrwnxJALnqPTG4fL4DG73eo448L
IEQjNud4sgBazmI5RwUFUIUgI8nvdAF0CrozS9IIIFx7R32VbgGMjvZVKbTz
o5eH1UIiiQWwdS9NWsuZH4k2nTr4+KkAZJ6cO3BJ50P++p1i+acLAQ1fkRmP
5kPd1NUvvdULwVTT7obZWz5EZIucuKpfCP7sIZ/AhQ8tzFhTcFaFMJA+bMZx
hg9xNw55irwphMCO53n5zUdQwpmzCtIDhTAp02CztoJD/5QM5kS/+gI+/5JD
iD9xqOtru0r1v1+Aa2OxZKgPhwKXBGY333+Bi9V87HUVOHTvQ55MUMEXiDJz
LIt6jUPS/2Zra1G+gFYAG/dpARw6G2epK3axCFKGr9c+VedFi3LpmYJ0xaA8
ofy7+xQvIjLcchbgKIbaWU5FxRO8qHDqup6UUDFMbra9n2TnRX8FGHy4c6oY
ZLgMPK4P8SD83iH9V3eKoUBHS1z+MQ8q2q4T/qvpD5976jklmxu99ptT4Uwq
gRvF3MVqydxo6tPzLEp2CUxWrMxFR3Aj/LV3BqisBJia8swMvbjRbXJSRF5v
CRhOyJ0s0+VGVsLmJjcPf4VevmMjEWNc6NXzz9SjL7/C1Ave87p8XOgMEf/h
k1cpsPjmLkawcKFW4WfRuJBSUHiil0bZ5UR1tq7E2IRSeOTiy+L1gxM9My/z
mEKlwGDxsz+bxIkmL5zLJjGVgeSpIk+uC5wozTYicSe+DGwnTXKHbTjQRfEN
T7PBcnj9Y8FWxoQDbUmygfRiOZCGAnGPdThQtJseCNBVwEpnhS+HLAciLWQd
mCtUAI2fXszr6cMo1f4p0SqgAkBppuMa22FErRZLW6xaCWVRJ7SnTdmQ4lWT
9JHiKmCymLKjPs+GyE8Tr5a3VYGp6Ed/ATE2pJzy2AJNV8EKSQIZzLEim8wW
UW1BDKTRUbV8P1ZkNu/sq+WPQcwsj5JX5iHEqH9xXE0OgSdQC7P+ZkbSHwyz
HvJUwzc6pHZslBlZzF1z7JWoBo6mZ+YXa5mRsOTs1nV8NWSb7L5z+4cZXbjn
n5NmXA0TDptcPeLMiOWDBUNieDUYR/5iStRnQjNrn0J1+L6B4szA2skEhj9/
7ZE8f74GHi7JSx8JYEDUwk1bYldr4Ovmi9v7jgzIlT9x5qlNDagzyNS3nGFA
IfXc4hGva8BYwuudQzc9MvWjE33UWQOetwXOpR2iRywOQaK3H9RCmb2LS9AK
HVKci+v99aoW9p2+pT4YoEN3QlZxmXG18NrL8RAhgw4p3VtSel9bCzHvyoaG
NOgQmxS3ZJBAHZR1mPvhvGgR14ZxFV1bHez35xTuWdOiGVohRpfJOtCg0ExP
6NKi7NKnjcz7ddC8QDIq5KVFf8k+MCTL18PQoR0xo3waNHnAsboVWg8H2u9r
305TI63txvJKywbQKiMz75lSoVcBd+8LyzVCDunD2QY1KpSQph24adgIfO9d
HcJEqVB6FiYj79YIvZsM4frdB5ioJ4znFTXCMW9TjoTf+xjjAmVdS7sJvr1Y
ZyXo7mHlxL+DuZ80Q7TtW+dujj3MxERJnJjcDA6awi3EwV1sUkKoB9/YDBz0
2sFh93cx1wzOqTNCLWAVGMk8HrGDZcXRz6h+b4Hdf/AMrynb2AOfsDH+c63Q
7tpwR4C0jQVnLS1tOLZCmpFFXY7HNqYs8WDHPb4VLnO9DOhj2MZC17wMTKjb
IDaqk0ZafgtjKtexwnW1gWr8g4PmpxuYev43hqGW9j97o7ey1tzA2oNb9jnn
2mH4dmzVGusGltaZalvE3AEBItW+wsnrmKdRyYDhpQ7oSuXYdalfw1bk3awO
NXeAW1buFif3KsalvUuUnukERXaXlxqUFSyRokaeYe2CZXc5do/PK9jk+Glf
ZaUucD+fJdGtu4KNDR9kEL27wLMt9Uq0zzJWJ79qVYvrBtVTNgP1essYZ4ym
nxh0w0aMiP0mbhmb+vRdQJzYDY9t45/ezF/C2k5fDhau6IbVWVk9lZZFrNzz
b2YP5x54+CXTMvruIqbuV7BmHdcDG77HHm5SLWKH522e8Db2wBaHSFKpygJ2
ql7p2+SJXthV5Vq/kDSPMfpLU2pWeoHh5VayjvsM9sKLqXjiSz+8MfAszmCd
wdR/SLqwr/QDE26lmSljGmM81bHgoDgALFlzG03kKew/GuGewbwBONw2YnBV
exKzE791sbR6EP6NsbDNG/2JaaSaMgYwk4HLtv8xp9dPTN6vQarbmAw86x2p
XTkT2O6t6k3VWTLwCdZtmfGNYwnsJm2B8sMQO6HOXlowho2+15ze9R8GgZwq
CQHDMYyBNeyG0+AwCKt/vTL04gdW0OVwwi90BDRbTfWqe0cxcRA0M2WhgI6N
0cOXh0Yxb8VDMqwXKXBpTS9JmzCCqd/yTef2oICBwIX1xqwhzOL4r2iDHxQw
vSuR0ukzgPkox32gaf8BQQ88AsOL+rFx7t8uMexjUOlT42q80IexWfuLzV8Z
A8kIu4udVr0Y62GhQf6eMbiZWHgsPKYHo/PhWRMSHIfgLFo2445urP/a9iVF
u3FYwdLIHRpd2AnC8bGp7XGQal79FubdifVEOe1glybgVq8m6dqXDmwwiV2F
I24C0Pz4k45j7djwUm5mhNZPOIq/JJfK2YR5PC+N3ayYhFd607/FXn7HOM3c
Ok0lpmDeKrAxZa0eu1niedP67ykoC/l+N6WvBsP7KdzSvD8NYmlEFTG9b1i2
oO6F0PFpCCxlokspQ5hRXy6dk+UMfG4J01BXK8fSJiKN5mxnwXu7Y5Rw9Cu2
8VYTyfyaBT0pLl8CdRHmGXhTWMl3DpoPJF39/vmMuaU3xvLmzQPx1oesZyYZ
GPHdbH3T9V9AV3hswlcgBWsy9Fzb2P8FSzGx9sux/lj58ZNi/fcXwYcmsk7n
jAM0jT7UseZfAoU4uwYe1VD4Sht9pO75ElzH91e8Vk+HyJ2Qv5atlqF4wMz/
jTcJJE0YifH9y8CG5iRqzfPgnYGBDs3NFXhw12mmNrIYAlOimGzur0LqWVmD
uvxSsEi/97GUbg26Wedy6lorQGDVzyr8wxowUEic9XMYxEl2JfcZrUP8LZVz
dgHVoKcw7R/FuAEqmlFO41w1YPHTVWevaQNa5dbj7VJq4cHSzQOn+E2goio6
sKtqgFkb0RiK6zbEzvAoTRg0Qup0lkyb529Q7npoa09uAhuqJoWCsB1oruiO
mHBoAS+RRbxT/S7YfzxVZ7/1H7gKbVbaHtmHvdDIjYnXbcCb3J2QGXgAzed/
RxQEtcN97Z+MoaFUhBglUvbKtQ4gD/UkmbpRE+ylzOuU+TvB/F5hqZ4jDUFR
kGXEndIJl0k7LWMvaAl7h8s2CjK6gEVFz72ygo7QROd4eNWlG96eDSZtijEQ
orf5T+BVe0C/SkijsoyRYLvQSPDY64Ern5nUeCKYCQrjT28V1vZCjJJcEkf5
IcLvPmn31eA+0KdPtCq4xE5oaBkIwl/vB2MT2V33zxwE4pPBBgvZAQi/azCq
WslFYJIk0wXQDsKr/t+VQza8hKw2sno2eRA4jOPXKib4CJe9h551F5Jh9F25
Yfd3YcKs1HD5bvAQtD5qC0oMFCcEdw5vSdoPA67N+q164AmC3LMRFcPzIzDx
zDe6XVyZ0CI96u7JMwpP1s8M1dmpE/wN7wssC43+6eX/0iP8DxSzCEM=
         "]], 
        LineBox[CompressedData["
1:eJwdjAc0Ffz/x6+VPcro2hlFyLoqRX2/ZRZ6KBoeKaNSyQrZpaSUqKyne20i
Gdem8vhc4RKSmYaQvfe4Vn7P//8+531e533O67xl7F1PX2EmEAh9//X/mPKh
e5zXrA8R/j8ncCh2W7a370MG47a3f7bo087Gzgrdae5DWT20keKvJJrCpBvp
6eHfqGtfsL4xtxKNcWzOIinjN0o/P/FI116OVh/n7la0ox9dMHmnatkrRftn
ai6iLqgfLSZ7S0pniNKc9Dxyf473IzkJB6/pGWGa9qv5xpmzA4h8KfDi+l5B
GseMxzhL9QBqrx/etGfZTvumv8BBVBtERnk3bVri+GhZ5NsKKpRBFCzv/3Lt
EzfNb3bBALMPIbYP/qxUT07aSUNPR8vbQ+j5FElswp+dJha/eN+pdwjVVJ5T
fd/IRhuf80wJMBlGx0MsxO9bsdLeGy3B87JhdLPeLsySj4X2JMGrJ11uBFVW
Z/J+n2KiWS8sbZRHjqAbCgcuR08RaMonvMU/r48gFdcS0g0OAm0jcfnQ72uj
qERtt9wTzz/QtOh9fql9FDG76jFRtzYg/uSKNyceQ9ItbtXdOevgnHwnRjJn
DBVNiN9LvLMGussrRRrEcdQzqql81GYVeEx92gxCxpFb3RvDxHMM6E5hzF6Y
HUdTmYIeEtdWIHfFh9/FZgJRVJKf+D1ehiCz1X336yfQzO6JkqZ3S3Aqzdc0
VmsSqUzP7rm5ugjTp/zCKnmmkNZobvdWwgJUpq9ltvlMISdLi+VEwgJErPnR
hwen0Itf8XeanedBLcOfhf/faaR2SkE4xnYOCBvrMnJ7ZxD3l8K1qv5ZaLEI
wAdjZtCJ7SzB6bdmoTyospJ6YBZ1znxynVOageSsP5/fOc8i+6sMLzaHaXjc
cfRXdeosMs7MftKbPgXnlWC9i28OTd71U1LSmwRstcXVrz+HyNU2BY6JE6B4
D4lN+s0h3dcbBUuECVjtBG3CyBwa5XJ4dfjHGPQTCMZckvPo8a3Mv3aaj0GD
Mj4ndGYeaWfkbSc3jgI5mOalCPPoZFJcn27bCBzeV1VoHreAbC61WTOJDMP+
jq+xlZ8WkInDh4iHZUOg7j/pp7KxgL4YJPfK2wzBnk879TjsFtHHM1IsknmD
IHjFpR2UlhDhvkyBifsA8PGElO27uIQsm30+TikMAFfRKwolcgmdy/ocUNDX
DwSmWoc7i0vIykQk6Nj5fpiMF19UrVxG9/kEvx27+BtG9DS+xc8uI42Ll9fT
ZX9D/7hhBZfcChIxDcuKGOuD79oeIcOPVtDahNL+9/59QO+oF0q0YKBlW020
eKkXqvx7GNwhDOTeEv1IgdALFbKL3b6lDIQ+Tc3Fp/ZAoZv0ayvxVdQ7K3bi
z9QvSOLx3s87tIrYJNg4E+K7gVz0VNR/5xqqFr2Juk27IdY6ZXP0xBrSkUfG
7X9+QvibptqavDXU6TKuVHDtJ/joy50N8FlHOX9a1OgmP+D2hPbh8bfraMM9
0/kCxw9weXlK6vyvdURZdd06Tv8OV/p8h0nHN1BYVpvWnMF3OB3Q4j3BvYmW
ylLVy858AzO5YesLRzdRQEzy7RXRb2DcsH60zm0TDUj8tDX63QVHiQrsaZ2b
iHdsoYbh0QXKxYFx1kl/UFkSxag/5Sswewt3O4oSsG0HFyFSsROsL79tK9ci
4GvS+e1qqx1QeBJ94jEn4MOyNTOpDR1gL329tDiUgJ30WO6Nu3bAx/qK56yL
BCx0VuKKR3U7iBVZPDrPz4SvGsz47yS3g0fCcGCOEhM2Uus64uTeDrIeAjct
7Ziw5qrPmQ2Zdngg7miQ3syE/ZoKuu4/aYNutlUdxhgTrnWbtSZebQOt2Wea
pmzM+FayS7vO8TYYrCmTXtRhxpzeGb+kN1pB34V7TS+LGWuMLkpxeLcCa1Vh
3sADFmwz4i25ebcFbLKNXh9MYsH1A9QFaYcWKI7ppjx9z4Jz4a1IpmELON7Y
FkaaY8GpZ4tIP/haoFbQ2uGBLSvWUzZL1TX6AqFXmYhyh9hwnZa2mtb7z9Bj
Hst3x5INF9/v8zvz9DMc0FFma3Rlww0SGmVsFz/DML/VvEcGG6aMUM8RmT+D
4bs3TR8Ft+HcE9pE6ukmYOcxD7af3obXFnLKX3E3wnkFa9oBTnYcXJZG9R9q
gLfHHbe45NlxV31xcD00wClfn8CiC+yYK9WkluLVALHDyb6stex4XlziyNrQ
J9hTNeeeQeHAfZWm00e/1YNP93q+XykHZu3Y/lKg/L+HFbbZU60c2KHhoeL+
f+rBRVXMZWUbJ+Z953nQ40I9lFKO3zD24MSn49qCyL11YOAdZT9uzIUDQ2Ki
slfpEPsiIaXSgQtPpV7Ileuhw2hOZt/LIC7Msbr39q+PdAgf+GCrU8yFo8Xy
L+14RocO80HrcGlurO6zoHFdng6OyvvPqC5zY03O1ycEbWvhQd9XPY80Xux4
8STVglENPe9MbvlU8OKsmrH24cFqOBxFiw3q5MV5w1GxKa3VMGvwduwJOx8O
vsqvH5pdDbbZgZFpN/lwSmblB4Ldf763/M8OEj+WiGZZtm/7CKtsh96J2wtg
q8KHN240VUGGx8LnRBcBrBvwVWOjogose3P7ZfwFsOdjh7Q3uVWQXy7Loxgt
gB/ORHmYR1bB1Zs8l7ToAljkn2/uHWeqoKOll9VMaTumGnObev+mQT4l1Dxo
fjv2+rIq/YyXBo2CoSP8hB04z1tQo28LYPjpw6AU3h348r/tih2DABIBITk1
ijvwvT9uNvpUgMc29zm4L+3AY4fafQ8ZAlyWDKLFNe7AbVduOhEDKkEgyUu9
IF0Ql5sRvqyz/gvKO73qjhcK4jTtwIQP0xVgGOlp2wGCOIDE6Z7wrQIC7t4O
X/khiL8nCs7V5lTA6CX30SPbhfC9c6d4Us9WAG3XreSGwP/2gUw9o/wP4Jrq
KDB4Vhhztbrze/q+hwjfV/ERDsL4Vg8hXNHpPeSZNysechPGTSMvXi6cfQ/T
fw4eiwgTxumcdhFNWu/B+W9uD+0KYUz2Hnj2cO4d3BAqbA+XEcGq+WU+My7v
4GroVuz+SRGcwe8+EeNTDqEXteT6GCK49FDttebr5ZChdZ36hG0n1s/wKSL+
XQ5D/W11vVI78QCtVbv/SDk4ogxGmMVO/Kmu5okBaznYM0yte0p3YidLtXLN
6DKwvUGWfBRMxN8C6al9UArr3zmb554R8Z1tol7WRaXwzwnfIBsyET/O+sPZ
n1EKrYrnezWKiHjVXENGLKIU9EeEU7oHiZjRlRunfLEU9jq+kNc0FsXB4xod
tM0SWLz4WPkXnxjOv3dPWsG4BJ5/XvlpJC6GrfanDqsfKYF9R66FFyqIYcrB
5nkDzRK4KmE49QiLYfsh9pgXEiXw/QcLVdNDDOdFb5PPnSuGynN3NR93iuGh
6V2LwwnFEGbhfYgUL47XNEbUGJtF8LJJyTknSxzXNa4p+i4UQbxRb+LuMnGs
u1klwzZWBPlHjFmJbeL4BDH885GOIvi2V+zLBrsEfsv0kaSeXQSKzJWO9NsS
uMI57DvX30VAL2R7fsFEEmvEVSkqfywEVqGY4btrUnj/aL6eYHYB7JgO4tvB
Lo2nl57fcU4rAJl6pwPpgtL4aLfiiSZKARwN0A2tV5HGziUn05LCC8B3cGD3
9kvSOIIoZBTtUgDTxZpXUqulsWa5q2geqQAmlUbd7Q13YaGceeFbH/Ohq/Hh
bAi/DF4RZZUU+k2F6KMJBlYiMnhKpMY7qp0KpwuKybslZfCLqXYdKToVmmMH
9OlKMrjeSbbZKpsKdLtjr9gNZfDeh3dDTLypULqycexJgAxudc3lNeCjQqyc
Z1TkmAx+ptnZKWiYB1b+9gfI1bK4fHKTL7AtB2IThLatfJLFWwfbCKr1OfAV
6J1nWmRxNF/nX8P/5sBZVmUv3l+yOHRgcsg5KwfOP1sourcsiwt3PyC23ssB
66QQjWt75TCPN9PktHoOXK7OUNGKlMNhtFIRs9hscOaekG22lsemoqu2op5v
QTqbHrttfDfeJXhzU87/DfiX653hpyhgKZ2cLtWMDHDLcC49oLYX13AJPKQq
vwYe5oP2qkNKmNnORzy5Ng0MblnGKEWpYAm9ETPzF6lAfCfpaiCvis8+dR2G
Fynw0uPxC/UuNdx6UoKx/ioZTof+tS+hVB2vfPeI2h+dBEp/h1ilB2pguuiG
kqlsInwd5kyNstLE8ovu6W4l8dBsP3RshzQJhy0u728MosBv1kxGjCwJ/2at
Lqf4UmAxw4kquoeEE7NG1Vw8KSA6MSEhs4+EtVu/LhNvUMDx9vyKmg4JS/Y+
qn9oRYG1B1u5ZudI+NCbA48/qFBgz2tRsbBIEnaaj+V63k2GQ0Y/W3iiSLjr
ewxrQhcZTMfiHz2PJeFRkz2t2W1kcN+3aykugYTV3ZZ/NdeToaJkT0tGNgmz
Opx7q1RChtN0UmhNHQkrX09Q144gwxWnJV3jRhIuEIzrtgsjgw9X2UJjMwn/
kbMzeRZChoRTh+3aO0l4XT7y1pgfGUa/Yt3+ARIOd4nNKr1GhjUf5oUrIyT8
dNdpi2l7MvCK12SNjZOwe8KxYgVbMmheMto5N0fCUmVrmUmWZDBg4mz2XCLh
wCtDB3r+IsP5tIYQBoOEqwiGgVImZLhhEK4TsEHCTFWqfpcNyRA4Yja/tUXC
EFaokn6MDP8DzJ0dsQ==
         "]]},
       InterpretationBox[
       "\"y = \\!\\(TraditionalForm\\`1\\/\\(1 - \\(\\(2\\\\ x\\)\\)\\)\\)\"", 
        StringForm["`1` = `2`", "y", (1 - 2 $CellContext`x)^(-1)], Editable -> 
        False]],
      Annotation[#, 
       StringForm["`1` = `2`", "y", (1 - 2 $CellContext`x)^(-1)], 
       "Tooltip"]& ]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], 
     Dashing[{Small, Small}], 
     LineBox[NCache[{{Rational[1, 2], -100}, {Rational[1, 2], 100}}, {{
        0.5, -100}, {0.5, 100}}]]}},
   AspectRatio->Automatic,
   Axes->True,
   Frame->False,
   GridLines->FrontEndValueCache[
    analyse`grids, {{-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 
     5.}, {-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}}],
   GridLinesStyle->Directive[
     GrayLevel[0.85], 
     Dashing[{0, Small}]],
   PlotLabel->None,
   PlotRange->{{-5, 5}, {-5, 5}},
   Prolog->{{
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{-5., 0.}, {5., 0.}}]}, {
      GrayLevel[0.], 
      AbsoluteThickness[0.25], 
      ArrowBox[{{0., -5.}, {0., 5.}}]}},
   Ticks->FrontEndValueCache[analyse`ticks, {{{-5., 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {-4., 
        FormBox[
         RowBox[{"-", "4"}], TraditionalForm]}, {-3., 
        FormBox[
         RowBox[{"-", "3"}], TraditionalForm]}, {-2., 
        FormBox[
         RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
        FormBox[
         RowBox[{"-", "1"}], TraditionalForm]}, {0., 
        FormBox["0", TraditionalForm]}, {1., 
        FormBox["1", TraditionalForm]}, {2., 
        FormBox["2", TraditionalForm]}, {3., 
        FormBox["3", TraditionalForm]}, {4., 
        FormBox["4", TraditionalForm]}, {5., 
        FormBox["5", TraditionalForm]}}, {{-5., 
        FormBox[
         RowBox[{"-", "5"}], TraditionalForm]}, {-4., 
        FormBox[
         RowBox[{"-", "4"}], TraditionalForm]}, {-3., 
        FormBox[
         RowBox[{"-", "3"}], TraditionalForm]}, {-2., 
        FormBox[
         RowBox[{"-", "2"}], TraditionalForm]}, {-1., 
        FormBox[
         RowBox[{"-", "1"}], TraditionalForm]}, {0., 
        FormBox["0", TraditionalForm]}, {1., 
        FormBox["1", TraditionalForm]}, {2., 
        FormBox["2", TraditionalForm]}, {3., 
        FormBox["3", TraditionalForm]}, {4., 
        FormBox["4", TraditionalForm]}, {5., 
        FormBox["5", TraditionalForm]}}}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.485915385754257*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
CellLabelAutoDelete->True,
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, 324, 9, 44, "Print"],
Cell[1026, 38, 213, 5, 24, "Print"],
Cell[1242, 45, 636, 17, 43, "Print"],
Cell[1881, 64, 369, 10, 44, "Print"],
Cell[2253, 76, 194, 5, 24, "Print"],
Cell[2450, 83, 427, 14, 72, "Print"],
Cell[2880, 99, 205, 5, 24, "Print"],
Cell[3088, 106, 2603, 44, 112, "Print"],
Cell[5694, 152, 310, 7, 43, "Print"],
Cell[6007, 161, 622, 11, 44, "Print"],
Cell[6632, 174, 575, 11, 44, "Print"],
Cell[7210, 187, 338, 8, 24, "Print"],
Cell[7551, 197, 210, 5, 24, "Print"],
Cell[7764, 204, 131, 2, 24, "Print"],
Cell[7898, 208, 270, 6, 24, "Print"],
Cell[8171, 216, 197, 5, 24, "Print"],
Cell[8371, 223, 391, 11, 48, "Print"],
Cell[8765, 236, 641, 21, 106, "Print"],
Cell[9409, 259, 198, 5, 24, "Print"],
Cell[9610, 266, 423, 12, 48, "Print"],
Cell[10036, 280, 669, 22, 106, "Print"],
Cell[10708, 304, 212, 5, 24, "Print"],
Cell[10923, 311, 864, 22, 132, "Print"],
Cell[11790, 335, 195, 5, 24, "Print"]
}, Open  ]],
Cell[12000, 343, 12980, 250, 378, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)