(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     20508,        515]
NotebookOptionsPosition[     19163,        470]
NotebookOutlinePosition[     19581,        488]
CellTagsIndexPosition[     19538,        485]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Etudef", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", "3"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}], ",", "x"}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.389103857111601*^9, 3.389103860986264*^9}, {
  3.389159956935691*^9, 3.389159957117009*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox["\<\"1. Domaine de definition\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182854583783*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"\[DoubleStruckCapitalR] \\\\ \
{\\!\\(TraditionalForm\\`\\(-1\\)\\)}\"\>",
     StringForm["`1` \\ {`2`}", "\[DoubleStruckCapitalR]", -1],
     Editable->False]}],
   SequenceForm["Dom f = ", 
    StringForm["`1` \\ {`2`}", "\[DoubleStruckCapitalR]", -1]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182854585927*^9}],

Cell[BoxData[
 FormBox["\<\"2. Signe de f\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182854587719*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", 
       SqrtBox["3"]}], "    ", 
      RowBox[{"-", "1"}], "    ", 
      SqrtBox["3"], "    "},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "2"], "-", "3"}], 
       RowBox[{"x", "+", "1"}]], "-", "0", "+", "|", "-", "0", "+"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182854609182*^9}],

Cell[BoxData[
 FormBox["\<\"3. Limites et asymptotes\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.3891828546120996`*^9}],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \
\\( -> \\+ < \\)\\\\ \\!\\(TraditionalForm\\`\\(-1\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(x\\^2 - 3\\)\\/\\(x + 1\\)\\) = \
\\!\\(TraditionalForm\\`\[Infinity]\\)\"\>",
        StringForm[
        "\!\(lim\+\(`1`\\ \( -> \+ < \)\\ `2`\)\) `3` = `4`", $CellContext`x, \
-1, (1 + $CellContext`x)^(-1) (-3 + $CellContext`x^2), 
         DirectedInfinity[1]],
        Editable->False]},
      {
       InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \
\\( -> \\+ > \\)\\\\ \\!\\(TraditionalForm\\`\\(-1\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(x\\^2 - 3\\)\\/\\(x + 1\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
        StringForm[
        "\!\(lim\+\(`1`\\ \( -> \+ > \)\\ `2`\)\) `3` = `4`", $CellContext`x, \
-1, (1 + $CellContext`x)^(-1) (-3 + $CellContext`x^2), 
         DirectedInfinity[-1]],
        Editable->False]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.3891828546396008`*^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.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.38918285466287*^9}],

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"y", "\[LongEqual]", 
     RowBox[{"x", "-", "1"}]}]}],
   SequenceForm[
   "AO", " \[Congruent] ", $CellContext`y == -1 + $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.38918285470125*^9}],

Cell[BoxData[
 FormBox["\<\"4. Intersection avec les axes\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182854702983*^9}],

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

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

Cell[BoxData[
 FormBox["\<\"5. Etude de f'\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182854709155*^9}],

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

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

Cell[BoxData[
 FormBox["\<\"6. Etude de f\\\"\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.38918285474115*^9}],

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", "1"}], "    "},
     {
      RowBox[{"-", 
       FractionBox["4", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "+", "1"}], ")"}], "3"]]}], "+", "|", "-"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.3891828547948313`*^9}],

Cell[BoxData[
 FormBox["\<\"7.Tableau recapitulatif\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.3891828548219347`*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", 
      RowBox[{"-", "\[Infinity]"}], "    ", 
      RowBox[{"-", 
       SqrtBox["3"]}], "    ", 
      RowBox[{"-", "1"}], "    ", 
      SqrtBox["3"], "    ", "\[Infinity]"},
     {
      RowBox[{
       RowBox[{"f", 
        RowBox[{"(", "x", ")"}]}], "\n", "        "}], 
      RowBox[{"-", "\[Infinity]"}], "-", "0", "+", "|", "-", "0", "+", 
      "\[Infinity]"},
     {" ", 
      RowBox[{"y", "\[LongEqual]", 
       RowBox[{"x", "-", "1"}]}], " ", " ", " ", " ", " ", " ", " ", 
      RowBox[{"y", "\[LongEqual]", 
       RowBox[{"x", "-", "1"}]}]},
     {"pente", "1", "+", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        SqrtBox["3"]}], 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        SqrtBox["3"]}]], "+", "|", "+", 
      FractionBox[
       RowBox[{"3", "+", 
        SqrtBox["3"]}], 
       RowBox[{"2", "+", 
        SqrtBox["3"]}]], "+", "1"},
     {"concavite", "0", "+", 
      FractionBox["4", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SqrtBox["3"]}], ")"}], "3"]], "+", "|", "-", 
      RowBox[{"-", 
       FractionBox["4", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SqrtBox["3"]}], ")"}], "3"]]}], "-", "0"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182855094454*^9}],

