(* 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[     17617,        452]
NotebookOptionsPosition[     16247,        406]
NotebookOutlinePosition[     16665,        424]
CellTagsIndexPosition[     16622,        421]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Etudef", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "+", "2"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "^", "2"}], ")"}]}], ",", "x"}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.389234372854748*^9, 3.3892343852306633`*^9}, {
  3.389234443029399*^9, 3.3892344431886168`*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox["\<\"1. Domaine de definition\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.3892437867211637`*^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.389243786742278*^9}],

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

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

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

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

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

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

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" Min : (\\!\\(TraditionalForm\\`2\\^\\(2/3\\)\\),\\!\
\\(TraditionalForm\\`3\\/\\@2\\%3\\))\"\>",
   StringForm[" Min : (`1`,`2`)", 2^Rational[2, 3], 3 2^Rational[-1, 3]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892437869728117`*^9}],

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

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", "0", "    "},
     {
      FractionBox["12", 
       SuperscriptBox["x", "4"]], "+", "|", "+"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892437870448427`*^9}],

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwdi3k81PkfgMd95hqMo9NttckVS/b7Rcqm3Pc2SxTlWGWRexubSG1qKkdZ
tp9NWNeyS0jvjxRK1qRJqKUZzYxrGMbEGMdvf7/n9Xpez1/PnvB4n9PiBAIh
/l//14iGGwtbWyQkz5Q7ub2XhNRFOkYO6ySU8rLgL9duEnp2+MGJ5FUSKu58
IBYPJGQ03vZijkdCxyixF7taSWhGcbJilEFCdWiQFFlFQueibYKa//2anCyq
666QUJbhGIrMJaE31r+YHzhGQnfv6VMHlEjIQF35stlrTVQ+kRfvLaeJLsQf
Hxx+roE0ab6ephoaKLz8/qlz/eqoz8v3UL+hOuIS+ALVt0TkZmqYqK9HRJLd
h7Xu96kh+/oTlYPmakj7eR+n85UqWsuPJFqaqiJMhXOD26aCBCu/3fnOWAVZ
r4orF/kqo2d6VOsncUoIsUzXyny2IQepH5vNTimi6Hm1keWdCug2bmvrlCmP
3j0eMq+WkUMRpUGsmXJZdE6MUnF3QRoNPtwpJ3ZXGpG/at37tlgS7VRstIAW
SbRnfji311ccye9mD07XiKPzaiNWfklbEOuXU1xVRUC2r7IddHhCCOue6N9J
3YA1ctgUzWoZjjiunv6HsgH9eY4O9trLsK9VhVB6fgMmzPbEUjf5sF7jZK3t
vQGVos5BpRd8KKZWlBJVNuBMpwvZiswH2smoONnr61DXwteVzV4CJ8KC0tIV
Efi/oNb9/pgHJmky1Y2pIgg5Hh1dVs4DleVdLvFnRdAtWXMiLZsH4xyvC3Nu
InBdBhnuER6kDTZNsGVE0N7I6vq+YgGaypIb3+eswfR1u4iQLi7oOW56P6cI
YUkhpuMJfRpoqo57SxKEYPank3xA8TRksdOl4yKE0AvU8NZvp2GsQNiu7iqE
YCVfk2HGFNxiLuufkhVCQlF3VtIsByTzZgXiBasQLC+CLj4L2EMjJXjpCqRM
MIyj6Ay4/ZCUqP7zCmTa2BINbjDAOSPAYypzBV5T9OKL3BlQZkgXvxG6AhY9
h9LLuj5CYMpgzITeCkh8oI7u95uAvh09jlnVn6GaaryiNDIG1WeaGR0tAsjL
ymDbfPsa6OHlu9wrBXDLjqrd2UADAvkqeeyOAHZHKUT6SNAgwDtidDVRAGIu
XLKt5wCI2xNf21gJYK43KqemrxdCFH5ADQ3L0MClv8+ofwTy9ZblFVV8+MO7
tjb5l0eYTdXOfyyL+TDE8c2+Od6Bhf1HXvdpLh9ytrV5exgC1lLILPwYyQd5
N+MDG4ynWPiP1Os7DPmQe4jnpP/bC6zdaymz6P4SPJsor+mdeINF8/84cfXu
IujHmhR0VDOwkgOLDlH5i2AVPx+bZcbE+lL367qkLYL6jmtjnvVMzJDQMLoW
vAgZrKNm+1onsY+KtQHR2ouQXj+g7z7MwvyNKr2+KeYB26Pb/8PxGezSWZa5
YR4PtusGHstnzmBNtQbKYik8EPhamRakzGIqVhUDjwJ50EYxozVVzWH92K9H
TUg8KLg54rquvYBRmqyvKO1dAFEQTYqlt4SN2zUf6VFYgPm+tHWP1CXsIFhI
Z83OQxEnhnKHtoR97t/3E7dmHnpfOj3rofCxWJZJ5ivTeRjhtwUZLCxjQVo7
zucbc6F7i90YLlzBWsrumTvLcKF++FZwUugqRjTUmRey5+DIZMLtqp5V7G8L
UszZyjlIDowzyCkWYi7uqqfdDOdgK1D67e9HRdi+LKlgaf1Z6Lyo+qGLu4np
tNOKpiRnIVvNaPOrsC1M6vO94ZfsGbhGtmon0LewD3GWfgU1MxAwbT/aF0rA
88mhnlqWMxAkm3Gx1VcM5xxsc/3CaRreOPs7b4ZK4EMply4p6k9Dv185xe6B
BP7kT8/ueclpWE74Wd1nVgIv3MvGm/umoL6i1946TRI/tJ148KDXFODJd9It
KqTwX0Wxlh6hHHh/cu5TgJEsfs3W7vx+Jw7MWJ7dhtJl8Qs/SDSq6XOgpcpX
N2RIFveYLfnyHZsNfStfK9v/JIdvjPWYhH3PhoftTW3hy/L4lCY1ytmLDb68
/nAFPwWc7kOuNLBkw8ISp133LwW89iVff1rAAmiSiKWmK+Ih7bt3JWSyIGZu
Nu6xjhJ++PMs2S+UBcPNX7zJuayEW1i2lh5wYsHbM+jmGl8Jl605riOSZMGn
uq48Rboy3lKSpnHp2icoams/t0JXwYmpdIXCe5NAt2JRj75Xw1e3hKoLaZMg
wRNmyxkT8fHLu7TcQiYhuzIu3DqRiFfdjjZY05qEB0RdKYGaOv51I8Hxu0Im
dKWkhh2O0MANbI1cWpOYgHVE4bkdGrjcE/dvVPyZYPpOLfGqhiZO7y/0f0pk
gtBTRll1UBOPS1L8OFDPAML/0cL/CzceqFU=
      "]], LineBox[CompressedData["
