(* 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[     17594,        440]
NotebookOptionsPosition[     16265,        395]
NotebookOutlinePosition[     16683,        413]
CellTagsIndexPosition[     16640,        410]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Etudef", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], " ", 
    RowBox[{"Exp", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.389234602601288*^9, 3.3892346116871433`*^9}}],

Cell[CellGroupData[{

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

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

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

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", "1"}], "    "},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", "1"}], ")"}]}], "-", "0", "+"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892415463465652`*^9, 3.38924161180472*^9}],

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

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>", 
    "\[InvisibleSpace]", 
    RowBox[{"x", "\[LongEqual]", "0"}], 
    "\[InvisibleSpace]", "\<\" a gauche\"\>"}],
   SequenceForm["AH", " \[Congruent] ", $CellContext`x == 0, " a gauche"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892415463465652`*^9, 3.3892416121187897`*^9}],

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\!\\\\(\
TraditionalForm\\\\`\\\\\\\"Gf \\\\\\\\[Intersection] X = { \
\\\\\\\"\\\\)\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"(\\\\\\\\!\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\(-1\\\\\\\\)\\\\\\\\),\\\\\\\\!\\\\\\\\(\
TraditionalForm\\\\\\\\`0\\\\\\\\))\\\\\\\"\\\\)\\\"\\) }\"\>",
   StringForm["`1` }", 
    StringForm["`1``2`", 
     StringForm["`1`{ ", "Gf \[Intersection] X = "], 
     StringForm["(`1`,`2`)", -1, 0]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892415463465652`*^9, 3.389241612142576*^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.3892415463465652`*^9, 3.3892416121646*^9}],

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

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", "2"}], "    "},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", "2"}], ")"}]}], "-", "0", "+"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892415463465652`*^9, 3.389241612251227*^9}],

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

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

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

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", "    ", 
      RowBox[{"-", "3"}], "    "},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", "3"}], ")"}]}], "-", "0", "+"}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892415463465652`*^9, 3.3892416124208603`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" I : \