Cell[BoxData[
 FormBox["\<\"8. Graphe de f\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{{3.389103861825057*^9, 3.3891038857801313`*^9}, 
   3.38915997227617*^9, 3.389181505910037*^9, 3.389182855127471*^9}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlXs41Pkex2fGkJAwQ3W6YGQ3U4maSQ/p95PaONIi2k5lUi6HzUgWqaWL
XYU9pVxa0zOrxrYMu4wohHy+m6RJmbTItVFHszKkzN3ctnOefT/P63n9+frz
7Xz0eFgsiUAgxH7if/5GIHTKfmqPCP/fUuTwfO+Xbvb2KNnxSiSXuQQ9Dtm7
o9uVig48Y5adojugADfXVBcaBYU0S7/sJdsj79pDFaINdmhF2nvq4fcUNJ8f
R9noZovadm+jQ4sdUqhulbA+t0HFgjP+X+XYooe0QkY72xr1W4QPRx2yQT6m
ZxvWxlihwV09vcyV1qgY9/Lyy7JAw1nxcu0VSxTN3f926oY5qqVlbxRPmyNR
5aqFxOtmyLl2dm603xStsqrzhEYy8lo4WxP3CwklTawZLaglo/lH+dNN10io
vY13IaqCjMZzih4Qckkokl00QrxGRlvrg2UZX5MQtyc9Z0caGbX6lBcSN5DQ
squ+Q8JNZPQ+PLwgppGIqA7d5/rqTFCoSNM4c5+ALJwkonfVJPTOLLDuyD49
jHLNu8fLSajhM2GeO0MPNcvWPnp5nYRU2xlTYls9hFCS2zrzSaiZ892O2ac6
uGY2z+d96k5ZVUXc89MBbWZR9r/oJPT7QYEJctWCTwuTIawiIlqkz4nCfjVY
ee3fgHhEdDZXxY0TqOFVw2l6E4eI3PUqoX2eGrJrwOmXPCJa1dFx22SrGh7f
DFx0PoGIGgJubqHcVEH4xUjJFjciGmQu/4MfpYTE8JxSPp+AhNya/5YhGfAM
LZvoPALap+FzFD/KYID/oedXDgGV985edTwuA1x/0FSQT0BM6YEU6QoZUCs2
ptxNJKBU87G7EelzcF8lDnrgQUBBmW8byE4fYcXmNEPTCSMEBcYP9pVMw4X8
cUbrUSNE9KRpd3hNw4dXQcfa9xrhg1TYs3lQCg8v0gYfMo1w69emOs5SKbCH
RLd7NQZwOfnMf2PRO2jPpMdKzxvg5dHesMAkCUR1iLtXFerhSZRYPcESwy5f
dezYeT3QL5Wl+MW/AvcmGwL3hB5wdluz5PgY6Kr9GMtC9ZDs+VPu3KkRKC38
mUux0cNrfXza/oyX8PzIv9nml3XwcmfTkhMePdA0cnZBV5YOwjUX3AZMn0JZ
RCkvh60DW4ekaxMDQkgMFPaTgnWATRjvNB/rBHPPtdv0ljr43PmF75W2ZvAj
zFrP5WmhTvD99EhlNbbm9IKqulNa6Cb/42P9znrMRu7ofzxBC2MBbC1/exP2
6s+Qk9MBWigixg+lChB2WlQvlizQwjnri8tdKN1YfVl63UjOPOTdS0pYlzuI
0XwNoZ3nNXDrnktBZv0k9tzWdx0nRQOs1/0HRVnvsDOSb83Y0RqY1LP8QoOm
sOECTQt1pwYS/2BsXTQjxYreyF1izDXwoKhAzds9i5FzpQpSgRqKJ4IaCv1l
WP0h+vOBs2pIjM4Nybsvw6I8E6qrk9WQkREzbtwix9qGJaywMDWw6Gn8SwwF
lrb+TRfPXg3skwZTR0yFSV4McnCuCm73WP9YUq3FiiuXpFIvqaBwzvu3WVyH
bc/ct2cySwWVReGB7CEdVubaR7pyWAU+E/+RLrA1YF9liI6JaSqwOjCVS9tD
wM2Crb9ooKgAf5GaySsn4Hecg50uklUgE08YE9UE3Kb7SZ+7RAnKJyKDJZ+I
P175yPdMlRLMSi9Lv15qgqfPkZeGXVeCfYlNcXCGCb66y3/O9QclVARebRQO
meDnkn+veJaohNgYl/utPDK+paNt8UoPJVQnhSSMfmGGV8U3vG5tVIBHozcz
bm4h3nf0hmNQhQI2O+vkxkwLnBD5Q+RwiQJWU/k4x8IS3xcaPaROVYBrxOLX
mzdY4SRvSi9zkwLIFS2kKJ41vp5htO6kKeCB80k/j12L8f3u0t3hdgoQOET7
GD4sxmtpHY9TPsrhrTg9gsO3wQ9YfoMEAjk8bJSyElbb4Tmmhw3bbsjh8rk9
xJo8O7zO+M+tPZflsJ7oeqHmox1uJqc1T7Pl4D7OW3P4CQX3fG+t/DZSDtIu
j9ZQHyp+aHJ+k2WwHEK8S1nfC6h4/egLgds6OezcNZTjX26Pjw20zzQv/9Sb
d3pDc3bAzXur1wZYyuGzrkdHJn92wFmd2ZVxUzLwo5zxnbq7BL+bNHMn4o0M
/v4P/C+xplEF
      "]], LineBox[CompressedData["
1:eJwdxw8403kAx/H5M2PZ2sZa08WkXOT6c2np7/d7kfxLOLq6qEV/SOGRa+WU
whkq0TUqRbvOMkTlGrqz79dcKu08xTDk33F0dqEQrcb97j7P834+z8s2NDrg
oCGJRAoj+u91D0N2R9zsQ6T/Nx9HDDlF2Wf3oTF7Sb1mhIN9owLiEmP60FUH
6KdXcrDzpDBes6MPRTMSHzTlcvCMYV1qBr0PeXUq+0+7cvAV690FI+d70Zsr
ny7s+2kePlNClRyj9aC/7EduUr9nY8/qoLs2qm6UPxi04eAuNrZ8cqv6ZUY3
Ytf7OKzls7HsT37TGtNuRIty4/PHLbGaG2Y0Y9iFNj5Srv421hI7pv16MHO6
A50O5vltSrbAk2KTWFjZgZIdTEVjhywwvu1/5t13HWhbMdNg2ssCB6GhnJ3j
7Yg3xp36ZGGBz763eGo9okHnZfFv78tYuO3AUcfy/lZ0F8e+OPcnEyu6/NbK
pa2I2yfoDFQxsXTnGreaiFa0eGopDpEzcZzHTMjz0RYkWJcdRTvPxAynrOyh
j2pk7LF+4DmfiT3HK6ZtLJtRlVj+lpHLwN8ZTV20TW9El+vvT7Zr6dhtEt1Z
MbcRibOufs5soGPWUFrtJvEfaLMVf0V6ER2XNVhN7paokCPjhbHLIToezN4c
fLm6Aa3NEcuEAzS8i5fqaDRcj4IuK1LqtOZYGO+Y+UysQDrzM70xvDnYd2Ss
tVxag5i8VFhPnoPtQyttcip/Q1tbVxi5aam4xdPtfmj7I2T7skYul1Pxau5e
9cfPKlGOf2lc5A4q7o62WxPsUY6y3xWdvCsywy9KrXsCAw6hI5KFmY8Zpth4
vzcvzdUXRHpu2hCoo2DZ8p+E5o9iQWBWk2Kmn4K72iPKJb5pYHeJCVtaScHC
8u3e/8zPA337s1VrBBTsdh1cY54pBaLtdVsXyE1w8SUX+PPKGhAmjbfbfJyM
jX8v+I3irAAvYicU1nvJeN+0ybrItQhU9mzrmudJxhn3hudzCzDY6Hqy0MeG
jDdzq5m9hUrgntQhe6IyxtLhIKOoinrwJW99+NNlxvjkxUuD6Y2NQGVw3DR5
2hBnRpxrFSS1gaw7e7V+dSSc9tzg4YCiDQxowoRlFSSc9EXSj+Ef20DZuvCF
nJ9JWPg2yS8mTgOKVV7BZj+QsOBUSkPioXbwoPmjc/Q2El6VLlLke3WCzuen
eHtuzCJ10UXpK1YP8BhzWKR+rEe0CZ8Npf79IOCepNTTW4d64+qdT6RowU3b
sbItseNopHq7Uvj0LViZmXzgnmIYSUUSwYH0SdDasrW937kXLXlfYnEy7wPg
ZUjideLHqPuBTc2GcD0gTSc429BqQVBub5o2iwSbbwckHtB0gPzCCzU+OYbw
TnfwWS/OEDDec+wN+ZQxnPJ29y59PQoaBbI7ASkmcLEl2XRh4QR4SLMKmTpq
CoVLh8kvJ6aB/XXb1xQfKnSlGvius9UD3YkUfcnX5tDg62UFt/8gQa1uAb3I
hQ6tGn1jg3oM4a3DIvUCOwZMiHGsujqfDLO+Ul3gLmHCQcFplz2uFEiPLtlS
x2bBiULtl8VbzaDCrapGbmUBPVJrWD4xc6D+2D7+Trol1K1YdePqcRo0oDRd
W6a3hIYFuep7R+ZCvkes0os0D1Z42eWtf8yAulelr9nv5sHDf+NRhpIJR7ls
teM0Bz7pI99wb2ZBN9PkpV6Ezy0SuRwmfP39WEIEYY8UcouIsHuzakkR4QUl
H2jPCOdfSBEu+cCBA6ko0VvNgj6z41Y8HQcmJNaG+rWwoGygaT/7Eweursq3
/7aNBWeaoNyZ8Gun35XxhANry6iBhLvqBvfmESblZ1RcJly8yy73FeFd32wh
M/Qc2GkdT9mnYUGThvtF1BkONLPPHwprZ8HgKhu9A+HldeLkFMIPpBf9PQk7
JWfYFBIOSY7QiQhrIiO/GST8y0ZbH/IsB872Up+Ed7AgddmlW4sJT4m1oemE
BVz9hCthy6hnMzLC5u81N5MID4oS+FrCoQPu7ySEy575N83pZMGqpl/cawkr
ly+OciJMr12U10vYqXLcbDvhsPKs0VnCE6G48BjhfwE6cgSe
      "]], 
     LineBox[{{-0.9995004690181486, 6.}, {-0.9994775727685676, -6.}}]}},
   Axes->True,
   AxesOrigin->{0, 0},
   ImageSize->{489., Automatic},
   PlotRange->{{-6, 6}, {-6, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.389103862362666*^9, 3.389103886578931*^9}, 
   3.389159973309977*^9, 3.3891815071332397`*^9, 3.3891828551672897`*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{84, Automatic}, {Automatic, 12}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 368, 11, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[983, 38, 474, 12, 43, "Print"],
Cell[1460, 52, 223, 3, 23, "Print"],
Cell[1686, 57, 567, 12, 23, "Print"],
Cell[2256, 71, 212, 3, 23, "Print"],
Cell[2471, 76, 649, 19, 65, "Print"],
Cell[3123, 97, 225, 3, 23, "Print"],
Cell[3351, 102, 1670, 39, 74, "Print"],
Cell[5024, 143, 388, 7, 23, "Print"],
Cell[5415, 152, 606, 10, 43, "Print"],
Cell[6024, 164, 625, 11, 43, "Print"],
Cell[6652, 177, 480, 11, 23, "Print"],
Cell[7135, 190, 228, 3, 23, "Print"],
Cell[7366, 195, 1632, 27, 32, "Print"],
Cell[9001, 224, 375, 7, 23, "Print"],
Cell[9379, 233, 213, 3, 23, "Print"],
Cell[9595, 238, 592, 16, 47, "Print"],
Cell[10190, 256, 647, 19, 63, "Print"],
Cell[10840, 277, 215, 3, 23, "Print"],
Cell[11058, 282, 483, 12, 44, "Print"],
Cell[11544, 296, 578, 17, 61, "Print"],
Cell[12125, 315, 224, 3, 23, "Print"],
Cell[12352, 320, 1652, 52, 178, "Print"],
Cell[14007, 374, 213, 3, 23, "Print"]
}, Open  ]],
Cell[14235, 380, 4912, 87, 495, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)