1:eJw1lgs0lGsXx0fvjMsYDAaFilxSo+iO6uxNSTFdzoRKSNI5pSOSS4luVBQp
lOSSckJJkS50UbkVR8IhKkKUQTIYc2P43u9b63vWetezfmu97/99nr3/e69t
6O3P3TuNQqG8IZ//7gdbjZsqI7qB8r81HVmvp1+wS+yGebbMyg3/6qBubM/n
1qZuIJJaV0xu0kEz4/Aw2vYe2PHq+2szV21k071v1R/pgYWL70zQ9bRxId+h
JjWlB8bUixbqdmnhsheauou/9MBo3Dj1VoAW2jnnlXh6fgen0t7cK2kstLe5
3DXvxHewFy3T1Pdl4XqDUKWxG99hfJq+0nUrFm7+abfjQtd3GMwrO7W3VRPd
oz6Ln/r8gPg9cTa35mhiyCMlK/UDvWCyIa7Wt10dj14f2tV2oRdWsFecphWr
Y/jJ5nM593ohKulvC06iOkZybras/tULiyIOVNU5qeOlHqtQ30M8yOU8inWo
YGJSzawbyxJ40Fx85FdHFhOTC6hvKUU8qEpc7qoUxcSM8HrtZAEPlr9e4kas
Y2Iea9+T8tA+qOFOpJzPVMP70o1fL17rg929i9+b71PDh51L5N1K+mBP08jm
Sks1LL435cKX9sG+XdLeygpVrFqbPKZ/vB8aNgx5RYlUsDOoamlI1ABwp3cd
dYhiYNs7mm7u3wPQxRhooLsxsFXffupTxQA0TdrkhVsysL6ivHo17Sc8iQj0
2dWhjK9ZbzxpZ39CTJ9kx/u1yvhiH2XtiuyfcHdxembBbGUsfgHz9lf9hKoJ
phl7nI4FPqWjtfKDMNucf+ZLER1vPHoenXRuEAYsEw52s+l4XXHcrypnEHgV
SnY2ynS86m6zVfx2EJRuqzezBpTwIrVkprviL8g5buHHuaeEx52fPDSK+QWj
f63Zen6pEnoKCtoenh8Cn/HQXRfcFNFtPf9Nz90hEPgnPjW3VUSXNIsc7X+G
4FxC4+4lZopoOqfF6iWNDzci6px9RQo4q8aFMFzHh/VHd0xzvq6A+kFjY9au
fBBtrpoURCqg7qwrPO4ffLCMm75nyE8BtQOb3ked5QM/QTjWb6eAqrpbr/Gq
+CDbYlHYypdHRsXIebkWPuyslpgZtMsj/WBChG4vH/aE/Gh4Ui2P8mUN3hyF
YTiWms94nyWPk/u3LChwGIbGA2fyInbK46+SjWWh74Zh6cxJB2orDU2U3gYd
axmGjWCdWlZNQ/ftOPfEj2GoOLch9elzGtYIF8eepY6Ads6jGrtMGt5eMt31
Co7AqkbznJoDNGw7fVkxZfMI/DWNwmDvoqFGI/15mucIWH6xLnnBpeHJANns
v8NHoKJO5nfIhtTP/9b3sHgEaIO6zmoMGiZO7Ex78nYEemKUZTwK+T+n5k3P
Po6AnCnVcmiMilb9b4veCEj9+H7KiU4qas7Nj6i3HIVlz1K90p9SsSYzVP1X
7ig8E1Vv8PGjohyfXz78dBSqg7c1vfMhvwffkLGqUXBacZrKdadidrv7l4me
UQgoMU6rd6LiKV2728qGAjiVEjsUaE7F4v3Pt6lZCqBMxfQb35iKv4qX0jVB
AJWdepaXZlLRfdtcf10PATTZHnZZpEbqJzGs56UIIM6YvW10lED/7jMD5rkC
uKdXnndokMDsxVPplk8FoOP93U+1l0BWw/A0q2YBBH3Ibrv5mcAhlZbadepj
cNVlgdbccvL9cze9fGLGwG6qwNYnhUCvQr8H91LG4KuRhL06iUDdL9aTgjtj
4Ft7gbo0nsCLCxtTz9SMgdamKL2wMwSGNE9ryVYWAjNr7V7PwwRaTtWZDOkJ
YTRjeNVMfwL7zVKDVpgLQb4+cofIl0DP8CUa7zhC0JccNprwJnCdkc/Gvjgh
KC2pPwfOBFI2WqYtyhCCJP+lcv0WAp+FTPQfvS+EN/m2wUc3EriwJima/kEI
kzMd2rUcCOSNerVwO4Qgu71zi+JaAm/NXGCaOiSElaeNEzRsCdQ+VFnOZopg
0bmgYL+VBNZfv6wRZCACy9IZiS+tCDxf4bH7haUI2rNzQo2XEzipI5zk/C4C
oUV08rJFBP4oNbU5mCCCpuKgAE8zAjN5I9FPbolgte9SmYcpgW4ar1omH4pg
g+Nz30BjAuv2bguO/1cEdy45UT8ZEBgdb1TR0i2CA582v54/m0C7kiENA4EI
7g/QIy7NJPAJI7qggCWG9JR7Bsm6BAYsd54SG4thzjyP9BUzCJzvZbDJdpkY
1hRy1w3oENgT8zMtxl4MR96weYXaBGYUFQ80uIihMnHxlgtaBG5vj7LR/UMM
HE83TiiLQA2F32O8Q8TgWLgqL1iTwLNufaajV8VwNuJtXa46gRj1OHhljhhC
Gv5Z0s4kUJp/qiLyqRjiA1evMiL5UctGzdq3Ynje+qEkTI3Ag3K63qxWMdCm
1R3vViXQjP2jwJ0nBi3D6Z4eJH9zfjj1t5g8v6shm6dCYNrx45sGFSXgGThY
Ekmya65j+rIZEgioVO2wIJnZqP0zYp4EBgVZ/j8ZBNaMf7OpspbAmXYX2xKS
o0wexKg6SuBVhMv8qyT/tvlYq6ubBLT6d8hFkiw+4jD3hq8EFjhmpJ8g+eEt
zZDeMAnodXR8vEDyX7UdFRYXJHBAw/1MDskmwjzNI6kSqI6rO9VI8vTK3+fk
3ZVA2d66zYrkeehJIsuvJRI4ETK02IlkmXc6qFdLYNLUm5FKMn/Rmk1rWyVg
51H4UkRyN6XPPbRXAir4xmw3ef+PHy4euCsk9WTvLVpIrs5YGtZOk8Jv13wf
7yDj98LvczRTSwopj0+k8Uh+sOpk8hpjKTwLdnwXScb7lrJpdsgSKdzm7NRn
k/mJvnOovO13KRQNz3+frkHgsSM6jWq7pZBjfXNkH5nPgw4vO+0CpLDXq6YB
yHw7f1eczL0ohTsmVC6T9IfDo/uMtnQp+C1dWapE+scm0llPLV8KxWL/MNXp
BBoYZloF/0PqzeKGW5P+0+TbO+R+lkLV+qD4XXoEyr8acPnSJwXHD8fiLukT
OOC+4rCt4jhwE8x5GqSfv7LbTwXpjAPLKYzlQ/q9Xnr6Uo7pOBCxgppXhqS/
r9Xlq9iPg3Fh8pGrZH2cbtrL+3RqHNj3v2wtnU9gcJayiHF5HJ43SDm7zQnc
F1hIw8xx8PVg6qkuJHATUzYnu3Qc7pqwOqPIepzBSfIIHB+HpNTRVz1k/RaU
lzXSgyfgmJLjHPcNBGYl7OtaHTUB/yQl1CQ4EXh1tyo/IHECDjc0KDaS/SN8
aodKS+EEGK2Lm9zPJeOzctgh69cEnHD50CbbSd7n4eyXK/fJwPro9v3ZAQS+
twqcPydUBlui5c9uIfvbi9KKZMWzMngQ+qpDLoTA1Jr9gc1ZMqAEWjDDjpH1
961orn+HDLqIqebSswQ2qK9PuOU6CXa+XkNxGQRWBAT8qWQ/BcnJLvW8RgKL
hGVNQ1unoLz3UafXRzL/4Vp2H72n4LfK5alfPxF4KvqZftbJKfiT/W93fyfp
/0xq46oXU7DqkG26/RCBbX9yZhXPoOCGGSN1UgYVXZI7owcuUTD18703hhwq
XnQoUpFLoWCmSVzelS1UfCc6k6B9k4KbPLo6VF2oaLOdnWZbSMHBhWOTTE8q
zpoR8iC5gYJ2zVdk3AAq8q4rf1yjIYfpXWUnK69QMSxjuVFaohwG5ns4mPRQ
MeN27EvO1WnYNWGWzIqjIXWn3yDtKBUbrzG5of3yWOd1J4cbJY/fmr7ecI9R
xMcquh6ivxTRu8wq3s2YjqbXDXkKHDpejO+4q/dWGaUhUbK8rQw8ZL52lud1
FRyQ6qnmWqniZw6xM3+bGmb+ea5Jz4icO2PtVw5nMvGSbW3sDBN1PLx6LiQm
qaOqf55duZYGMpo8F40e1cDStcUvn+hqkn2iteR4kCbK/HYtd1VlYcjjwara
XSyUU2hMYctYmMG96BfnoIXL1weWOVK0cbsTvXZijTZK2+7xtEa08bdY1VSu
pQ6aRgYYiCt18P/z/38AlW1zBQ==
      "]]}},
   Axes->True,
   AxesOrigin->{0, 0},
   ImageSize->{521., Automatic},
   PlotRange->{{-6, 6}, {-6, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.389234395599141*^9, 3.38923444532071*^9, {3.389243772409272*^9, 
   3.389243787435215*^9}}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
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, 372, 11, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[987, 38, 369, 10, 45, "Print"],
Cell[1359, 50, 130, 2, 23, "Print"],
Cell[1492, 54, 463, 11, 23, "Print"],
Cell[1958, 67, 116, 2, 23, "Print"],
Cell[2077, 71, 504, 16, 71, "Print"],
Cell[2584, 89, 128, 2, 23, "Print"],
Cell[2715, 93, 475, 10, 45, "Print"],
Cell[3193, 105, 286, 6, 23, "Print"],
Cell[3482, 113, 499, 9, 45, "Print"],
Cell[3984, 124, 517, 10, 45, "Print"],
Cell[4504, 136, 353, 8, 23, "Print"],
Cell[4860, 146, 135, 2, 23, "Print"],
Cell[4998, 150, 630, 12, 32, "Print"],
Cell[5631, 164, 131, 2, 23, "Print"],
Cell[5765, 168, 120, 2, 23, "Print"],
Cell[5888, 172, 372, 10, 45, "Print"],
Cell[6263, 184, 511, 16, 66, "Print"],
Cell[6777, 202, 313, 6, 48, "Print"],
Cell[7093, 210, 121, 2, 23, "Print"],
Cell[7217, 214, 300, 8, 42, "Print"],
Cell[7520, 224, 377, 12, 61, "Print"],
Cell[7900, 238, 129, 2, 23, "Print"],
Cell[8032, 242, 1109, 32, 148, "Print"],
Cell[9144, 276, 117, 2, 23, "Print"]
}, Open  ]],
Cell[9276, 281, 6955, 122, 526, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)