(\\!\\(TraditionalForm\\`\\(-3\\)\\),\\!\\(TraditionalForm\\`\\(-\\(\\(2\\/\
\[ExponentialE]\\^3\\)\\)\\)\\))\"\>",
   StringForm[" I : (`1`,`2`)", -3, (-2) E^(-3)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.3892415463465652`*^9, 3.389241612466445*^9}],

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

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

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

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwdl3k4Fcobx885lmRXx5JuRCmkCKmbmBPKUgmVq1IJLRSVbNlT9qwJ2Um2
utayO++cFnuWErJvIWSX/Zzfub/5Z57P88y8M/N9v+88MxLm94xukAgEwgEi
gfBfb5EbNs1gCOMp6Wo8cj0AyGuie1TXhbEsV7E6n0MAfDr52tRxWRiThjfr
nfAPgD29pbWTM8LY7vuEbGdOAIxzD736MSCMLVU52DLXA+C+9SGTwo/C2NWa
ntoVGwgeUp34pp8wps65xfYNBEFs3K6IL7zC+HJa0z6D+BDIVniZUswpjEW/
WL/heR8CZZ9581PYhXFUdTe150sIdE6vNDnQhXD6zsqW94wQENVq5hGbEsKn
pQfWTlqGQtykW4DtFyFsdf4Cl5tIGMSrtXnxPRPCYYQWfsfJMEjq879nuFkI
mzgYiM8WRIAZF0eTF5sQPhAV19aGI0DysN+BPKIQ/l2rzVnVGAHpIT6/eVcF
cTiv3zoej4AcNe87DeOC+IDe5dcyu55DRZzrLe0GQby/4fO3uhfPofMf22tq
oYI4+etJ44fekSDUfO6sjKAg7qx6kRXtEgU1Bue06qXI+IL7Y3aBjljQkZGy
3yW5FQtNzPMnHEqGozmm6U3yW/D2W86bciivYDXw5lZFGQEcrGF5aZ2cAYtL
aS+u7uXHxrYnjx248wY+SUYoU2148Ypt1FklRi6osnkW7rPkxjNn4maCPhZA
JOXw4ePunPih0+RZ18j3YBFv8nM8iQN70z5qyXiWQFOG2GZiLDu+7cJi2veu
HMx+Y6J9BDsesbkxlYfLYU7RYnUkkB2zVwSTvRrKgUzNmGhwZccboe59QsPl
YNKq0BhzhR3HEv6i7d5aAYMEzecKEuz4xSbP4cL7FfDn4q0dZplsOP19quM+
mUoQ4847CEWsOGROu9M1iAq2w9LdoTms2G6gdIQnmgrUihRfs3RWnNBgFRGd
SoUrNs+7iFGsWCP+j2F4KRXiGx19tBxYsalPgvz2USpsC1f7UavEiu9JW2TY
UADIQvVerXksmMsk/57cBIDllOa+15ks+JlRhKfDIsC7qorvDsks2OxciGgB
A+CcU46scBgLnt4smkfixBDREd568R4L3l6dwM8hhoEvzkS6bz8LxsdJBXVa
GDh3jjT9yibhU08v3E97hqE7nqO+P5WEveyir9SEYfh3276q9lgSNiy41jMU
icFg6/2Kz4EkrKdHQ8QEDFHsq5kp1iT88Cdd5dtbDJK/ebwvypKw/2hDEa7D
sGCl4G4gScLczyZfnGvE8HnEyFlblISTZ9+ldbdguN0fbXuIk4TXCxLmmzsw
5HyTuCwwTsRG64cAjWBQLTukXJtFxHEdSq07GRi4D5vI4xQiXmuOvclFokFv
oYts8Usizl/oSx5npYH3v7DzdQARn0sueu3LSYOaZF2ex1ZELPUolKwoSIPY
HXc5nK8T8a3IFU4QpsGd2BCWexeJeKDUow2J0oA38tuKqS4Rz6VZev0lToPz
fldGjsgQsehDSXEkTYM9rF4D8hJEbHGJG27J0mDJK7V7zzYi1tRsMX4ix4zv
MvqVvJmIb64Krkco0ODu0uZGLiIRv/U81uyrSAM1e7la0goBv18PlLFRpkG/
zQOYGSNgQ3WWJf4jNCgYf1422k/AxmK2Co1/0+DJraL3vR0EXFXg/chdlbn+
9bU3DTUEfDJL5WO+OjP+eZ+YzEwC5vocPmKjRYMUepmSbAoBP+W//ST1BA3a
Mmca37wk4KRnLw/UnaQBZeMyW24gAfdid705HRo4ZIQnKzwh4Ll0Hv85XRpk
G1arFrgS8E5qgc1PPRqQ0xXt3t8l4G4xy9rU0zTQNbjNc/gGc/6nvVw2Z2jg
sZqQWXKFgJuWbJ/J6NOgMO2b5lFjAmaVKFHsYPKY/ua+cn0C9mM3HXI+S4Md
K+ouatoEXB8X/ITLgAZGr+wFARHwvq8Xl0OZ7H8mO49yhID3WmXsYTekQeVS
36kPCgTsSFWZt2HyXIrgqKYMAXcmpGhUM3nv6VPenyWYevJfXhEwooHpH68d
2qIE/HB/7toZJocnF5XUbCHgtyMf9rsyuUpv8pweFwGLdj5/+JLJawsS0/Us
BKwrvpyXyWQz9Vxy3DIDhIUSa//j+gjRU4m/GLCszJ3y33iVUZ/HKZ0M+NOW
LPpfvGTV2eK0egb4bY7Y9t96nGGmUxkVDNh+6bcXH5Pth6t3v/mXAfdeRSt9
YO6394jS5ZxEBhR2nibfYLJOcGJ4figDrnUnsS0zz18wsLnmnRcD+o6s/nJh
8l8qDvTiBwyYJ8S/+s3UzzewX7ncnAE/w+PIBkye6T11h3qOAXev/xRLZep9
Sak4habFgBu1qmlDzPx88pPs+HSIASe/qfiSmXygO5i3Zg8DzrFopSsz8xmj
sKJVL8yA6F3pPzVP0cDmR1N+ywod2FwSTsoz/dCxX3WsdZwO/rhfhovpFw3v
dLGOLjqovG3N/c70k9A+96DeSjrEP9aTUmH6z8tzjDaQQweyxl/f6zVoMP7t
3PJwEh3sR9Uyzx6nAdVN9sbEYzq0kvcelmD6V7rlRdyUHR2IV3/k2x6jQYQU
8eusBR3eJOZ9yTpKg5uN7erLJ+jw2DXPckyFBs2Smg5rKnRgr/4nYYJZP0ed
ct7Q99Jh9M/OuS5mffHt9BFh46TDtchtVk8O0MDFfkafY20DTL3Pax9l1udw
zWUfrskNSBioLu2RoUHJA8U5gcYNIB253fJrNzP/H/vqxSI2wNAuZG0L8z7Q
Vlu+0fN4A2LdnnwcF2LqV8xPiH+wAfsnNyyzt9JgPfu48jbDDbC4leHWz83U
M+JV/Fb+Dfgkg8ck6Rg8uStUvjLWwTHm39vKqxhu+rY2h02vQ6Sc+Sm5PxiU
XdjYeJvWARs9c278jaH5+i0bjpB1yCyWEmvvwlDc5bmp2n0daH6u5kLtGBIv
xKT42KzD9q7tj49+xXBXt/Y76cw6eKeHPlGowcBxcJ/6Btc6zD9X3NxYgOE4
YZp3LmAN8on33FO8MUi7bMrKe7QGxked9gq5YeBfENe8Z7UG1QP+5ncdMPSO
GjhN6qzBLebToOIWBpemgr6RTWvw4YqT94gehuu69Y9eL62CXcbSy+uaGHQ+
Dm21HF0FzXlJrwpVDELFZJ2BqlVwJEm18MthKEh0zOvyWQV50zXx/VwYXoqE
6sU6rMJmO6SbTMLgFZExbHJjFUwulH0bnAfQ9+0QadNaBQd5afWLzQDjNkcf
N7OsgveK0VmCL4CkGt3w8+MV2P10eKV2iArNAmpyL+1WAJ2Qd89oooLHiCu7
jcUKDPKq92iUU6EzdKWMfGIF5JZ3+OSHU+H54MIuS44VMFk0DTFXpQKr/8Qi
KXQZqipDHAseV0KBqWxzm+cyXGV7J3HUqhLMDlplZ99fhoxfd946G1RCRefI
VSOjZZgv930mIlYJDvsHq1MEl6Ht8wf/tvcVMPK14yUlfgkyK2mzA23lEJkh
bE8OXoJCnT32SaXloOFmrD/mvgRyNsFq3PHlkCjVSgq7tgSXh35kzl4rh3+c
m+70SS6BC+/r1p6hMqjZUaXmkfUHCh9sH63pKoWs24UD5UWLYD+2t1fBvxha
zZPET6Uvws30UPJ902IgXAm60vliEUom71COKRSDsaHFj2X7RcjbaeXu3FYE
pKNbWw4pLYLbDeOHd3YUwSWuhzg3dwEUw5LWQiLfgQ/bNbp60gKMPC0ZPH79
HeQx9I41hiyAd86ZCw773wH7gmTJpM0CFLN6xF36VAgF3V9zZeQWgD52P2XT
ZAFw5igmvcqcB3YCx215yXw4lCnWoxgzD3ri32d9R/LALJVz+we/eea7ctcj
w+w8KIoajOq/OQ9deT5zqgp5YO4ZEbJDah4sWV1bY61zoMxgzj06ZQ7WFPR3
yWpng/V8vmlQ7CzEq7dL8ZFT4KXKrOqtwFnYLvz3IjgnQ80jhe2aLrMQ9vef
HL2SJJAi5P5YvTgLfFf3ZnGpJ0A/91tj622zcCxkTL5OJgYu7Ek30I2ZAaX9
pr6qG4Hw1OqnvJT/DHAv/Yw6/bc/FLzdzUd0noE93vmj2fd8gF/p1ZeSf2bA
SqZ/yiTKE+pRsp608Az05I71Ks2aweMC5QBeuWlwU6t+1UZ4inqPFGpXcU1D
sYs5XWy3HzoGB9k9JqZg0AG3Z58JRH/qDzz5nT0Fb6cjHv64GIbu/pR2b5CZ
ArVlNyWdkShkIrLjQeDe36BlL0711k9FBzzYLrLvmoDd6/7vr2flIdGy5ugx
1glwCjIbSt+Zj9j+xLXVjYzDQ/54WWpMPuq2UTwfmj0OW5r0Qm8FFaDAK9fO
iiiOw74ZrurPLu/Q6LHSE7LHf0G0fL7he+8SlLx2V1H/2ijYnFTIn0zC6Nnh
Iw8Ujo9CreQHvo5fGDk9ZMnbsmsU4q32c1GUaUh/4uX+9pERWGZz8vCvo6GN
zippM9sR+Gd4jod34wO6VLZT3M79J2TYeGk8dfmMtj5q5YqKG4L7hxeu83TX
oWXGisC0yxAsdS8lhqvXo15fcRGdS0NgfclZ9WNKPcqMtN69KjIEDCVzb0Xr
BqSeR1C7GjUIYpuUd1xhaURWo3K2e8IHoM64uGrwTTPyeMOZYsPTB/9g/lIJ
nVakW3rhX/GGXua/wiD4qE8rIlcnl7YE9oKw9upf5R9aUdagytdDHL3A+e9Z
vKj+HbVus2Chk3pA/4uAx/VjbUjWv/xGyHInNL5Lj4051YHaLe/K5g61QaJD
mFcPdCNqj8HhovQ2yDsckSjK3oPSjQ9pVVq1wXSsd/LH0z3IXod+pX76O7gS
yv0vd/Ugfrmw8NG1VogON4gv2OhFuvOFy+Lkb/BUbKaJ+qYfObAsBUsENMIJ
YxfT7weHkNYiZMjzNQKtaumhhukQ2jLqT1N78QXk5Pi4p32HUE6d6OLFlAaw
Lirh4OgZQiPh6qYRpXUQfT/hvMazYWSy01eWZbwKGtJ8AySXfiInF9mQ2hdU
cJhKur9C+IX0p2bactMrwejJtoMbir/QHvNi8ajiCqCuSqTr3PiFvutq5Zv/
KIOSn4PCJXW/kNK2q61rfxWDvEa8MMvLcdR7b9chU51caBjVbo/VnETNb8X6
zhvdhG9uW7Ltvk0j1uundvpr6iN+o9S/IzbNoKwDqU7cZXaoZjCd84XUDOr5
YZWbou+PJmJdNLeZzyCn3DOnJkXikPNB5w6JnhmkFYteCni8RXxXcYJ51yzK
Dj1CSVOoRKsfV6SlV+cR66ekik3KVHSflKqUs3MBXVtm//vOYUDiPrV9NtoL
KDBvXGQb08cz2w8bxb1YQOrbSgX6X39A4yaWcsXKiyh9/AKLbWEVGgy3tDji
8Qc5B4eOBDQ2oopMyTOvKCvo9d6PaaoGTWixJX5p1XYFfaX9Mf/d0oSqy4YL
oxJWkNBazr1M62aUd0W0IW5tBd2XF5rksm1BIa+KXEfKVpFUzPDwV/tvyCL4
iknTyXUUYvW4zcy7HR3P9fN8HsVA/vXE98PUdtTlafn2bh0Dee/3fn57rR2d
fN1bHkRnIKdZb4P79h1o5o6OTaMSgWL26Gmd580fqEpcWC8wkUA5GOBHTdTr
Qhd/acV8cyFSWjOD07u39KFDNwx3TZ5loTRy8vqYne1Dl1hObgTbslBq7oZY
DAf1IQ+7liCTYBbK1RhtfkdSPzI9aBN8u56Fcs5U54u7az+KDkxIfKTLSjk2
rKsdbDOA0qpUY56dYaPwLJxWfWs4hJpS54+OOm6i8HcqWjjZDaEAFfvzPImb
KGQsEqTxfAiJcocJ3fm8iSL6bLizo3UI5evwlzaSOSjSu91c2EyG0dNZ70D1
Ig6Kxvk3pVev/kQVn1T3kVg5KY7vNh8RuDOKPtz5Yqv6hZvyKHb6WnfQKEro
X0ATa9wUN6/vfhlvR5GstUhktywP5cnplHa1qVGkqMMQ9QngoYQNH3GyfjCG
sp4abFnS5aW8Id8u+uj0C10MMvF+085H6bevUnZ8OoGaOxz4rCMFKN01bKKZ
aRNIJWOuISdXgNLx1wnGj08TyIysniFSL0Bp/vSxVo1tEunbTdmakrZQMJl2
lc13EvX94fTKsttCSXpX7h/p9xvFPHfd+vTSVsrVhbzugsBpZCJwIi1WR5By
SWeGNpw9jS48y4HB24KUC/HyGUL10+g0f/1Z4wBByh7J9iOVbDOIQz0uC9cJ
UsTqLrBInJxBRu8SjTLPClF4Rc/FjFXNoB9TRs0L14UpjkFdgdHcs4jw/yZC
+R+r3QFh
      "]]}},
   Axes->True,
   AxesOrigin->{0, 0},
   ImageSize->{515., Automatic},
   PlotRange->{{-6, 6}, {-6, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{3.3892415485990868`*^9, 3.389241614112423*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{20, Automatic}, {Automatic, 44}},
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, 275, 8, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[890, 35, 403, 10, 23, "Print"],
Cell[1296, 47, 151, 2, 23, "Print"],
Cell[1450, 51, 311, 7, 23, "Print"],
Cell[1764, 60, 141, 2, 23, "Print"],
Cell[1908, 64, 492, 15, 49, "Print"],
Cell[2403, 81, 152, 2, 23, "Print"],
Cell[2558, 85, 546, 10, 32, "Print"],
Cell[3107, 97, 521, 9, 32, "Print"],
Cell[3631, 108, 424, 9, 23, "Print"],
Cell[4058, 119, 157, 2, 23, "Print"],
Cell[4218, 123, 618, 12, 23, "Print"],
Cell[4839, 137, 292, 6, 23, "Print"],
Cell[5134, 145, 144, 2, 23, "Print"],
Cell[5281, 149, 405, 10, 23, "Print"],
Cell[5689, 161, 493, 15, 49, "Print"],
Cell[6185, 178, 340, 7, 43, "Print"],
Cell[6528, 187, 145, 2, 23, "Print"],
Cell[6676, 191, 409, 10, 23, "Print"],
Cell[7088, 203, 495, 15, 49, "Print"],
Cell[7586, 220, 336, 7, 43, "Print"],
Cell[7925, 229, 153, 2, 23, "Print"],
Cell[8081, 233, 1257, 35, 137, "Print"],
Cell[9341, 270, 144, 2, 23, "Print"]
}, Open  ]],
Cell[9500, 275, 6749, 117, 520, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)