(* 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[     24230,        594]
NotebookOptionsPosition[     22814,        546]
NotebookOutlinePosition[     23232,        564]
CellTagsIndexPosition[     23189,        561]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Etude de fonction", "Section",
 CellChangeTimes->{{3.389109110446711*^9, 3.389109126370006*^9}},
 FontSize->8],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Etudef", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "^", "3"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"2", "x"}]}], ")"}]}], ",", "x"}], "]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.389070895319713*^9, 3.389070900469635*^9}, 
   3.38910908481875*^9, {3.389109267868931*^9, 3.38910929734708*^9}, {
   3.3891515161733837`*^9, 3.389151547451481*^9}, {3.389151626544798*^9, 
   3.389151652675311*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox["\<\"1. Domaine de definition\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151652935273*^9}}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"\[DoubleStruckCapitalR] \\\\ \
{\\!\\(TraditionalForm\\`1\\/2\\)}\"\>",
     StringForm["`1` \\ {`2`}", "\[DoubleStruckCapitalR]", 
      Rational[1, 2]],
     Editable->False]}],
   SequenceForm["Dom f = ", 
    StringForm["`1` \\ {`2`}", "\[DoubleStruckCapitalR]", 
     Rational[1, 2]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151652937583*^9}}],

Cell[BoxData[
 FormBox["\<\"2. Signe de f\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151652939418*^9}}],

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

Cell[BoxData[
 FormBox["\<\"3. Limites et asymptotes\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151652943624*^9}}],

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`1\\/2\\)\"\>",
   StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 
    Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151652986751*^9}}],

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

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

Cell[BoxData[
 FormBox["\<\"4. Intersection avec les axes\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653056231*^9}}],

Cell[BoxData[
 FormBox["\<\"Gf \[Intersection] X = { (0,0) }\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653058683*^9}}],

Cell[BoxData[
 FormBox["\<\"Gf \[Intersection] Y = { (0,0) }\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653079361*^9}}],

Cell[BoxData[
 FormBox["\<\"5. Etude de f'\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653091621*^9}}],

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

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

Cell[BoxData[
 FormBox[
  InterpretationBox["\<\" Max : \
(\\!\\(TraditionalForm\\`3\\/4\\),\\!\\(TraditionalForm\\`\\(-\\(\\(27\\/32\\)\
\\)\\)\\))\"\>",
   StringForm[" Max : (`1`,`2`)", 
    Rational[3, 4], 
    Rational[-27, 32]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.3891516531455183`*^9}}],

Cell[BoxData[
 FormBox["\<\"6. Etude de f\\\"\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653171268*^9}}],

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

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

Cell[BoxData[
 FormBox["\<\"7.Tableau recapitulatif\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.3891516532515574`*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {"x", 
      RowBox[{"-", "\[Infinity]"}], "    ", "0", "    ", 
      FractionBox["1", "2"], "    ", 
      FractionBox["3", "4"], "    ", "\[Infinity]"},
     {
      RowBox[{
       RowBox[{"f", 
        RowBox[{"(", "x", ")"}]}], "\n", "        "}], 
      RowBox[{"-", "\[Infinity]"}], "-", "0", "+", "|", "-", 
      RowBox[{"-", 
       FractionBox["27", "32"]}], "-", 
      RowBox[{"-", "\[Infinity]"}]},
     {" ", " ", " ", "I", " ", " ", " ", "Max", " ", " "},
     {"pente", "\[Infinity]", "+", "0", "+", "|", "+", "0", "-", 
      RowBox[{"-", "\[Infinity]"}]},
     {"concavite", 
      RowBox[{"-", "1"}], "-", "0", "+", "|", "-", 
      RowBox[{"-", "9"}], "-", 
      RowBox[{"-", "1"}]}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
      "RowsIndexed" -> {}}],
   DisplayForm], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653359326*^9}}],

Cell[BoxData[
 FormBox["\<\"8. Graphe de f\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{
  3.3891093180831413`*^9, 3.389151427235201*^9, {3.3891515235018063`*^9, 
   3.389151547945066*^9}, {3.389151629274497*^9, 3.389151653384506*^9}}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmPc7FgzYsG9biNBAhSIkSbLKuFR6oowowpOQsjLLLJGRSEhGVpnZK0TE
fd3cSPae2XtvD4ne73uP9/zlPM5/4TzxwFbrESWBQNhHQSD8f0uk3rVd89pP
IvwvHCRZGo+CMw+ZSAu/KA6IHzxMClOUlr78goH02SGCn2I/O8kkVndiNo6e
pMiyeoZH7QCpOZV7H0U0LUn0aIOTOi8jiZsp7zwWUZMupb24OelKS2LgnWye
yaAkKUxrpdQuUZCs7ryKTEsjkNpd4h6ybO+gEXmonvv9LmaWDO9NeG7gdfmt
RwOeu+hMTTaoMttA0eIDhFj7XYw47XSkQG0D/2RcluDU3EWbdy7RFZwbGPk+
KZb9wC5KHf/Tk5i/ji3GZtb0QX/wuekFOqepNbxMWGJe9d9Br+O8gQYGq3hS
fk+z2nMbvd/7D1xbX8QWVnmRqCfbKDF6Wfdo/SK6Tz6ntTbZxr/MeRL7Exex
L3i79OC1bdwy9T3wz61FDB1d53tIv437nZqUmHIWkNpvboMyeAslC1hOztrM
42RbT5Ri7H+o7TrkN0Uzi+nmBSPfizZQgo/cR/abwI4HcTw3UzYwjN2xrMNk
AgkGAQZ94RtYf8q9nBYmUEfTpHfLYQPT6/g4mzbGkfISe6vkhQ38kM1+ZPbh
OOozPiXl5q6jyuESQR2VMWTIEY9LSltDyq6W/g3hEZRM4x4Qj1xD6hZDdSGG
ETRKZDha+XoNF7Msi5/PDGNRxGjEsOkans6iNXuVNowPPN4HHT+1hn4EVjZ+
oWEsvbX64kPCKnZo/Lbn+ncQLde+3AuIXkH/awZ0tIl9GCW1Imv2ZgUF5B/x
Z1v0Ya2r2NGrz/5f66ubhJ7vw1OE3N7feit4attF+nhlLw4zZelYcq7gyPed
+lOTPagtkHJLJXIZ6764c9Fd6kbPfAl/ZpElFPNLzZ470IGDMgXXaxiX0EXI
rsNmuB3l8Dyt+9wi6pFjA8Xy2nGzXtR7IWMR6+QHEmxvtaPVhNCLhtOLyFvY
W9If2oa6HMft3wgu4Oe33wpMBVpR1J1Gj5ZvDpWSNCwvrjcgV2nLh2nqObws
G0RQTGtAms2YrrrJWaQyFjqRf68Bf1mL3wnOmMXHl+haemrq8Y2BoQaH+CwO
Zw55icbX4ZRcyTXhyzOYY+9dvGRai/E7VuLqhlPY95S88FCpCt9Ky9iLXZ5C
CelPNJU0Vej8lCqPjW8Ks3sKm/1+kFF9Lups9+QkMiVfvXBblYy7fTVCRjaT
GMFoK9OrX4n6pbw8T15MoDp3ontUAAnZXTsYI2LGsK5rNznXqRS3/m6zLj0b
w8m9+2wyjKU46MvDoaw/hmp+s5H58SWYFmbJ/5tjDBetY4fdmr6hQh5B/n7E
KF6/35Z5X7IYLaZEbARCRtBqmlrusFghqttoOXjYjeBO0Tbbp/YClNhwftaj
MYIhnkxX2F0KcI+S7PuGeQQ/MjiqV5HzMYxbL24xYBiZd8oMpE2/oHsmQ4L1
/iEcmJijP56TjSol2tk8DYNI29BV/JItGw/+iC9pfTOIBmFOq/kuWZg+KtUm
ST+IRz2/BnvcyMQOThOqPcoBfFGSKxtPlY7Cft8fBW314Q+iRLtQfTJuhNM+
USzuQ7/lglxq1WQkJWm6rzr2oZ65hE5cUxJq41SEzlovlkVffcLUm4gvN9lr
uRd7kBDE2ptMmYDdD62Ec8e6UPC3HpOZRgwSB25JF6V0oQfpcdZqWDSm6Egq
lVt0YWblDO+jgSh0UN4zqF/qxPwcvuR1p0g8IPIuZGqnA6POyBk7NYTjf8kO
nxaJHXhEPVZuRSgcB4/rZW54duDL+6RNeb8wzGI5WU1F34GN90fiL2uEospa
wRbPwXb8L+wWTdzeOxSziqQR7G7DVEdhcx37d8gx4cYmGt2G04F1o0GNwTjZ
dU1EjrcNs8j8L98XBKJXabehrkgrKlx8a9eN/mhxoczKcKkF64XnlU60+OGt
rHhX0/wWpIg/wZ0y8Rq5P1mEOsi0YFL8OMsVXl90pPov8IR/E86v84WPtnmh
0gamnmNpwnC7SMlTTF7INuVXIR/eiBdtvh00vuGJOXVcG3oJDRjlGdCjmOmB
bmVjzOaCDRg5FF188po73sjJEnLKrsePYU/msqbdcDJE4d77kjr0jL3f/1j1
GRZ60znFQx0mK+jddmFyRS/HluCc6p9o/VX5/a9OZ+TRe0Cua61FbdX+A3d9
HFGX11eYarYG+d8ohyar2aMAm4YSq10NSnAJ1VDq2OE6Fcd9ns1q1N5TOkTV
ZIMhU+khspTVqGDr82lT6TEa9T7JVPGrwqFkoopPlAWK1stW32WuwqIbTgZe
e2ZYl9O49ZSLjNkDj3+ubD3EyPgINq/4SpTaU1xfDjRB0/eGIu8EKnHmMZnT
TfwBUjmtGGaJV6DtTNgZXy1DbDUrdS39RsLvXYpWVJv3ME7PO7RWgYRxGvMf
k4r00fmZcNDPcCJKXoLXUoE6qL643JWbUo7my0aMLpl3UOBBMU9EcRkeL1dY
yhzTwr3OF+Zutd9R6BprjLKkJnaqKH150FuK7OsvbniBBmaVM/xWni1B/hgB
e4ZrquhzvvXKuZ1vKHyBfo3imQpe4LzfsXOsGAPNz356bq2EDIH8x0fPFiHH
3W/H/E9fwVHC3KNaha+4PBAgeOyAIpY6fMnJ0SjEDzkZZQ0ghyHTzv+FGRWg
xYn0xhO5Mmh+T0HxuX0+vmvU0nB5LImKLdT+xl5f8K/6IuGvvThyKNW3Xg/N
Q7LPzp8kj3M4aMsneU85F/lTFG+uJwlj4N28GiHLbJxu+zbdc0MA5UBedyMg
E7d4D5HZbE7inEDdTEV2Ou480C61Y+bGaOa7z4OaU3GtabvWnIcDVTbHmP5d
+YwhI7ft/CjYcWvA7pMgezJ2ppzw6lXbj6nVu+fWJRKRcm6+L4mSFnWy31SQ
dOLxrHzfAg81ARmEz6VwrcTi2x3RkXvmm0TzbeWfBRJRaH3DWc+0eYFYU/tg
XtUlHNXFdSWkAkeJfJFuLJPfQ9Axakf5FXMnkbJZ5NHeXgD+TuwsLeivIpZb
G2WK+fog++WwxZHAPOIKh9BYNdczfEsTFnJVMITYksU9dEfLFDP3vLEmWptI
bXyT1++qOgxeUW9z4GZUSBdNdGYqfQK1k7A4M+aqEOXycaO98yVc1Tmremst
UWGg1yI3Qd0PKiPf0T78XqZwUlbKwvZHMLBNO/ZfFGlRuKDuGcIdHwrH+ks+
SxUOKnS6m9m8uvcBtv5x9Qg/MqvgnKt2c54jBojGGQ/4fNYVuIYvCN3u/ARq
FznDuh33FO7TB1IOKCdAgo2ASnsCDeTyEuwPCCYBg0/C26L0/UC4+HToKs1n
+GB4/1oImR00NSfVnMdSYOKHVPHpb5yQaKFXllGRBjnObi81zXhhzbNBeDAu
A0pUm91WQ/hBKRqiWN2zoP7jF5iwPA3h+fl01+7lQCq1Dzmc4hw8nWCTlTue
B6L0NHPb+eIQa6+6qs30BcqTLbXk7khB1e6rdNudL3CAgUblsPUlmPdHI//Z
fKC9NpuhQwtw6PD2kaTeAhCjVT0WePAKKCSKN5fVFoJIb/kLsyUlMBW18u0q
/gqlDSfnYziUIaj0s/xyShHcG1wSkgm/CcX/DK3viyiGJMd9ii6WGjDcxpHF
9+obzKVd1xhv0gR6Qy0TeYcS+MFhz/eQ6w6IzQVw3TUphf6boyGfo3VAz7m6
1U7rO7yfUFPI0dKDjGAZxWSxcmjdXeAlOhkCdVVcGZ0EEWLPGr4pijEGwy3a
i4+lEfKeCwQOJpuAweFifbPjJPB+CJlnex/Bm7xZDs44ElRnKbIelDWH4hvc
3XW8FWBWyTl9rNESxsc1w90SK4DU79G0FGINCpwlrMOfK0GuPWl/+JA9PC6Y
bw4RJMOfLOcBYsRTiFTjDbqaTgahofBaWWtHqJ66rbohXAX6HbbZBQ+dYdXz
NUNqVhUYbnTJj7q7As+x77W6otXgkiZ3JrL8OagWLfoy5FVDtKSPedlJd0iZ
1aayKagBu9RjAecLPaHdx7+CR/IHyDQtZ34Q8AYCT7lHa9EP+JdCyuRlng+c
LVmW95apheGzTr9P3PYF/dv8fyRKa+F7BBWxksUPXi/cLZ2U/QlLUQ30pVP+
UPg6wCWy/Cd09Tk9sv8VACxlq+s7pDo4QVdgdZD1HcjpCBRkX6kH3YJNmfOy
IWC5rGdvWFUP8ftjmGac3kMVf8VC5Y8GODq3KjsjEA4rxPVMB5VGkJ6/qiXx
MQK49YQsBeob4W8059aJ05HgEhg86d/UBG135sZjfGPgsyA5WfZWM0x5BVvk
63+EtorNBwutzdDycmvWSyUODu/k2KZZtoCTM2NtBjEBRGpr1T0zW0B7ct/7
htFEuBo+elZ/vgUimtoWgo4kg925w/OMNq3w8nUKU39RCvj+OVc/ntMK+am8
dd58afDxp0pG+VIrCNZJyzF/Toc6kxfmtvZtkPug5uv8XBaMiH24rpzfBiFM
PkmshTmwtZsncGKtDbRa/jgb3syDU5Hj420O7UDpN0Z5Sy8f5B7tkTO/tkPc
z8qlNucC0BLnSPLZbIe+oPl129RCsPh73stAugPEjRvvac18hZcNN42lXDpA
szyTiArFEBH1SJGlpAPo6jtWudK/QbapB8/0dgd0cjPYTp0uhT5CwUDU804Q
ujtQGutYDsuNDWVPyjohz65r7o4SAl3MZMzN3U54ktb/NzSSBNzmhOf8Cl3Q
a92ofTmuAiQkufR33bvghmjhtH9xJdyglLjYhV3AcTTxx+woGYyb1ThyCd3w
xd9sjpGvGoIsPLuMvLph7U7DwJmZH+BXT/F1nNgNRPGRJk3dn+B11ivUfKcb
go3lIw+P1IFbMOWTeekeIFCLmPS9agDnFa9bdg49sNFXEqyi0gRPblOdW8/r
gSjGFW+JIy1g9dV7v8tCD7hllL/SOtYKRq4+dR6mvVDb3Pr1pmk76PdTp1Ml
9UKNENvvpdwOuCP/6vXroV4wKppWazvUBepxNKaMx/pAuuFfGqOYblCm8FUK
1u0D7W0LkSilXrhiQsvHHt4H+4ou+Ysd7ge5al+KD6198CrB2Ljw0ABICdIN
czH3g+uTxuVKlSE47/+a+OlGP3TaXrwrODAMInN0H0++7of+f9uOusmMgoCa
3/MUcj8MnMo9Qy4bA95cen1hwi8IeqihoWQ/AVys/jI5cr/AKrkj8ajhFBx8
uu+IuOsv4LhdG9AVMgPMnf4bX7/+gtWy67p3OOaBXpqh4+LqL4gUkTnPQrsE
lFFv8stFB4Byzlnr1aUV+PObIeTy4wEIthL6ba60Bpv3AmyrUwdAnMV7M7Fk
A5aJjOoq4wOgnWnPdpu4BXO8b0UaeQehyzLsRY/fH5j0YmLUNBgEp7irgy+L
CYrD429nOqIGIXTK0lmNQK3Y98/+Wt2uQUieLnAUS6BX7EgLTPnFNgTPNy85
xCSwKDYxML8y0hiCT9YRJ2lLDin+94556af+EPzff1D8Hybum+E=
      "]], 
     LineBox[CompressedData["
1:eJw1VXk0lYselekeSddQyFAkUUrFy63Iz1XHEFIqSYekVNc1FB51Q6OhDMkt
EklFFDeFRNHv02QMT4nwdCbnHL4zOQ5HXHneW+vttfbaa6+1115r/7WNA8O9
guTl5OROz/G/+svG6dm2g3SQ+x90CW8LyqCtHx2WCFcqrDmvQ+yhuXyMO0uH
hq53fnbGmsSutOQ6zKGDdRGlaGuDGrHzdVPpvBo6dFElq3OCVAg3ESV32xc6
NN6x31brpEy4GLleTZDSQXPjQilFpEBQd18506jJAIvoJ0X1BvKE48XmEyob
GHB4594wsxI5AipVfNw8GVDalpL5SfQD7diuzmmhDOAE12frT/yNmxdftelI
YUDkRg2VHLdptHFqMdV4zADW4Fdm2LfvaB0zf/GepjlvrW20uWgS15fsULzJ
YYB15NqXJX/KcO3Xq2NfFJngwrZ7nvdgAlfPb2XqmjDBffZ+R1LHOJrZqnb5
/sqEz4pRL5S1xnFFiFtD3iEmxFKa+28GS9H4TsrTwTgm0FmUg7RPY7i0vfWu
UR4T0qbqaEpuY6g/q3ot8CUT3nYeiXnQIUHd9e7xhb1MsFlSYJN7SIKLD6eG
ciaY0Gt4+13m91HUzGyjmS9mgd6/svYF5Y2i+tsF7sHWLIgxWei3xHkU1aTu
tmW7WVCgEdTXOylG9T6rIzERLEhuNbA1LxXjIkI3xfFPFqiAr5L+UTHqPPxR
oVbFgjaP/jvyJmLUS2X39X5mweOEi4nX2kW4NKJFvnCcBed0VqZ/DBChsc/T
1eHabNB9vOJ777QQzVfE/qHkw4as3YnhTq5CtJgfeL/zNBvm/eIt2z8lQEux
c0tuDhvohhuyrz0ToNWXtZJjL9kwGXNoyckwAW6s09Kz6mdDZjM1/sp6AW66
//3XmWk2eF5vco2R8dEu+dtvTQZDsGxMWfPbGz467i2t9fcfgizHZu3BID5S
t1xnrDo3BBW7WQU8Oz66GMWojN8dgpkqE00vHT66K/ttIIgh2NHwXpElJdGT
73gghTEEfygVck50k+jVZX7BW54D/LTL/3xeQ6J3zcJHxiYc8M5gueXnk3gg
X9rJ38aB5HX0s38nkki73Df54igHVNmeNmWnSDwUTBhdSuBA0Gf32FR/EgN3
PXTZ+ZADcl7dX+M9SDxmk3pySSMHjI66mh+3J/E3g4hbbC4HevqJ/RYbSAyR
9yHKKVx4mehrX2lK4kneVt4fq7hgpfY+hKdPYmS7ibrTDi54jtF+qtYiMbpK
ZZPG71xgCXY/oKiReOa26NBAChfcZn3M2n8iMfZ8d1JxGRckay6UjyuQeP7Y
q/KIj1y4ktEeGT6PxEvu93q2CrkQGun2bI0ciYlWSbOUn3mQdsD15rI5f1U3
1OzzOh7oF99YbTuXT/vh5Xl3Fw/MDYJcIuf6MtibYoJP8eA4t/9inTKJN1qW
3t2YyYP+F0MGC1RJzH6q2ChXyYMt+rTp/eok3s4aEbZ+4sFQLTUnS5vE/NhO
7WwpD0ardWdeG5J4L7DaPnDxMHyqGXrSNLe/0CXv2FqbYXgh3VteakliieXF
9EnvYfioeTg8YBOJpYtOVL+NGYYMcX3TN0cSn0x5DKbfGoaCDf0Ty3eSWEG3
VvatHYYxh6gME18Sa8pm94mnhiGh1VeZGkViXeZQ3Cv9ESC7Q4t8L5KIp1uL
Eu1GICy52ULnOokftmePG8SPQLpE7/ippyQ2r44z5OWPwAWddSKlBhLb1I9Q
K3EEmoxzZiy7SPw0YHnTdR4JVAvTAssJEulRH/4RfZkEo4Xp+XHb+TjQpKRX
UkiCwgFTM74PH3sNqLNf35Fg71iyoiOUj53v3jZvVeIDzTRDzL3FR2JRg79S
Ih8GNlv0GUn5eLfqVfKNJAF4Z61bP1AnwNuU6dAPxQKQfXh/LKlHgFm0LXsm
GwVQZLfDMEkiwHTFWkMaRQjvfo8Lj18lxPi91RUmV4TAFdmbmucK0V/6dKDi
qgj45ivXH08Voa+LuIH9WATRLZcuNJeKcF/eumLtVhH433tbHdYqwpXLezbV
K4nh/IS+MyqJcWnLPgVjJzEcWdXh4eksxoV6e27xPoihOC5KaNIpRmGtx5uY
plGQEyuUVU6MoqlKY9TZnlHwmbo2VkaRIM3HwewcZxRi5Y+zXulJsGXCKjVR
UQKKD75a64EEi6x1vW86SEBzpnB+d/Jc/i/mcEWNBM46bz+7ymgMWwpiNIQl
Y0D6bXHI85Piw6R7AUevjMNJr6TLGT/LMOBZaHlZzjh0K2fttzCXoV7/5h/S
R+MQnMrR73OQYbplV25Cyzj8pZHgEhkhw+hu+Z6HqhPA0PYXZX6RoZPJUY/h
tAk4XflKJf7+JHJer9wSlikDdZGdX4PLFJpOlGqdzv0Ob4oHIvw/zuBgxbJ6
2xMzkMl9nNt1TZ7Yl01PJjPkHKqqQprK85SJ/KLUevcseYc9AeJH0ZdUCcWD
oQKlM4oOy+/XNDg5qxPtAY+KvS4rO/z7ucsj6nYt4rmanp8shOJAvaO1IMtN
m/CTtTG6QlQc/v+3/wHjufhK
      "]], 
     LineBox[{{0.496803384335506, 6.}, {0.49699911035296684`, -6.}}]}},
   Axes->True,
   AxesOrigin->{0, 0},
   PlotRange->{{-6, 6}, {-6, 6}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.389109299419772*^9, 3.3891093195199003`*^9}, 
   3.389151429234331*^9, {3.3891515270597897`*^9, 3.389151536858584*^9}, 
   3.389151594720169*^9, {3.3891516297148743`*^9, 3.389151653411335*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{112, Automatic}, {Automatic, 0}},
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, 116, 2, 59, "Section"],
Cell[CellGroupData[{
Cell[731, 29, 486, 13, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[1242, 46, 495, 12, 43, "Print"],
Cell[1740, 60, 253, 4, 23, "Print"],
Cell[1996, 66, 631, 15, 40, "Print"],
Cell[2630, 83, 242, 4, 23, "Print"],
Cell[2875, 89, 604, 17, 70, "Print"],
Cell[3482, 108, 253, 4, 23, "Print"],
Cell[3738, 114, 1760, 42, 89, "Print"],
Cell[5501, 158, 433, 9, 40, "Print"],
Cell[5937, 169, 650, 12, 43, "Print"],
Cell[6590, 183, 658, 12, 43, "Print"],
Cell[7251, 197, 258, 4, 23, "Print"],
Cell[7512, 203, 264, 5, 23, "Print"],
Cell[7779, 210, 264, 5, 23, "Print"],
Cell[8046, 217, 243, 4, 23, "Print"],
Cell[8292, 223, 702, 20, 47, "Print"],
Cell[8997, 245, 842, 25, 72, "Print"],
Cell[9842, 272, 452, 11, 41, "Print"],
Cell[10297, 285, 246, 4, 23, "Print"],
Cell[10546, 291, 865, 24, 49, "Print"],
Cell[11414, 317, 935, 28, 78, "Print"],
Cell[12352, 347, 254, 4, 23, "Print"],
Cell[12609, 353, 1097, 29, 147, "Print"],
Cell[13709, 384, 243, 4, 23, "Print"]
}, Open  ]],
Cell[13967, 391, 8819, 151, 371, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)