(* 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[     21730,        538]
NotebookOptionsPosition[     20360,        492]
NotebookOutlinePosition[     20777,        510]
CellTagsIndexPosition[     20734,        507]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Etudef", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"x", "^", "2"}]}], "+", "1"}], ")"}]}], ",", "x"}], 
  "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.389177704738393*^9, 3.389177719262574*^9}, 
   3.389233146120224*^9}],

Cell[CellGroupData[{

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"Dom f = \"\>", 
    "\[InvisibleSpace]", "\<\"\[DoubleStruckCapitalR]\"\>"}],
   SequenceForm["Dom f = ", "\[DoubleStruckCapitalR]"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.389233157356915*^9, 3.389276371561233*^9}],

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

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

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

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

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

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

Cell[BoxData[
 FormBox["\<\"4. Intersection avec les axes\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.389233157356915*^9, 3.389276371598551*^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.389233157356915*^9, 3.389276371600235*^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.389233157356915*^9, 3.3892763716024427`*^9}],

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

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

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

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

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

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" I : \
(\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/\\@6\\)\\)\\)\\),\\!\\(TraditionalForm\
\\`1\\/8\\))\"\>",
   StringForm[" I : (`1`,`2`)", -6^Rational[-1, 2], 
    Rational[1, 8]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.389233157356915*^9, 3.389276371696232*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" I : \
(\\!\\(TraditionalForm\\`1\\/\\@6\\),\\!\\(TraditionalForm\\`1\\/8\\))\"\>",
   StringForm[" I : (`1`,`2`)", 6^Rational[-1, 2], 
    Rational[1, 8]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.389233157356915*^9, 3.38927637172138*^9}],

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Xk0VV/0APBnHpMiY6UIkVJpIMO+UYbIN5EoUyRRQhmKBiTzPJOEjCVz
ynivMg+Zh+e9d19F5nmW6fd+a/1+f531WWevu+49Z91z9l77sKXDdWt6AoFQ
T0cg/O9olR8+u7PDj/Vb3hpqCKMC74aQhOImPxbRlCCQQXOteoaJ6xo/FtdW
oexNswRe1jQ1x49x0nneVKJ5gnPoA/E3P7ZQPN+QH0oFR7uzRsU/+LG7KxlR
USFUeCk+iN3z48fk+/eE6gZRIfGtWGQbFz+WZjZdGOZLhfdUfwc9Nj6M6bZO
8QUPKvB16P8ntW8fpnVzr5+UAxUar+lfahHnxVqYCSdz71BBU0rcWUyUB+sJ
PXer/RoVLuSZZLbL7sWEz8ncCVShwr/AezynpfZgXcf/JRlLUmF5NT3GTJIb
o7C3m1/npMIt/69xSWLcWFujiOIwBxUwgeaEQRFuzCTctdWF5mCF2XeGAtzY
ryBZ7nh2Koh6KGTqsnFjeqHhvERWKqRsvrV/0bcb89A82qfDRIWbbDP5yma7
sZeu4zfWt3CoFY08U23PhV2q6GIxnMFBty9kIs6aC7tVZHuocRqHgYCAFCdT
Loywq7VFgeapOU9O8atcWJ/geaLwFA48qMNwkAwXxnnB+vvgOA6Wt69GG0/u
wlYL1ezU/uJAiGZdWrq/CxOR7O6qJOGgyPSq+NhdTsxp6A/PmQYcjo6EsIWb
cGIFne3xkfU48DUkmS8ZcGK8zRfS5upwmPMv56i6zIntTMcjn2pxyORcsdKV
5MR0UkvfCX3HYS+vPa/TBAemxu5q+7sShzHR2y6ljhzYuUXTDI4iHKKR8+cv
vmDHspW1zYsTcWCon6W0uLBjZVZ/0xcScHisne1j+Igdu6TVeO0UzXqGgl0P
zNkxd5ehgdw4HLgebjyMvciOdae8j0+KxsE/Dk2bZGLHRmdWL5mF4vB8RoMr
NpQNu2YlnWjthYNVktHfifesGOoQ5XTbGofwklHl7jhWbKiMmnTrLg7Vra6x
FWGsWBMiRzKywkFoK1oj+BUrxpjnHHz9Dg4dpp05x81ZMVnp9NQLpjioiFx5
5HiQFeOIPBtFNsBBME1xdTmJBePTyxQ0V8NBvbz5PzyaBXMVFzVWUcXBucs4
uz6YBeOWvuez/yLtefRPjeOes2BvovH4XhUcfK1KKuRNWLDaQ2pRFy7gsHTk
uKeHMAsmq+8U/fMkDu1ZB9noEpkxa11jf94DOFhMY3TOkcyYAnQaDAvjsHDa
6t9IIDN2/l4QS7EQDrzVWZOtHsxYj/pjoasCOBj1nPwZb8qMzSP/dTzhweEP
QS3q5GFmzLylTSOQDYcVY5sDFtlMWM1qsH7nEgX83rPxdacwYVsikTIeixQQ
+PuJSz2BCcvmPVcltkABRce5nWOBTNhn45ltx1kKePo++7P6gAn77pPWtzFO
AfbioKwwWSbsb8S0ZSdOgYOcBafQUkbs8zu6WocGCjwaPkoOy2PE0ghYdWsd
BaorU30tMhkxRsULy5K1FDC1jyLRxTJirc4uHESMAkk/Xd9ccmHEBn6+jxUv
p4BghDKxSY4RY55DRqxzKcDL1+LZU8CAda59fOQYRoG7M2rHMrIZMImVpqqw
EAqU1Ff2uqQwYN7jAXO5QRTQd8uT5g9nwHxbkpZ++VEgciCix9iBAYtY/Swi
60mB3W+NjlKPM2DFtYfP3HGkfc+hkfbxj/SYD9tqKeN/FCAnsbb8SqPHVDOk
Lg7rUOCz4LH6/kR6zNNsyqjmCgWu8ThW1gXSY1h0tKizOgVimf9lp9rRYwsb
ol8rlCkgOr3L21iaHit88zO6/RhtPcvPnmnKocPayJsyM0wU4DxvJIul0mED
518NujFQAC92l/6aQIf5i3yN2iZQwPszeigjgBY/zsbPsEmGxhStXV62dBh+
tYg6Ok8GAz/TEXkpOmw8T/vafgoZHhq8ic/OJmCjJ9kCdhWSIXW7XE46lYDd
Vf/VaJFHhr7suZ+fEgjY7c0z4wWfyIBs3WbKDyRg5TF53zQyycCbefrxl4cE
TPyrM9d/b8lQtUrV/n6SgB0NXriB+ZBh/zmX7a9OO+jak20fthtk8A38dabC
cgc1nu8Xn9Ujwxyu/aBafwd1Fh0hdOqSodZPdKD27A4aO3FVN0CTDPbE9sLO
9W105UFJSosiGaqfS1tPem2jM5pm3RGHyWDxg9pyMHILzZLfilwdJ4GG8po1
xWsLZXyQXMQ2QoITX7kJSU5baOu68kO+PyTY/HjxjKDeFqpwj91fZJAE8ZEf
kni4afMxJTdnm0jQccfGnjV0E/W0tal/nk2Ci4RZroWADZR+yVuC+Q4Jjrqz
5BQ820AN3+yevGlCAu4lETUH2w10lktyNe0mCfDRa25TmhvoC+G2L0d0SeDe
XkQdYdlAuVdsXHsvkKAo2bWA9OYfSjght/VrLwlElbf16rzWUQJ7tJ1q1SB0
7FGWSXi8jrYKyPxj+DYIL0c8mO2t1tH40UG56qJBGAxbL+e9vI5miDA92Z89
CFF/lsTusq6jDhMbZS8jB4HRf3KZPmwN5eyrGP5pPQgjXQMJSNIqasu9cUqJ
eRCis/ideUNWUQEhcvHaDhFUnxvqjr1YRW8aEIVy14mQLN5DH26+in43VTNa
nSLCzaftD6iiq6hzyU7zgW4iNB6oV36Zs4L+p9Sx+fYdEXLuF/+uKF1GE9Nv
O/2RJkKP5XsR7cxl1P5sd943USIQTINMB2OWUeZP1xK9hIhgqGdFXHNeRpF7
h/ZNshGB/gJP51m5ZXQk4N0PwbEBuMXxBMvPX0KTRg/k/kwdAPa80+8/ZC+i
FvlVNp1sA3A2+yDldDzN075ijTv9YJHGLvzdbxGNXN1Y/7zcD6Wxf2J/3VtE
nwqVuqr/7gfLV5GhB8QX0Y2Ba6JZX/uh/NrCi7jUBbTF64U0+51+sFssNAlK
nEczhEXfWGX0QcK5eUWbwHl0kl4r+WxCHzQ+Oyms5j6P/lxNOr0Y3AfihHzi
P+N5dJ6Uq3jSuQ9+ceYa2gnOo3fml39+vtgHNyQyr2nFz6HvRjNexA70glfR
mQAumVk0waCtnWe5B3D5Yo16jllUKvy/UM6RHlBCTzG/nJxBJ01SmKb6emCl
5cTr6Y8z6FQM4m32rQce/j36olVqBj2+RbXf5d4DRgIHnAIlp9F5m3Jup7Vu
OPGSyZhZbBL9K6isof6rC4TKO+LGGCdRec1pN/b2LmBaedvXPDKBrpA5U0uq
uoBsf9og7OMEqqSv96Q8sQsCTc3/Ezg9geau7dYJ0O+CUaWyy9IXx9EB6nT/
QawTUjYentY1H0X57HIOJ/t0AM+zHo7Yt0Oo18KB32GPW2BtZ33PrPsQujDG
wqGo0gK4r4iA5q0hdE99vn02WwtkR9sd+ScwhEqvLeW1vG8GlQKCslnsH9Sd
W0dBtakJbEdlHklE/EZlEk1GXfY0wstP7Kn2u6joRsupB4XPa0Gr7MZnkVYc
HfRMucquWgu8DSllnYE4OttuwKXKUgs5f851nWXF0aVcF1aDiB/QI2jFsE1P
QQlXPkoeT/8O0v4V1qFrg+hBXkm7k/UY9N99KJ0/1IdecSeYi/GUQzXl2vnS
zD7UyW3QNTW9DDINz16qsu1DWcin42+dKwNnzW3TltledNjqhGT4rW/ALRMe
MbrRg97njuQMyiwFrcXiNRHebjSW6eo5Br1iOPkwnkmyvwvV8B5XdBorot2P
z/eeSOxCm1+8MbH1LIKRvssySoe60O6My2a7igrBu7zf3EimEx0tFPes3F8A
LgyrIYcDfqKC2bG8YlIf4dIymiW7+yd6IuWAlt2jHNg76l+jHNOGVtjZ9bp9
yYa8ZqFl49RW9MjTlWQerSwYiVAxiSxrRkMs6e6G+KVDyWsW1xRoRpUH/nxS
J38Ab5eOsLy6JrSOEmV0WO4DiBhb/mjubERty18N24ymgtEhX2mGiXq0Iy52
YKgvGST2/ndpj2M9eknC4Skl/R0sMQiYiazUoSEF863NbkkQMZoToUhfhwpx
9Ozuk0mE5ry2tSdCP9AfM3HP1ntjID4ldq93yndUWZ/FgdwWDfcizWXCJb6j
Wad2Dhu1RAGD67x57ukadF3BW9mmPwLc3KVDm2KqUatIQa/fD4JBd2auLz+z
Ch0MfPKyvCYQJCy/isR+rUQv9kXSPxILgF6tS4WWxHL0wIGbF3+z+0JuFfs/
zYkyVHs+35IS7gM+pzpVZTe+oc7C+9pkxF6DnKBZz8b+r+hJQpH1WXtPYA85
cuDP8VK06lh4u+aVl7T8Z9K6UeULGq4wn5Le7QERY26r0RbFqIptnF2CnBvc
N1FBPJyK0LrWzPdh7C6AdDAG3PEuRHdUXNmqNx4D7iB21kQzH70ZcOV9561H
EHKzoP6o3We0aSakwppsB0qgbLQc9AnVY6sYT4mygUmJ5vGazznont0nsuo9
70Ii102P0PYstBw1VeNLvwNaK0Oct+cz0MSaR5kxG6awRnFMluRJRyXsIq+c
228MWXVbsktn0lCNnFf2Tz4agOHnwBrMMAXtJbhcz8m8BuzSsplC80lo/fbY
X0PRK3B/XbOp+EwCqrK/iuTfowb1jZZTOk9j0INlKr/7G5VALP757pGKCLTZ
WfjiULoc0LfLWG9vB6G3Ldv8/3ochSp7i08nfX3Qid+Zb32uC8G8wNGhOiF3
9LH2m0QJbSboyD1INbh+D+U3NEYXxKgqjHe0D/mr6UI5w4cQ6fe5Kjkn0tw4
yx9DzHSuZffEskrC03fL3b2ekNlJLDxTugcoRNv8VF1/kPBqnjFzEQVRxXO2
Dg1hICpvp2EeJAtyul4RB1OiYNdp6V+MXPLQ+9Lm0RuTOOC4V8XpxXYR3PKv
ak8JvIV7mq1ck+PqIPRL7qh+bzI8oxwZqsu6CmasIfQUzVTQ8MMCVVOvQ/4h
ghO35AcYUnM/V0c2BILCE6oaUwbo5G0x8fjeBj29katuQ5nQwU2fYa1rAWm2
xpUfa7LhsOphfVVuK7iUCAl7XuYCn8KWdMw5W4gpKmK5bJIHHNdtPwUnPoQn
f/cqKh0ogM8VOiiDkCPUbr3JcdgoBLHJYOkTDM4wFYBaBEwUAdcbA2dtEVfY
x7fO/4FYDPhBO5agG0/h3omHvn1fv0Ag8crxyt0vILQ8Q3mOdu7QVd1+rxv1
Cr6qU5fYYr+C7d2OGFEBL2A1v26l7FwGdOH55+sHX8PHMHkk/WQVPDpvklC0
GACMte8rWc5Uw/ife7PylUFgvsas8OA8Cmm791klRYZAYMGEgOB7DBKsBjCp
knBQESzb8yvjOzSDr7YZMRoeFE+1R0j+gLSLsUGlC7T/++qhULWcH7DBaJNz
ZW8cLHj5sWfl1oKDUWZynVUCZE7cYHhUXA++Ac/v6V5Nhm6fgBqRsw2ga2om
0xHzHggiVa86SxvA+9RdiT9OKXBL/8jmmfJGcEBYuNsaUmF35cLSBtYM79hv
rLFEpsPTkLCRgJ8/4bjZr6cnoz9ChuSPdMVr7dDvxnK22PQTdNWsWE53tkNb
3vz0PinavmzkOWTbdUDgcmDJpbrP4CjLN8XxqBNuayl+/+tfAOLxw8Ndzt1g
xXtQaHy1GEJtvfosvPvhhKB8Y6lcBfi30H0Zru4Ho29jPDxpFeB93Dvq/kY/
3Llj3BTDXQlu897XHJ0HIPCv5OHt6UqweObT/OoeEe4zvG6czKmGUwF+1clX
SJDxooT4fE8N9GSHZJL3UiE4uOR8hFct/GTnemPxHxX0Dy0nNn2thcaHoVbD
QVQgbRMPDU3Xglm8Brcr/S+4wxRw44txHeibaLa98PgF2czKp8tl60FpWEsj
xP43CE8p3XfvaYBdSzqKuXpDkE3Mba3ZaAbuwdNWbo+HgN78fGfyyRbgxQSC
VKOGgEWoIU3ZugWEgocHB3qG4LnU5cXqthY4euS5O5PRMBy7zfyi7m0rqBp8
KjMz+wthfndz3x37Ca4lbPJ7HozCgyOmPFnBHfAscdacHDQKlqpld1bTOuC5
Z69fVu4ogG6ykkRZB7zWSe1XnhkFf8eWepG/HRA+LO9m5zQGokJZ5a8VO+ET
7/3SH27jcNvmnLbIn0745Vx/xtVnEtS/stLd5O8GciOTUHb6JMirLzZeleqG
gf2Xd4i1k7CZwfpUUrEbOmp/NCkzTYHaci6fj1k3YLw1Zky+U0C/N+PMyIdu
eF9S4R/tNw0iew+32Ev1gNlSAbkocBa6av9ERR7qhVuaczXDH2dBMv1i53HZ
XriRJJvF1zILjIk8HwuUe0FCtF++imkO9Db/NNrf6oWDzTcYDqvPQWOy8VJT
ZC9wCenHj9XPwWiiWvSxnV6YKbv63a1xHrhPSBm8baDli2wNzh7989BZucGd
3dUHJkaI5KuReTA/5JPygdIHzSung30ZF0An7HyOzWIfZMgJGMYgC+DVYuss
cbAfTD7/GS/6tgC6p+uF4xz7oTnFbc9M9iL8dlIt3qblw3Rzcz/mvy6C++9+
WSGeAZAHO9fl+kUoUJpvkNw/AJkUE9Lm8CLtXDr1UfDEAHgJqWZwHF4CvMSw
5ZYeLT6aU0EqYQncfh/8eC+GFu+XanE3YBn42fyyVXiJYFFon5+bsAylYq+y
HuwnghBJYXspZxkMe/y8g44QIfRE19s3zctwyy5SNv0MEVx76fszOVZAe6me
S8mACOpid6+Oh6zAXufUaKEIIoxUS1x4FLkKLINT8rL0g5AytuBfmrYKUZqP
lYdZB+HWXrR/u2gV4o97UkN3D8JP65suYd2rcFzYXatu/yCUcvoXFPCugZ6C
adO3c4Pge2tcYjF2DYoHjqQ23x8E8ZVPPE/frsOFb+8ieOoHQaBOT/TTx3UQ
Mjjeh7QMAnv06km8bB3Wp9im7nUMwtwpNd1LA+ugcdKj8t3gIFTaD/pz7/sH
R/snka8zg2Dwl3U7O/Qf/P6VxpO+jwTePdZjRK8NOHtW4UaRGQlcPnCsckZs
wMRkUNNuKxLcf1zIhKRsgLts+kMbGxLocm+JZlZvAFd9ijWTIwkEdaJNH29s
wPG6szJbniQo+PG9i91lE45XXz0wnEqrH4tEqhTvbwG9tl92K5UEbfKPpUXd
tuDA1q7CR0MkqKyujWP13YKWCeQY5ygJ3jbbPu79sAVu/NcjFGZIYPSnWNKB
ugUeeP+42SYJOvdoRqYZbgO9hVcHkZ9WXzs62rBd3oEZ0wzBam0yFK9875nV
3wH7OmddEq3+Tnu+T7XPcgeK3zH+WKLV517+5fs/eO7Q7ilF7/1GZFBJYexS
qtyB3FNZK3CXDGQbnYPfBAlIUNzma5IHGW7E/fKfDCcgQ5Zj6QHZZAjVKN5F
l0BA/Ogl/Z98IkPj6ptIvlQCwvKY64dxHhkuGB1LulhIQIaVT90ULiHDQUHX
/LhOAiIq2JXwBCXDWCJHn9peOoS6U2//opcM7snnxJKi6JDk84LWwju099dl
yy58S4ec+D7RkEhHgaltkkzDBzrkjGmNFD8jBczMvc4tFNMh0RGrm8xsFFA7
1Kql2UOHpMow3vmxlwKcaXccl3jpkfI2P0KxOAWSM4KrdGLpkfl3BPYgLQo4
H9VJ639Hj8xyNDaFaFNA6xOHn2UGPRLdFGMeepUCSwWB156W0CMfNhUFA/Qo
oF3pP/Shix5p77rLb21MgbUuH7YNLgbkgTi5tuw+BfQIL27k+DEgxBPVIuNv
KCDxWunCmTAGRNpZlifXjwKbTJsH0VgGZPBUlJx9AAWyOTzGejIYEL61OcaJ
YAps8z3zINQyICRWq+M/oyjw8bhL6k0CI/K8wOeDaioFGG/bTzM9Y0S+JAoN
TJZTQFjb8JCcFyNyeWvyaGIlBU4rgr5FACNyX/t5tno1BSyE95SVJzAiXGEM
Kok1FKgilfg4lDMib+X+sMo0UsDVZFOYuMGIVFr3XdzsocC4adCV3JdMSA8j
XZj5NAV+WuRkXfdhRriXbwhnC+LgLfbqwnIQM9KW+riBIoTD2RGDtrgoZkT7
wY3re/fjkPSAsEhOY0b6L0+wPT2IwwPXmyo2NcxI1tMrEufEcGANZur12GZG
3ONOKb+UwUH16x36jKcsyCHT683qKjh82SVkuvqQFfEYukj8Z4bDyDH190+c
WZFQDU2WaXMcBK48/j3rwYoE9unfwy1weO7bbD0WyIrwb+6rqLbE4dKO+yNi
NisSbqM64HIPh6450quKYVbk0LZURrU9DjPd79JembAhTgtjDzAPHCQSD4+x
6LAjdJCuXBCDQ4K421MJA3aEUrVT+iYWB87CVtbLJuxIwNMW11txOCw2uEl5
P2RHDLd3WukScMCW2+w2g9mR3UnFExpJONzWc5+ea2NHtCo1kovScAhn7V4g
/seBDHJ6XWbJx+Gfq8/WJ31OZEpeS6O3Dgf23vppuM2JLIg55bnW4yAkx4Z3
W3Iicic2E/kbcFCYDanecOJELLyOMBs14vDUJu6Vdjgn8ip+41R3Mw4rNz/S
TbZyIjY5bRrF7TgsyHcwSavvQmzUkbADRBwm/wlzZctzIVzS/5YKJ3BQqvfT
wREuxFtw54baJA6hEYuBvFpciGGNqHoPzSePtrB4GXMhD5mjepemcHC94U53
y50LOWEZUXVyFgdCwcASRyUXUjHKwBu9iAOfdQzJAXYjjnzpPzk2cUix8esR
FuNGpndbu/VyUIHV436LmCQ3sq8SzdTmpIJjqNb3Y8e4EWkieNXQDF84ChTl
uBFUZV4+dxcVcPrwoNtq3Eji+eaKF7upsD85XvWtFTcyUFesv4eHCvE9OQVC
6dxIt9xRyqYgFcIvtgYLiu9BvkySWpYkqMDl8En1x769yM3tI5T7SlSovvSt
qlSIB4GjhoQr16iwZW9+zpCLFylpClBALKhAx9KVcGyLFzF4pJQwZE+Fc5qP
v18h8CGCv44/bnenwj9y7ti+BT5kD09GoNUbKswK7uuRXuNHap65e78Ko8Il
1tdHr9CccNgv3ZPmxJW557Y0rz8Mq/eiWb27VTyb5o8zkew+NCcH+7iJr/Mj
KinWkf406+wsCh36x4+UtCukRtCcM9x1Z98mP/J6413FB5q3u5DSMzQ/AxFK
Os0GNXnsBjRjUknb/9tfIyQHFkfSHDXvfzGbZqObqkzcW/xI87UTDbk0MzcX
ZrNv8yMki+zOLzSbfBPZkqL5LO/wQinNRZkhelo0qzkI836j2fS17T8/mtv3
vzAsp7lE6bAO0w4/ImDESaqmmf1YWMoRmt20xTdRmi0Et5bUaJYfVThQQzPn
ysA7b5rVBAzNf9BsOay+kErz18+mnrU0f+sqUa+heXTSIrWOZq4a0be/aJ7s
Mv9eT/P/9ROR/+8n/g9B5jVi
      "]]}},
   Axes->True,
   AxesOrigin->{0, 0},
   ImageSize->{592., Automatic},
   PlotRange->{{-6, 6}, {-6, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{3.3892763721273737`*^9}]
}, Open  ]]
},
WindowSize->{753, 795},
WindowMargins->{{65, Automatic}, {Automatic, 1}},
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, 345, 12, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[960, 39, 418, 11, 45, "Print"],
Cell[1381, 52, 150, 2, 23, "Print"],
Cell[1534, 56, 307, 7, 23, "Print"],
Cell[1844, 65, 139, 2, 23, "Print"],
Cell[1986, 69, 484, 15, 62, "Print"],
Cell[2473, 86, 149, 2, 23, "Print"],
Cell[2625, 90, 527, 9, 45, "Print"],
Cell[3155, 101, 536, 10, 45, "Print"],
Cell[3694, 113, 397, 9, 40, "Print"],
Cell[4094, 124, 155, 2, 23, "Print"],
Cell[4252, 128, 596, 12, 23, "Print"],
Cell[4851, 142, 294, 6, 23, "Print"],
Cell[5148, 150, 142, 2, 23, "Print"],
Cell[5293, 154, 486, 13, 48, "Print"],
Cell[5782, 169, 554, 18, 64, "Print"],
Cell[6339, 189, 279, 6, 23, "Print"],
Cell[6621, 197, 145, 2, 23, "Print"],
Cell[6769, 201, 656, 20, 53, "Print"],
Cell[7428, 223, 841, 28, 83, "Print"],
Cell[8272, 253, 340, 8, 44, "Print"],
Cell[8615, 263, 317, 7, 44, "Print"],
Cell[8935, 272, 149, 2, 23, "Print"],
Cell[9087, 276, 1245, 38, 160, "Print"],
Cell[10335, 316, 140, 2, 23, "Print"]
}, Open  ]],
Cell[10490, 321, 9854, 168, 594, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)