(* 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[ 24331, 570] NotebookOptionsPosition[ 22985, 525] NotebookOutlinePosition[ 23403, 543] CellTagsIndexPosition[ 23360, 540] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Etudef", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"3", RowBox[{"x", "^", "2"}]}], "-", "x", "+", "3"}], ",", "x"}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.3893534514081984`*^9, 3.389353470270049*^9}, { 3.389355960056498*^9, 3.3893559609509583`*^9}, {3.389356029288753*^9, 3.389356030406322*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", "x", "+", "3"}]}], SequenceForm[ "f(x) = ", 3 - $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566600908623`*^9}], Cell[BoxData[ FormBox["\<\"1. Domaine de definition\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660093083*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", "\<\"\[DoubleStruckCapitalR]\"\>"}], SequenceForm["Dom f = ", "\[DoubleStruckCapitalR]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566600953093`*^9}], Cell[BoxData[ FormBox["\<\"2. Signe de f\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660097177*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "1"}], " ", "1", " ", "3", " "}, { RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", "x", "+", "3"}], "-", "0", "+", "0", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660114545*^9}], Cell[BoxData[ FormBox["\<\"3. Limites et asymptotes\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660125291*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\) -> \ \\!\\(TraditionalForm\\`\[Infinity]\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 \ - \\(\\(3\\\\ x\\^2\\)\\) - x + 3\\)\\) = \\!\\(TraditionalForm\\`\[Infinity]\ \\)\"\>", StringForm["\!\(lim\+\(`1` -> `2`\)\) `3` = `4`", $CellContext`x, DirectedInfinity[1], 3 - $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3, DirectedInfinity[1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566601273108`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(lim\\+\\(\\!\\(TraditionalForm\\`x\\) -> \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(x\\^3 - \\(\\(3\\\\ x\\^2\\)\\) - x + 3\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm["\!\(lim\+\(`1` -> `2`\)\) `3` = `4`", $CellContext`x, DirectedInfinity[-1], 3 - $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3, DirectedInfinity[-1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660130005*^9}], Cell[BoxData[ FormBox["\<\"4. Intersection avec les axes\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566601530123`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\!\\\\(\ TraditionalForm\\\\`\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\ \\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \"Gf \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\[Intersection] X = { \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"(\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\),\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\`0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\))\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\) , \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\ \\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"(\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(TraditionalForm\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\`1\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\),\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\`0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\))\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\) , \\\\\\\"\\\\)\\\\!\\\ \\(TraditionalForm\\\\`\\\\\\\"(\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`3\\\ \\\\\\),\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`0\\\\\\\\))\\\\\\\"\\\\)\\\"\ \\) }\"\>", StringForm["`1` }", StringForm["`1``2`", StringForm["`1` , ", StringForm["`1``2`", StringForm["`1` , ", StringForm["`1``2`", StringForm["`1`{ ", "Gf \[Intersection] X = "], StringForm["(`1`,`2`)", -1, 0]]], StringForm["(`1`,`2`)", 1, 0]]], StringForm["(`1`,`2`)", 3, 0]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660165743*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"Gf \[Intersection] Y = { \ (0,\\!\\(TraditionalForm\\`3\\)) }\"\>", StringForm["`1`{ (0,`2`) }", "Gf \[Intersection] Y = ", 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660169819*^9}], Cell[BoxData[ FormBox["\<\"5. Etude de f'\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566601714773`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"6", " ", "x"}], "-", "1"}]}], SequenceForm["f'(x) = ", -1 - 6 $CellContext`x + 3 $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660173161*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", SqrtBox["3"]}]}], ")"}]}], " ", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}]}], ")"}]}], " "}, { RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"6", " ", "x"}], "-", "1"}], "+", "0", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660197157*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" Max : (\\!\\(TraditionalForm\\`\\(1\\/3\\\\ \ \\(\\((3 - \\(\\(2\\\\ \ \\@3\\)\\))\\)\\)\\)\\),\\!\\(TraditionalForm\\`16\\/\\(3\\\\ \ \\@3\\)\\))\"\>", StringForm[ " Max : (`1`,`2`)", Rational[1, 3] (3 - 2 3^Rational[1, 2]), Rational[16, 3] 3^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660206175*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" Min : (\\!\\(TraditionalForm\\`\\(1\\/3\\\\ \ \\(\\((3 + \\(\\(2\\\\ \ \\@3\\)\\))\\)\\)\\)\\),\\!\\(TraditionalForm\\`\\(-\\(\\(16\\/\\(3\\\\ \ \\@3\\)\\)\\)\\)\\))\"\>", StringForm[ " Min : (`1`,`2`)", Rational[1, 3] (3 + 2 3^Rational[1, 2]), Rational[-16, 3] 3^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660247024*^9}], Cell[BoxData[ FormBox["\<\"6. Etude de f\\\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660249763*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f\\\"(x) = \"\>", "\[InvisibleSpace]", RowBox[{"6", " ", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], SequenceForm["f\"(x) = ", 6 (-1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660251836*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "1", " "}, { RowBox[{"6", " ", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566602788267`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" I : \ (\\!\\(TraditionalForm\\`1\\),\\!\\(TraditionalForm\\`0\\))\"\>", StringForm[" I : (`1`,`2`)", 1, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660300082*^9}], Cell[BoxData[ FormBox["\<\"7.Tableau recapitulatif\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.389356660302075*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", RowBox[{"-", "\[Infinity]"}], " ", RowBox[{"-", "1"}], " ", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", SqrtBox["3"]}]}], ")"}]}], " ", "0", " ", "1", " ", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox["3"]}]}], ")"}]}], " ", "3", " ", "\[Infinity]"}, { RowBox[{"f", RowBox[{"(", "x", ")"}]}], RowBox[{"-", "\[Infinity]"}], "-", "0", "+", FractionBox["16", RowBox[{"3", " ", SqrtBox["3"]}]], "+", "3", "+", "0", "-", RowBox[{"-", FractionBox["16", RowBox[{"3", " ", SqrtBox["3"]}]]}], "-", "0", "+", "\[Infinity]"}, {" ", " ", " ", " ", " ", "Max", " ", " ", " ", "I", " ", "Min", " ", " ", " ", " "}, {"pente", "\[Infinity]", "+", "8", "+", "0", "-", RowBox[{"-", "1"}], "-", RowBox[{"-", "4"}], "-", "0", "+", "8", "+", "\[Infinity]"}, {"concavite", RowBox[{"-", "\[Infinity]"}], "-", RowBox[{"-", "12"}], "-", RowBox[{ RowBox[{"-", "4"}], " ", SqrtBox["3"]}], "-", RowBox[{"-", "6"}], "-", "0", "+", RowBox[{"4", " ", SqrtBox["3"]}], "+", "12", "+", "\[Infinity]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.38935666058083*^9}], Cell[BoxData[ FormBox["\<\"8. Graphe de f\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.3893560367953663`*^9, 3.389356460175127*^9, 3.3893566606028423`*^9}] }, Open ]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtWHk4Vl/Ufed7jYmSoZBKUjTRKHcLJUlUUqLQXJLMU+YkIpk1GCpCMqQU qXMokiTDS0hC5n5kHjJ97/c93/3nPus5d++91n7WPWffu9zq6qGzDBqNdpFO o/3v/c+8l/C3s5OI9n+XBO6qaYiDBxOI/8nw2TeLFuPIp0scFoVMIO7JZl3N lkV4t8dRg57rE4hoH/Off7oIx6/iMsJOTaCejz/ypNUXYROXb5d/yU8gw4jL H6vOieGyZaW7PNPG0U3SIl66dCFOu5Db9jZvDC0h/JfomQhhrlWC7P6UMZRU 4fTo9F9BTDMPNm+KGkOPBTbajN4UxEeNTjdOOoyhtZ1ZE24FApixQ6xabfMY enK3WE58FT82FbDHWVmj6IRi7A4TEQLzZ25KeJw6ggaEu4nYXXSslirzc1Ps CDLoGyxV7aBhi0f80sU3R5BtvqX27mAazotuj249N4LctY8dMX81j6y8wkOX rRpB6ocSWkJnZ1CB4fD1mKRhpF52Ij769QS6NJJjFnxvCGVrP/VG8X9Q3Jah neeDhlCm7Aa36459qMx1g7SW2xCa9FQTrTvQi1bRshr/HR9C3sfU+AyY3ahV MOPoJckhdOx4gJ+RTzsyVkgx3Bc7iDK00kw77tYinxeqt4TX/UW21ZHrFKY/ Uy3bcveWCvxFZrKCRUcbv1LqaCPH888AYlV+e1XUUEWNf1Hx608fQDscQ9MH nnIp607F6xVrBlBf6vsfDvLN1DGJZdeCVvcjR63Q9BLtTkrFk32cs+IPuq1r IpmuN0RJFVTF9LD+oPA1J6POpw5R7PH79eVdfShYQ0kjkD1MNV/ZdOROeh86 K7f26Oi7YSrI/NRBiU19KDnQy8J79SjVrZ6vo6TZi3xFh34//zlO1bj4+wuu 6EUanupZHzZOUO9fHvwwwOpFV0JznmremKCi13VBblkP2vFmo4Wz0iSlvVRM Xd2wB90e355dc2WKSpy23mRwqhtt1OmpDm2Ypm5v3XZtg2Y34mqhYf0VM5Sz PTNbdEU3sjFZqelyZYYy+BOn/L2rCyU05qQsoc1Ss02lihY2XYgrHGTsKzNH mRbIydpd70RDOfWPFeRoIObKFYi+/xuNujRwRwUZMDk/tfCv229k26Dv+n0t A1oCZCV0TX+jt2I6ry/qMSA18tLKfxK/UaFZ4ZeHAQzQyKbtOhndjpSHnvTt m2bAxe51Ngp32xC773BCSx0TDGwOOXjZtqG4884fav4yQXXM2a3hYBv6USiQ 48rHgjnGh4Ag4TZ0Qdn3ZetOFkTKHE8YCG5Fl3/5D0o8ZIHnM/6kK0K/0IED 33+cNGLDvnzj57IVLWggxdUz5hwbFn1KzK8OakEyXFepAHc2pLVvqVEjW5BC Tyh/wBM2cCVPM+cYP1FsVt9J8RE2JKzOXJBd1Iw8T5pasDgcuKQ2JW3l3Yza TsqMpElwYN7wjmrp7A+0PCI+dukuDigFvj0bOtmEdvmedE725cBYFMcOXjeh DseDMcYRHMCPjTyHHZvQ1Lbg1vePOWCMuqOPjjSiS9YtBe8+cMB7XKxMZqAB rdaskbejEfD9jLVS1u96tOdC58l2awLe/zTcmpdSjzq1THSvuBCQclRN+93F euT/847aOz8CHHTnzL/8rUORD0yLMuIIEFkXdrd7mouyAtwVvxUTMPHEIX7g PRex7ugWBFQQ0LLs+LMxHy6amey6z6onIGOBfAmT5KJErYejh3sI2DeSOym7 qBZdHVwUoMNPwgbrWPbq7zXoxu5wOVVREiQ6PURV7tWglrg/R/skSeiq11mn LleDFNO37spUJOHrQaXtWr+rEUNQGQrXk/CyTHiPXko1GvjIvBG+hQTfgu+n jq2rRrUhpm6xWiRc3FxofepvFXqx5+f1sn0kGGYkup57UYWcU/dcLDpIgkz8 xQiHbVXI/U3NQ+ETJPCrPICJ8W/o0YLJ7actSGiQPWvKvv4NeVnynfE5S4Ij cyJk+a1KtGrvGCF9lQTtMfR0/YJK1OhXw422J0G0O7BoV9RXJCKUVNfsTEJm udTY8aQK1HZ0iWSZFwkehb+FL6yuQJa4KPOKHwl6mRmKTs+/oC1lVjItATy9 dzXMwvPL0QtW6Ea5EJ4+P8IpkSpHu9ulFIfv8PQ5Vt3JLPmMJrMex98J5+k5 H5dWuP8z0i1Oez8ZSYLscasP5dVl6OmVzBzlGBIG9Nb+bDApQ4GczUkqcSQU qo+Od/38hCzb3uRN3yMhSOWdyNjpT+jJoSLpqAckHJMLUGL2laLSzK9T/x6S oCB6UHuhbSnaqXfKTTmBhFGmxEnZ8RLk4jpRui6RhOKxVmdljxI0FLaEb4qH 73an3d3JKEGSnXApPIkEi0a7Z/sCP6Kz5aNiUzys8mVniYnwR7Qv6uV65Uck zBSyfp2N/IB23KN3q/BweebXSXupDyhd2fz0HO/52MRoUd/EYiTyRLfyPg+f Cz+1LkyhGDUb6RgRPKzqr7gnPqMI3QzmLtbk1Wc6DZ3K2FSEfJKddfbx+Faf L3AteIPR7tEsPrl4EhKO+0WUaWCkXjEXXMLT2xQda/r8FkK/fTrHtt8nwdlN KfRz1Hv07GKn7XVevwwGBuuzUt6hPGk9g3u8fipYvZaNfl2IVrsP2QVGkTBX d/2CR9lbVCg9wdaNIKFun3aOVWMB2nrXSaUxjISMd/z/dPvykfHVYDH1UBL8 N1bvXj/9BjXuM2q2DSZhs+RJ7vTS10hI6+Qrwxs8/4WsXNaunIc0bjWLzfiQ 0E77c7ZM4xWqlXIbdvXk9bfHeSLSIhetvepT0e9EwgUzDXC/9gJdOS4v3mFH AlSxbln65iCxFkOP5zYktFxdoWamm4WC2SU7Cnj+DTHJLlW89By1fNNsm+X5 W53adWws+BmK9CuAxWYk3BM2cQ/99hStHRf6hIxIOPo8qAgfTUTsjZrbyJ08 fkrrU6SGHiDHq0n9/aq8+lO6n3NV45CuWlNkqgoJK2I9FnS9vYvEU7SMHy4n oSpD5teRQ+fQcZ1/HYFsEliW++UCtQyo9m55W6k5AtJUHjkLFthRX7NoCr7j BPxsvJiVZBBIfZnbl8ntIsA568D+/yTuU+eKl7gElRAg1bpZ8XBdPMXK70+o LiTgJBnC+KmbRLHsjdcO5hJA227/S4udTK3x1uV7mUSA9j0qbqFnBiWkWKR4 wp2AqBcvCB2zTKrAas1Ly2sE2HeK7lRflk19npv/AecJ+Dh7I+3qdA4llH7u 4a1DBJxTsQ6of/2KWjO+TGXfagLS72yDJxveUfczjNGjzxxgfUwoJFTfU/Mn U5ZuLeTAqUnO9stbEfVNuJORmMmBoOw+CckETP3c2LVxMJwDGpL5C1uTi6nH YoJhd45zIKXPmGmTW0rlvAqaHWthQ63/rSJZtU/UMiEfo75KNtBk33lV532i /EP1D+S9Z4Pp4ZUzqgVllE3TUlb9QzYsKBwencblVNLK1x3bTdngEnKn61Zl JWU87CSPvrAgefWHJzsNv1EFr2+c0MlnQU3RuFV/9TcqvdbwREoKC8SnM6+m XqqiDJvqnKa8WWC7Xvw/AZtqKis7K6J3MwtWxXZ01DjUUiFDexYvi2BC6EWf egvf79Sx3avfqWxjQOAX+quO999553pyzKg8A3yVfSMuTH+ngsTEHRKEGOA8 5Gto69BARXgtrXvSTgcLV/9yr3ON1N7Gwad2wXTYeOvm+3i9H9Siy+qiGg00 4KaGpDSL/qIcQgQELNAcJTSqvzPD6Dell6wSVmQ+SbU6lKo6+f+h9OWEnz/6 3kYN5B8odi4bosre2pHfbJtRys0kizO3xqjQpiC37+5jyCLnSlZG3Bi1aWE3 Ifx6DEn92D43mjZGVfrWli0fHkOhKjX3b5SPUSLu6Ya/zo8jpzrG9xSBcSrx us35p0YTaM+KMwd6Q8ap+jfqSmIyU6jrvcIOm/AJasbJsiIyZgYl9gwH5j2a oGLvaZY8/zqDTEXR97kXE9RK6WX6McxZVHnWxPFO7QSlHyN2tclmFuUJBmZn L5qkfLcvnVqsNYcCTHsVRqInKQ+xoGi+9nm0avyZmMv9Kcq2dMWpO+50LFFi JP8sfYqSeyMunn2XjvkjJza05E9RpKF5Ut5TOh7cqGWg3TBF9ZzWD3OopePC K02BIov/UXavfA9mrWHgI53kXGroP0qkgms0U8XAvtyzPY0+09SMkpopl4+F HR8LTAjenab2fHVtO7WUhS/Y5bAhcZoqSNwnUaHCwgYis/Ip76cpl4qhvzqH WVhSP9LcbnqaelOl+qngHgtnfyiu4Xecof4d4190YwUbt7yQfbfzwixV9UVS 2kOag79us1OSd56lRI9tYQSs4eDC9x9jyIBZKo+/udV6KwffL79oV/d4lqp4 +qK36hAHH2vPXX311yzVICf9X/9NDq5eqBv+6OgcFSakX3b8DwfjmHvzgWfn qGZy0YzcBAdnL+u3vuowRxWrr3xbzCBw6Jrwverhc9S4qBBESRJYT7N5pu7r HFXVELraTofAH21tz/PpzFMXPpf49EYROHe8mPv38Dy10kRJY28CgR95LN5d bzVPvVwfLXk9lcA+gQVLH3vPUy037MNtCwiskciqUS+cp7Yp1BrYNRNYWcGE WvFlnnK6RCu93UHgpRlpGXxN89QT30UKnv8RePq1wc36iXnqyEgru3OawM3n 9WXeSNJAcEscB0mQmJs+dmTtchqkugbfvC1L4i/98cHxijTQl9J+u16BxAX2 Q5P+W2kAWycTxjeR+EXevfWTGjRojrrMlNpO4rQprXOX9/DyiUd5ilIkjvWK rjUypkEZ9U/OV4/EYcUUf4kZDWK/PP83eZDEN9m9sO0MDcJ2EUbaxiR2Ct6Z KWNPA4/Y+w0mp0hsHNMa+CeMBqpBDYttrpE4dG+uED2OBta5CtE/HElcNnEj XDyJBi6vHS4uciPxjmNrH2jm0CAjfnh3tw+J7ck5OZN8GiimiXV53yBxxpuq ZOsiGoj8FBfvDCSxjKRTVkw1j/+ClKOCd0hs8llX9XkjDVhbVrC+3eXxdZXO L27j1eeecTkRSeLyNQO7GnppIOH52ycnmsTMJlzcP0QDi09L/lbFklg9KGIv 8x8NHmi5hebf4+nZca5CgkEH/wA/lcsPSJzVt81IhZ8OhSsyHnY+JHHPPYF6 LVE6tGZapysmkHj5/hbT41J0SHy7a4VqIolNp7N/2cjT4cnPmHrefIEjnvmd 8VeiQ2TqSPhjHq44cbQ3bhMdyOzPCsQjErMF19hk7aDDy5vhFpt4WKNwevjj bjqofygVXsXDLtaVzk16dNAfb5lv4cXnLE2a+XuIDh4vDzMseLivwt6HfYIO 3ncfdjzl1V95fQ9H+jQdZuTUHPN4/MyVJYM3XKZD2Hi4b3A8iaN//lmwx54O Pcnrfyjw9HwLeR95wp0OqcV+BwLvk5jUuCt5zY+Xv5VIzYojsebA6fgA3j7L ilDNfxBDYrf4LSseRNDhvyu+Bw9GkTjXgC815z4duKxL2z+Fk/i/uR/rPj2m w4U/p3VYYSRelZWZ0/yMx/9VjyYnhMQnT/lsGc6lw4Zx29mKWySOWXDkLVFI hwxNxz3HAkhchRRg2Ude/FqbP099SawlV7FPl0uHY4pyfhE8v3hUxVeaN9Oh yqpcdL0TifO8rx2276CDYtD+baE8vym2iZvHj9JBZOClZ/R5Elve7W3LnaHD oFGoOmVF4nuahec+sxigOyRXnm5GYsFHlrajixgws+FI6GdDEuscUh3jW8aA jMlOSw+e/z0ZhJvsKgY46IlRQ1okHrTK8NNTY0BFk7yh3BYSrxHzIi12MSAb xuWaVEhs9cEoxFGHl99rr5rxahLXrZiITjRmwKI6HavQJSQW5n6WzjNnQKJY xxL9BSTW9X+Q+OUsA2xd2/XKObz3tUMzfdyRAWF87VbEGIHjk2+/049mANdy 6aBnJYEdFPUffX/IANbOpZv7PxJ43zOBm1bJDBhc+KRe/i2BR7ODDF1eMuCY nVX87xQC7y8M/P24hgH/CW8vz3MnsBylW6bSxAD/7iXPTtgSeLyIeJ7fxoDI DRnppWd4+9enAKdvgzw+XwXODugTeLLGn29amAkNWnssvKUIXGmsPXBDnAkf c65WGQkR+HEDs1ZEhglchseynnkONmjxfaCgzAQWeeS5VQcHP+n1Xn9oPxOq shJ3BadzsBHtunHaTSYM0pP7A9ZysIKf+g7VO0xYaZZiGCHFwTPsGRkUzYRJ z05BKz4OThVw7+EmM0GwYfOgThcbz4m7utM+MsG6N2ta/iEbpys7JpnQWHBm scyI8DwLe2erBrQTvDkkN1lYpY+FjTePXrqygAWJ8yXzgnUszJvvVP1kWFB1 oruIL52FTbSvfcpUZwGppn/qnyELs05c6We7ssBlIvpLZDgTS+8/KrfZhwWD RZGbfZ2ZeNNO6rDFLRYo9m/budyMiS2kF+YXxPHqFTia2a9k4nc/XvpfLWDB Bt/y/VY5DOxkNiPdOM3Dh9ZyNArpOES/04DDYkPYktdWyg/o+Il6pc9mQTZU hQ0ofeGd17VLE7tDlvLWRyw3LtxBxxt+auXu3sUGuYrT7kUvaLjXPFgvw5N3 xKapHxNcM49oBg7XGwPY0Boq5R7YMockNMyzOXfYIOJrKnQiYg7tkVkvbpnA hg3qzC769Cx61FLTthizITuJf9P+4hlkdkrK1YvOgcF9ATfsNvxDlRZpTw/5 cyC7qjF+T+Ao8l3htWMsmAO21Uahm1VGkVrXka8xERzw1rb19KkdQQ8u00aa H3Gg1b9alFo6gi47mWicL+JAWJDHn60pQ4i8za5zn+OABXEiM3NrP9r92pKR 7EKA3JTfD74lrWjcdWvUXm8CvKMliCL7FpSmLqTYd5MA8P6dUJbXjESK3xxY H0MA3mTt0KbaiH5VLIjLf8Vb901WWLywBnm0v1tfOcyb28MbuSytdPRKSMp8 wpoE2h+jntijzVTX2j0J9g48bFPLxeYtlISeXdtfdxK8rSVkKze3Uh4B5Wd7 gkiQc2vZlq/ZTmnPu9k0ppKAb3ZY/rrSRdUM/vB628GLxxGKY8RfaqD24SMv Mz6Qi1uHPj+epOSGP3dMn+YD2w2Jc592TlGHRMYVXC7zwWBjyZAHd4p6pW/w zNaNDwxL85QFyWnKo2Qu1zKWD1rzpaLLeHMN/+tTJVpcPnhjunJmTp0OCveW 9xD6/DC4POo9vsGBuFXOLgpH+AGiIiN7OzggmFNB6pjxg/cE/ws/bQJGPjmv 8bXmYXnx24K87yM89vXSzG1evGb+dqdgPjhh5NY/+JUfNihVnK57LghhZO1w 40EB8DablF6YvBCYkYp+kyYCMChner/vx0JwkvUUW2IhAKlF5m3zoqJgvmWN 6hFbAXhz5umqFh9RUDrj5VgZJgAin78esLYSgxK0drK4WgACK3JFOlUWw2qp tXpJmwTh//8/w/8A9MK6RA== "]]}}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{528., Automatic}, PlotRange->{{-6, 6}, {-6, 6}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], TraditionalForm]], "Output", CellChangeTimes->{ 3.3893546981533318`*^9, 3.389354807652418*^9, 3.389354923424439*^9, 3.38935503605718*^9, 3.389355088660077*^9, {3.3893559567392817`*^9, 3.38935596136382*^9}, 3.3893560375108213`*^9, 3.389356460689004*^9, 3.389356660635619*^9}] }, Open ]] }, WindowSize->{718, 764}, 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, 386, 11, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[1001, 38, 462, 12, 25, "Print"], Cell[1466, 52, 177, 3, 23, "Print"], Cell[1646, 57, 336, 8, 23, "Print"], Cell[1985, 67, 166, 3, 23, "Print"], Cell[2154, 72, 578, 17, 51, "Print"], Cell[2735, 91, 177, 3, 23, "Print"], Cell[2915, 96, 595, 12, 34, "Print"], Cell[3513, 110, 609, 12, 34, "Print"], Cell[4125, 124, 184, 3, 23, "Print"], Cell[4312, 129, 4381, 64, 23, "Print"], Cell[8696, 195, 319, 7, 23, "Print"], Cell[9018, 204, 169, 3, 23, "Print"], Cell[9190, 209, 431, 11, 25, "Print"], Cell[9624, 222, 835, 27, 61, "Print"], Cell[10462, 251, 462, 11, 44, "Print"], Cell[10927, 264, 482, 11, 44, "Print"], Cell[11412, 277, 170, 3, 23, "Print"], Cell[11585, 282, 379, 10, 23, "Print"], Cell[11967, 294, 455, 14, 48, "Print"], Cell[12425, 310, 300, 7, 23, "Print"], Cell[12728, 319, 176, 3, 23, "Print"], Cell[12907, 324, 1695, 49, 127, "Print"], Cell[14605, 375, 169, 3, 23, "Print"] }, Open ]], Cell[14789, 381, 8180, 141, 533, "Output"] }, Open ]] } ] *) (* End of internal cache information *)