(* 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[     18519,        476]
NotebookOptionsPosition[     17182,        431]
NotebookOutlinePosition[     17598,        449]
CellTagsIndexPosition[     17555,        446]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Etudef", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", 
      RowBox[{"3", "x"}], "+", "2"}], ")"}], "/", "x"}], ",", "x"}], 
  "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.389181993134692*^9, 3.389182022567163*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox["\<\"1. Domaine de definition\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.389182444370658*^9}],

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

Cell[BoxData[
 FormBox["\<\"2. Signe de f\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.389182444374167*^9}],

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

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

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \
\\( -> \\+ < \\)\\\\ \\!\\(TraditionalForm\\`0\\)\\)\\) \\!\\(TraditionalForm\
\\`\\(x\\^3 - \\(\\(3\\\\ x\\)\\) + 2\\)\\/x\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
        StringForm[
        "\!\(lim\+\(`1`\\ \( -> \+ < \)\\ `2`\)\) `3` = `4`", $CellContext`x, 
         0, $CellContext`x^(-1) (2 - 3 $CellContext`x + $CellContext`x^3), 
         DirectedInfinity[-1]],
        Editable->False]},
      {
       InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\)\\\\ \
\\( -> \\+ > \\)\\\\ \\!\\(TraditionalForm\\`0\\)\\)\\) \\!\\(TraditionalForm\
\\`\\(x\\^3 - \\(\\(3\\\\ x\\)\\) + 2\\)\\/x\\) = \\!\\(TraditionalForm\\`\
\[Infinity]\\)\"\>",
        StringForm[
        "\!\(lim\+\(`1`\\ \( -> \+ > \)\\ `2`\)\) `3` = `4`", $CellContext`x, 
         0, $CellContext`x^(-1) (2 - 3 $CellContext`x + $CellContext`x^3), 
         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.3891824443799143`*^9}],

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

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

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

Cell[BoxData[
 FormBox["\<\"4. Intersection avec les axes\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.389182444412403*^9}],

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

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

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

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" Min : \
(\\!\\(TraditionalForm\\`1\\),\\!\\(TraditionalForm\\`0\\))\"\>",
   StringForm[" Min : (`1`,`2`)", 1, 0],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.3891824444241657`*^9}],

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

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

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

Cell[BoxData[
 FormBox["\<\"7.Tableau recapitulatif\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.389182444501857*^9}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", 
      RowBox[{"-", "\[Infinity]"}], "    ", 
      RowBox[{"-", "2"}], "    ", 
      RowBox[{"-", 
       RadicalBox["2", "3"]}], "    ", "0", "    ", "1", "    ", 
      "\[Infinity]"},
     {
      RowBox[{
       RowBox[{"f", 
        RowBox[{"(", "x", ")"}]}], "\n", "        "}], "\[Infinity]", "+", 
      "0", "-", 
      RowBox[{"-", "3"}], "-", "|", "+", "0", "+", "\[Infinity]"},
     {" ", " ", " ", " ", " ", "I", " ", " ", " ", "Min", " ", " "},
     {"pente", 
      RowBox[{"-", "\[Infinity]"}], "-", 
      RowBox[{"-", 
       FractionBox["9", "2"]}], "-", 
      RowBox[{
       RowBox[{"-", "3"}], " ", 
       RadicalBox["2", "3"]}], "-", "|", "-", "0", "+", "\[Infinity]"},
     {"concavite", "2", "+", 
      FractionBox["3", "2"], "+", "0", "-", "|", "+", "6", "+", "2"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.389182444608756*^9}],

Cell[BoxData[
 FormBox["\<\"8. Graphe de f\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.389182444635026*^9}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-3.1046809988922677`, 6.}, {-3.078084747091951, 
      5.8248510204881905`}, {-2.8251972877960507`, 
      4.273824551438269}, {-2.589231861290968, 
      2.931691773117244}, {-2.3334537736991523`, 
      1.5879078979640384`}, {-2.0823528209389703`, 
      0.375741238013731}, {-1.8481739009696057`, -0.6664024813398566}, \
{-1.5941823199135077`, -1.7131443798266757`}, {-1.3571127716482272`, \
-2.631961805293373}, {-1.1002305622962134`, -3.6072935131281985`}, \
{-1.0962898580068325`, -3.6224835854448885`}, {-1.0923491537174517`, \
-3.6376897446202263`}, {-1.0844677451386897`, -3.668152379321747}, \
{-1.068704927981166, -3.729293729054378}, {-1.0371792936661184`, \
-3.8525660238649984`}, {-0.9741280250360235, -4.104192814109956}, \
{-0.9701873207466425, -4.120194136093558}, {-0.9662466164572616, \
-4.1362324215680815`}, {-0.9583652078784997, -4.168423239377588}, \
{-0.942602390720976, -4.2332861429403845`}, {-0.9110767564059286, \
-4.365143868388086}, {-0.8480254877758335, -4.639272452657866}, \
{-0.8443491902488092, -4.655762688010358}, {-0.8406728927217847, \
-4.672315702737765}, {-0.8333202976677359, -4.705614824799159}, \
{-0.8186151075596382, -4.773019916420838}, {-0.7892047273434429, \
-4.911352578498342}, {-0.7303839669110523, -5.2048249990758855`}, \
{-0.726707669384028, -5.224034249751599}, {-0.7230313718570035, \
-5.243357338369719}, {-0.7156787768029547, -5.282353712775834}, \
{-0.7009735866948571, -5.361810583923193}, {-0.6715632064786619, \
-5.527129089232052}, {-0.6127424460462713, -5.888560821637685}, \
{-0.6087565756897666, -5.914800887528971}, {-0.604770705333262, \
-5.94129088370359}, {-0.5967989646202527, -5.995043244114539}, \
{-0.596085464290568, -6.}}], LineBox[CompressedData["
1:eJw1Vnkw1Q/7tWerbNHXm4pCWlS+JZTOpywpKkSphBRJ9mQJhSw3QklZ25Bk
S5QokSVbZMlOubhku+7CRbh5/X4z7zPzzDPnnzNzZs5z5shaOxvbcHFwcLxd
3v+7h6Jcc74k1oPj/2ctUbm5jFpeXY+4pjSjfTVShFdE1PDd79+xKHK0IdFr
DfFSsSJ1v2EjPjT86/KbLkG0lM1YU5sboWLZfe+JowQhuZDjnG7fBA4Tqq33
dXHCZafkhJBTM1THN8qPZYoSIYs7v1FymuFkp+9kf1iUeFJ7NOMzrRndAaqd
7B4Rou6Sn52zawu0lD9l/5QSIeTjKJQW9x+IUuR7XWixkjhg87ci8/0P9DaY
6wUXCBPGKmtTgmZ+4H7HjGG1mDDhX69/UdWrFeoSXZE8nYJEN0f+z3ifNhyQ
k0khHvAT9Ib6YrfiNqyeNUEwPz+xInE4UZ/dBkppBo/snRXEnr3S59i32nGi
oev9RAAfEXk1oN0qsAPk+8HlS8k8BOkb53tKSQceZ5b4xKjzEIE7Ah/aLXRg
+z9hH660cBOejEBDF/dOrMnP/EQS5CasvIPqbtt24Qy/H2v1Q07iXA/Pa+6U
LuhzSjIm1TkJE83g0NC+LnAPplnFD3AQepwh2lFm3RgRpGVvVOcgdt8NLXl6
rAdBkR7+AVNsbB9f8UQutAfqYuMvb59nQ+E4ySetYhkXXQu5WrUIadG7ajkH
eqFdlKdRmLoArviwvM/KPxGgciHILuAPWtMj0nrF+hApHja9mM3Cd8FVwVYn
++BK3ZN6VpOFGofIS5TwPjj4uKV/+j4Ni7gjIh5cZPhkvLW+PDuFU+Z6DX4+
ZBjLPKButWTCMIJUXBpPxuqLZ5Si2QycKKnJ5CwkI1P1F/nNEwb0Nh4NC54m
g5Xb7j0xQMcBytEjEY792Fq5/s0qThrU14SpNob348bts6Y+ZyahqlsnL5rR
j5nYEqeOXCp2pR/jeTTcD+GQyD8KDhPY7KBflmQ5gP3s1L0F3GNYOW2wP8to
EOeEipL2ZQ1BpFvlkqfbIHA+KERZdggSX9aGH344iI87uuNL4yiQvkfp7mwd
xCGtP40BUYPYstn3Jq8ZBbL+xb1GCf3YJmid3ORFwa/tYWqDcv1Qph+pS4yn
4LSJrFpRNhl7i8WlVXoo2HTt1GPpmD4cNskssrAYgt1zz435ar3Q0XjQr3R7
CNLV8gc3O/Qs6/cUYD0bgmvzQEZ0SjdOThw+G94/BMlQ3U1K67tgHtQ99+Hy
MCalXC4mEe3weCegJnrtN6y985oylZvhnUCz7A3/jZRNyQdME5vg698W+irr
Nzp1x+iKQk24Y/CiQ3PyNy7MsN7uH2nAfYqap73rCLxUErqNWmsRU7f+2d7o
EaRyeJ6m/6xBbC5PNUf+Mv54+jqo1Xjq2yQZOz2Cwy/FbNPWVSFTwq6gwnMU
HmxKamZxOXLmj/+KjBuF5TG9LjKjDHnkf/nOFY2CxauUprm9DIVZS6b0+VHc
rIr9ZGlViirtWNa6W2NITZJoSR8uQu1WP5mRp2OIU3ImaT0vRL3IJZ380jG0
yZ5haV36gB+9yo+Oco6jyOHXEyHe9yC7V+3xCBrH8KuAqNF3ueit4ZVOTx0H
Pe6k5IDHG3Su01nqqhxH8v5G54iYbDRVVtRq8k4gv7ZljTBnBurXcr9xlp+A
25e2D2En05f9fDjmhc4EzkprWCxmp+GLRJkFb8gEmLvDSVIJKSi249DelzaB
WPZtdTfFZBQWQ+lq1QS4MxYIucrnyL1cMlXPR4XpsJtWp2kSsgrZnX8VqEh4
FcjpPRqPdGHNkl1HqCCZeN54mhCLZ+8+kWJCqVh45gxLk4dI4F9wrHpFxdTX
Q06u5g/w2Fzj1Fw1FalvvGnjnFGIzvVW2zpCxYxPhN7pO+GI5CmSMeefxMow
2aznB0gIM5vjitwyCTLNic9gRzBCsvaNlOpNLv+tiFWPSSACOTwbGHaTaCe/
evnK5jZumRTkbbo7iRsX37K9Im7iZjor1vT1JPQOti4d2OgBj8U9fqG1k2D2
6lYJyLjBzdDdumh0En4dOteZvI5wSs0/Mi5AQ84ew3mjZFvYzzG3y2yl4Wk9
o8B95UXYGqiInTxGA8lRo1Ev3AzWz11n/e1pCHMPfHop2hAW07m9eWE0TKUM
6LSc1cY5PXoZJYMGfrMXvmYWe2GatPOV5DcaikMjr6R6b4Qh3eme3jgNXYrv
09oVpg8qyHWofealQ0FnVZ9STufBzfUe29rX0NHQUsDbrCMJOQ/J9TR5Ojjf
MW0elO/Cxo0FIvyqdGxtKn24lkVgfZ0pt6wuHczXe2uMbhlgnTuLpX6aju3C
AznxPqaQXv9oxNiWDo5DQb4COyywtmZPzzUPOj5e7fznzJbLkHRrbQgKoSMm
4YsBhXEVEuvcvzx5TAddaeeKUTUXiFWJ5xek0eFm8zDd5sd1iLjkv2wsoCNf
t1DiS7UnVkmfihupooNHxL7beI0vhCuZYZwddMTfDPH/fMEfgk7RftK/6bh3
zeHvt95A8JU3WxusYIB8S1zkyQUSeBxcTW2kGJjeNT9daREOLklRvVuKDMjy
9/W8DYvE36uGO3KPMNC5w6uxMzcai+L0DbVnGLg2JmT8T0gM5j9HiQ1cWc7d
nKfeW10eY0a0cVacxMARUbE4lcAETBYdL/esYeDjqkpvkYYXkBeodvfpYCA0
eb1/4FQyzM0IxdvDDMSIKo9FyqWibkblXggPEy22Mv/RTkjDy3/Xnn5EMLF9
R6jL18lM9AY+4I8/ycQucdWBHLNsiLUIfkqyYOKJe65Oc10O/F3YG1J9mdgS
UnG3djAX5tkDo3mFTHjmaUiNirzDw8XzSQXVy/zb75RvHn6HOv22Ex/bmZDx
Uqcalr6H2lh1ftk0E3cCq4Vt/T5AXDHbr2nXFKh7ronNKH5C3XNP0cn0KSj8
umGtEV8GTjq9gvFhCtOfTzTulSuHGuw9WFVT2LE7LYw7uxxpP817FilT+Hrd
/MrKmgoESB9+KSQ7jWyB1x7PxaugFiOsrhQ/jenK4nLepTqkhb6wunyXhaKB
3uwl4R+weuv4JiueBU9XHanR5V4i3aP+d/o1C3uadJvKf/5ApHJLYnAdC0Z3
J+y18lrh0cbVkSY0g/N3aq5b2rZDd9Pl46MRM1jIei+lOd+F4RIFDafoWXTU
nbR3GSLj+QiTVJA8C6E1rTvjFPtxTqy042/eLFZfkDHfZt+P7zZnbkT9mIXz
lqrYaHo/CoRJubkSc/hkUhlznmsQIedGFaYez6Hiuq5mtPoQ5Gcyxb0S/yBF
pN72/vQo1n41ksvM+IOfBi8oBgfHIBgzu+tX0R/wvTHZYEkaA3231gntzj+Q
5ujlDZIZR7FjN0lkzTzil7SO1elPwGSI/2965DxcfPTzNxROIrDVZqQrYAFS
DVpZF34z8Ctvw+f9dmxs64/tSb0xiwY1t61ynmwspI5pZ6TMorikMpY/hI39
H7KNWptnkVh31a0thQ0j8siGx8pzMBvIV3TuY+POhVqZxtE5NIvqRSef/osT
V2h2QlfmUenickVAZwmvI0bumfmyYRpLJo3f5yD0Q5/dnFrBRTx9ee+zwWMu
YsWSqJGxmCDBc96RyuvNQxw5rl1nbyxKfLd6/co4iI8I9hU9+y1Uksik8bp1
Cqwg/td//wtsEYWQ
      "]], 
     LineBox[{{-0.0018050027147729466`, -6.}, {-0.0017899032956663961`, 
      6.}}]}},
   Axes->True,
   AxesOrigin->{0, 0},
   ImageSize->{483., Automatic},
   PlotRange->{{-6, 6}, {-6, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{3.3891824446613913`*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
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, 303, 10, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[918, 37, 402, 11, 43, "Print"],
Cell[1323, 50, 128, 2, 23, "Print"],
Cell[1454, 54, 463, 11, 23, "Print"],
Cell[1920, 67, 117, 2, 23, "Print"],
Cell[2040, 71, 517, 16, 61, "Print"],
Cell[2560, 89, 130, 2, 23, "Print"],
Cell[2693, 93, 1623, 38, 74, "Print"],
Cell[4319, 133, 288, 6, 23, "Print"],
Cell[4610, 141, 543, 11, 43, "Print"],
Cell[5156, 154, 552, 11, 43, "Print"],
Cell[5711, 167, 133, 2, 23, "Print"],
Cell[5847, 171, 1463, 25, 23, "Print"],
Cell[7313, 198, 133, 2, 23, "Print"],
Cell[7449, 202, 120, 2, 23, "Print"],
Cell[7572, 206, 431, 12, 47, "Print"],
Cell[8006, 220, 518, 16, 69, "Print"],
Cell[8527, 238, 257, 6, 23, "Print"],
Cell[8787, 246, 123, 2, 23, "Print"],
Cell[8913, 250, 434, 12, 47, "Print"],
Cell[9350, 264, 563, 18, 78, "Print"],
Cell[9916, 284, 127, 2, 23, "Print"],
Cell[10046, 288, 1068, 30, 172, "Print"],
Cell[11117, 320, 118, 2, 23, "Print"]
}, Open  ]],
Cell[11250, 325, 5916, 103, 490, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)