(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 25416, 628] NotebookOptionsPosition[ 24045, 584] NotebookOutlinePosition[ 24389, 599] CellTagsIndexPosition[ 24346, 596] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Etude de fonction 09", "Section", CellChangeTimes->{{3.485916632132872*^9, 3.48591663709317*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{"x", "-", "1"}]]}], SequenceForm[ "f(x) = ", (-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619730772*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"1. Domaine de d\[EAcute]finition\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197328167`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\ \[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \ {\\!\\(TraditionalForm\\`1\\)}\"\>", StringForm["`1` \\ {`2`}", Reals, 1], Editable->False], TraditionalForm]}], SequenceForm["Dom f = ", analyse`Ens[ Or[$CellContext`x < 1, $CellContext`x > 1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197348757`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{"x", "-", "1"}]], "\[InvisibleSpace]", "\<\" n'est ni paire ni impaire\"\>"}], SequenceForm[(-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2), " n'est ni paire ni impaire"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619737544*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"2. Signe de f\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197397833`*^9}}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "1", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{"x", "-", "1"}]], "-", "|", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197420063`*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"3. Limites et asymptotes\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197447977`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^2 - x + \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x - \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\ \\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^2 - x + \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x - \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\ \\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \ ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2), $CellContext`x, 1, -1], DirectedInfinity[-1]], " "}, { StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2), $CellContext`x, 1, 1], StringForm["+`1`", DirectedInfinity[1]]], " "}}, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619747176*^9}}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \ \\!\\(TraditionalForm\\`1\\)\"\>", StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197530117`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\ \\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - x + 1\\\\)\\\\/\\\\(x \ - 1\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\ \\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2), $CellContext`x, DirectedInfinity[1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619755521*^9}}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - x + 1\\\\)\\\\/\\\\(x - 1\\\\)\\\ \\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]], DirectedInfinity[-1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197589893`*^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.485916608699273*^9, 3.4859166197621317`*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"4. Intersection avec les axes\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619764653*^9}}], Cell[BoxData[ FormBox["\<\"Gf \[Intersection] X = { }\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619767153*^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.485916608699273*^9, 3.4859166197697268`*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"5. Etude de f'\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619772468*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", " ", "x"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "2"]]}], SequenceForm[ "f'(x) = ", (-1 + $CellContext`x)^(-2) ((-2) $CellContext`x + \ $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166197752047`*^9}}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "0", " ", "1", " ", "2", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", " ", "x"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "2"]], "+", "0", "-", "|", "-", "0", "+"}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{"x", "-", "1"}]], "\[UpperRightArrow]", RowBox[{"-", "1"}], "\[LowerRightArrow]", "|", "\[LowerRightArrow]", "3", "\[UpperRightArrow]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166198128157`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" Max : \ (\\!\\(TraditionalForm\\`0\\),\\!\\(TraditionalForm\\`\\(-1\\)\\))\"\>", StringForm[" Max : (`1`,`2`)", 0, -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619828498*^9}}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" Min : \ (\\!\\(TraditionalForm\\`2\\),\\!\\(TraditionalForm\\`3\\))\"\>", StringForm[" Min : (`1`,`2`)", 2, 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166198566217`*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"6. Etude de f\\\"\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619872655*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f\\\"(x) = \"\>", "\[InvisibleSpace]", FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "3"]]}], SequenceForm["f\"(x) = ", 2 (-1 + $CellContext`x)^(-3)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166198889933`*^9}}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "1", " "}, { FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "3"]], "-", "|", "+"}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "x", "+", "1"}], RowBox[{"x", "-", "1"}]], "\[OverParenthesis]", "|", "\[UnderParenthesis]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619908222*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"7.Tableau r\[EAcute]capitulatif\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916619924324*^9}}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", RowBox[{"-", "\[Infinity]"}], " ", "0", " ", "1", " ", "2", " ", RowBox[{"+", "\[Infinity]"}]}, { RowBox[{"f", RowBox[{"(", "x", ")"}]}], RowBox[{"-", "\[Infinity]"}], "-", RowBox[{"-", "1"}], "-", "|", "+", "3", "+", "\[Infinity]"}, {" ", RowBox[{"y", "\[LongEqual]", "x"}], " ", "Max", " ", " ", " ", "Min", " ", RowBox[{"y", "\[LongEqual]", "x"}]}, {"croissance", " ", "\[UpperRightArrow]", " ", "\[LowerRightArrow]", " ", "\[LowerRightArrow]", " ", "\[UpperRightArrow]", " "}, {"concavit\[EAcute]", " ", "\[OverParenthesis]", " ", "\[OverParenthesis]", " ", "\[UnderParenthesis]", " ", "\[UnderParenthesis]", " "} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.4859166200185337`*^9}}], Cell[BoxData[ FormBox[ StyleBox["\<\"8. Graphe de f\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{{3.485916608699273*^9, 3.485916620033779*^9}}] }, Open ]], Cell[BoxData[ FormBox[ GraphicsBox[{ {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], Dashing[{Small, Small}], TagBox[ TooltipBox[LineBox[{{-20, -20}, {20, 20}}], RowBox[{"y", "\[LongEqual]", "x"}]], Annotation[#, $CellContext`y == $CellContext`x, "Tooltip"]& ]}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], Dashing[{Small, Small}], TagBox[ TooltipBox[LineBox[{{-20, -20}, {20, 20}}], RowBox[{"y", "\[LongEqual]", "x"}]], Annotation[#, $CellContext`y == $CellContext`x, "Tooltip"]& ]}, {{}, {}, TagBox[ TooltipBox[ {RGBColor[0, 0, NCache[ Rational[2, 3], 0.6666666666666666]], Thickness[Medium], LineBox[CompressedData[" 1:eJwdVAk01H0XHmsjZElCbzRZipAMKi/vjzYpS0qUSn22FIVBiLSQipZXUVHK FiEqKkvL/UWSnSGJLNmHwX9mDDOyfPN995x77nnuufece597z0Nx89vvKUwi kdIE/r94YdiWvbhIxTck3d4aSBnhoXBFbuccFWcErYtbJmGE7WR7Zor5VDz/ JvQ/TDEjvGar/7wfh4pFikHmuaCvPPYuuXeIij1zhmhqgjxZ/4cqrqfiTOmm A8s6qDgh6MTeS4+oOHKu7TIzm4rzhAIzSZupOEjEJyV3OxWLeVoZKh8zxM7T 3HyH04Z4eXulb3r8Juw7p1jp83QT3l+R7K5dY4Cjp3453Go3wOGT5r7/9m/E dxLGhvtJBrgkJPn0S3t9XHPizcUTfvrY7u7BNQtJungZ+UZk0HtdbJXy0W43 Uwf7Wo+3vJTZgLOqwtoCj2hjMaunK/suaWPX6IQVjc/X4TN5SieKm9bhyBMi BZLLtfAy+wcPEsy1MElPDbZf1cDj2gWc94UauCMu6Vre97U4urHkWbO4Ov5r qXfO1DYKVig876oaSsE+xjpinX+p4XOja7SvxKth983dzysqVuGNLynu73b8 hXVCTRfPZirhruvt+/2pyjit68CXMMsVmKGvLP28fwUevrzCzEpJHhstrKXm NMvjssT1O0ecpPHqHkXqa2kZbMD4ObUxRRxL9uzjH3tDxjvKOiXmnUjY5b0u Q40njAtyn22t+puEzcmc0a4eYaz0yO9U/BoS1qZfTUyvEsZtM+J397YugtiT eWTxQBhrhjvJpswuwLZXpRcaTYRx+WWulIXVPJTnyb04ECKE525TxWN6+cAr T/aImF+EJr8qT5VcPkjf1OyUalyEjH1HKgsC+XDobd/uwtRF2CMfFf1DnA82 1S+czXcsQlIiXVhbjwe/zp2tPHZzAUweByzWhk2DuMF5KxXKPPjnvOTJLedA 4TWTyZvHZ8Fg2dmobb1ssC54m3F88yywaLrLAvPZsEHB9bKDzCzQzHLUW63Y sOurV18C8CG4Md3ufgQLwm6wVXIpfOCMbrA2rpuEi1P9ZknMGQh689z1vtck DG4IqMn6OgPTFzSDZkiT8C6mtq0rdQZ4smpPS40nIOWzbVLtwRmYM5Hnmj9l Alfpgd7Hz4I5o3ipu2gMWD190KwqnQvXbILfZUsxQKdbXLj9IhfIiuxacvYI bJw0/EA5xoWlOWPTNZ3DMIaOMzyUuCDT2G1jv3MISr2WaDTET4HSqkqes1I/ dNgk3zkTz4GkActlpYV9kEU7zS+icUCl4JO6im0fXCoYi93ryIHVliV2vy7/ Bv2ABU6wEge2NzhZf27rARo/TYudyQYnL/U0esRPSDmz5OjDJhbEBgRev/u2 HZINMqUjSljwMaLCb//EDzDTOGbamsoCjXvu/9CPt0G75q2UCRoL2JDR2byt BdRES2x1VrNAq5ZTHh9OB5LsyKCMBAsOt23PdXjTDMGGLp4xXAIwsz+0WbMJ kr//mDNpImBk8iRe+7EBtChWRNgnAuzFyXfS9euB1Mq+ejyfAFXqbt10uRq4 Ldpur3WLgKvWI7OUqG/AKK7tlYskgHn8enXa1Fcwcsb0N34EHDi3/iHFqxKa rqn9VnAjoOzmN6+0HxWQa7FGbMtBAigZ3sYU63J4cVc2TMOagOulZNG0Mgw9 Fd/f95oT0P3U4ZnloU/wricrIZBKQH5d/DbLv9/D5N/iKwe0CQjnN/dYqJbA 9I+FrK0UAqy15C9YCL0F2/Hc+XBlAlYe2K9iMfAaeFES+kXyBNQuavhdvJ0P DV7aucNSBHgffpYT6ZgNFj6vdq8lEyBapDlwQSUN7mV/3eMrSoCFso35LE4E OeYZt0YhAoiHSR6spCtgn2ZXepBEQIRwQuWuLadQpZwoT0KA9ZPdqxRM7qD0 tRzbGQHuVn49ISnzGD1PKg7TFhHwQW3/EGOZiSx3G9NfiBPw7qfzlWvhuciF fmTfbUkCpPGY+heXV0jKPj+pU44AdC8v5ktIEZItTpLMEOwT4OXD+JLwDmku lldx1hKQvnWDTeXrUkTvQ5+79AholRorqGz4gErquTUBpgSI9+bKfR0D1EHW zP68m4DHh41N3aM/o5ATO5V6DxFgvD3Rp1++AjmMOXJ6TxPQoMt97J72BXlH faL+FNzzpOLBhv6NX5EcU0iuJ4EAEuntovunKrT8mY3iUsE/JDEUNg3YVKOT q7eYBVYRYNgS5ObRWYOowSOixgMCvj+03hs4VYccPRuSfURY4JFlVOnBq0dm h5zZRposmL+TMD0Q04gG/HonXlmzoNZs9l5hbBMK2m8TJxQgqNdyqTRUpqPq oqMr3nxjgcGqpd20XjoasQlc6cUX9MuUTRdmt6Absfcdb+mxoUb0tAznbCtq Z1z457AnG+7zlddTTb6j4ILksrlUNrhNVFsEzn9HzurcwAKBLun3hx0u+tKG EiLtTXI0OFBV9zOWeqAdRZTfV4wo44B3aEfVkQ0/kcodzURVhSkga3SKRot0 IFqFgpFG0BTkNHZavujsQC5Ot0LmOqZgT/ivyNaiTkQyVtlBsebCqFbX+7m4 X0io6o+KEnAhjt7F0/DoQpvuVkcHmk9DnXYPLVihB+2EXNdxgV75fu95mcLs QXYxH2Yvs2YgxsJ/2s2tF43e+tfE9yEPnO4TCiENvSjyo+xUyl4+rGP6U+NM fyOnk8c+aEjNAs+S5fA06zeKKzNt1uuchW8PAvyL5PsQ/Srjz9KyP+C9nZbf OdqH9hRfKnPLn4ctSezaSad+5PRuttC/cgHIk7RRkYp+ZDJIexA3tQjtOzhk pY0DKPVhFDfxCQnnJAeu0300gG6ESPKWOwjh8wRnp8WSQXQqoandbbkw3rMr yMMxcBAZC+W98h4WxiqPp6549wyi48WsrKONIniUFZQWsXcIRfs33G2vF8Vl Vlz4t3gIsYM0fScHxXBsSnB3pvowqlts0dqzagl24XDnSu4Mo8Chs5ttaWS8 wfrcqvo/w2h9zQLbmpDAc0+mt/4+OYJ2rq/2wo8kcd3UuUPclhF0a9gjoCRC Gj/eM3NOwoKBqP1P9pqlyGDf1JDE1S8YKHYiTEZYTA6bTc8UbVIaRb4eg8lv T8ljKZtQ+s7oUVRWpLvFZ4kC/pXGIw4To4jGG5E9yVyB82dCZc4eHUOOOl5N qrpKONKWr3fl2xjSeR5n0PJbBdtlhNncN2IitxzP5kEjVazK55/OTWUi0zzG oS0GFDxhd/7GJ6lxVKm4Rvd1rzr+lDmbTQ8dR9tj6wtcw9bh27Pnvw4NjCPd 9TqOjKu62HXfn4HZfROofvjlK3EZQ7wxK1xE5uMEGvRi+ZK8t2DS3B+KuvYk kkhXZMbf24Z/X9DKoNhOItL/zRr/FzZmcao= "]], LineBox[CompressedData[" 1:eJwdUws01PsWnhniPzPej8bbQZmQR/6DPI7friF0kJQyk5tMSFJeXSeVDvJI tBJFIRHyiDj0oCNCJF2Oi8g50qGQR53BDGKYO+futX7rW3t9317f3r+9tg4n 1DOARCAQ7ojeP1gvp/S7hw8XEf4fLlBQvtHdEMJFvuqbE+NZTLgyYP+h7T4X 2dA0ncMYNhAmvDTX/Z6LrrQN1css4OBt2Lw2JDOPLg/GzISbmQF4CSnjDvPo SGJiyxNfI9gWi9Tmzs+jo7t2io9300Hu4S8GSzXz6HbbT2f/1NkK39817yRM zaOTrNgTurJ6ME4gOFM0F5C7GNH19Qkd6DKCw0oHFpCDfIDWVZkfoPZQbKBW iogvzG3q/agJOXEv/72teQFZs5b6XwjUIb6SkGjOX0Bi9lqGacfUIHgIbtoZ LSKbA+535NdVwJMUV7THbxGpVWoMVr2mgY1xS61H9iLK9ozHoX4zWAwMZjW9 WURfq14W3xlSBrMLc+e3CxaRQf/q5xMyymCkS/LNMeEhKOoPYrOUQP8NjYn5 8VDvYPLBhieKoBNmTI/K5CHL1Uf5DjqKoEFjUj+389D6edYh9RwFUGny/nv/ Cg+VRSZ0lWkpgGLAmf5mQz76dYROzKqSBxmphGfG/+KjmeeGnCZHeaDU3cnN vc5H9fPfuvQn5WATu/oXcisfuWm8jVq6JgcEYvvxn3l8tDt/ZF+4nRyslf7h NKG/hKamhh9NjsnCkjvX6ABrCa2zj/cNe8nCXJ46z6RpCX25Gilbz5aBKeaO 93ncJQT8GvrGtDSMz+xppOgtoxOpBYVjsdIwesOn4JzXMrKV2B7UriUNwzsj EiaTl9GY68t3Gm1SMPAxOejg82V0+gE57+RpKehNuuvaOreMLD9UrFlrSkHH QKdS/v4VtKcyKGgglQotF0ZXqAkraKClTOWrCxUadXkj0U9XkPfD89e3SFHh 2Rtyy9SXFbT+qW+Q0UeB2jDtEi/178jTwU1iNJcCVTSLlDa37+hnMe17E0EU KGvae3pH7Hf04my4QNmaAvekoiykJ74j+oJ9t+k4GXLqUlUv0FZR36Vhhdbn ZMhiF65/cVlF1MLDWM8tMtwgPhs7dHEVbc0bWzKNJENa2X/aXz1aRerBhK4O TzIk7xsvNx9bRTdC0vsiGWSIX1q+VqC4hvYPWaWrqZDhnIPeoYvn1pBqUuTi 3GcMImd32sxUrKHUgMhPX7oxOJPhruX9YQ19SL7dd6keg2Brf1KHrAAtXvGq yCnGIOCv6El8twBphlbkG2RgcCz5elfhWQFyoRGV1OIw8DEpeSRbKkCX6s8n HwnH4PC75xkxwwJECz4VPcrBwPNib9QsdR351Xaybnph4KY3yWbZryOFbYej Ql0wcO5as38dto7inE/OcOwxYIbL61kUraOEeYl0DgMDexW6ZNG7ddSTxlrg GGFg3Ww3K4dtIJr4j7tYehgwAj1/v2SzgRy1hh1tNTAwkw6qmwvZQHShgbdQ GQOjxzHZ7HsbqNHOzytPDgP9I5kXOv+7gYQcajZZCgNdUrmvpbgQhYxMzdhj GGiWNzGLLYWIq3g8lbEJAxWPAbrCSSFydi1W+UTCQHF5mhqbK0SD2roZTCIG MvnCv792C9G+6V899hEwSLhPmTEmEKAnRpJIEOWkKOURf1UCRJfl5v/Ds49V 9NUzCKAsK/ubp6i+di96I+VBgJ8c3UdJYhhQLAaaj50iwMhAfCRL5M/RPvn0 cRIBZNWtbDxE/T0nb1Ri9wnw4pXWrjEqBgq8jCKfFwRwNtw1JiGaL3iUnlPz ngCbnWIaflPCoLWzMV2cRwCZPt+KVVUM1Or2J3vLEoFb49DXpI1BxN3JmEpD IvAKX6SI6Yv+I0Lu1EE/IlQ7/aWyjmNw3qfEr+wiEdxu15WW22LQt8fGW5BN hP6b3SYdTAwuq/s7FvcQ4QqzJRFE+x3Z9N12ZZoIT4+xg7OPivbDvWbuuokE zmmnQzyCMPj86pk2z5YEv8rQ4kYuYuBwhrrKLCcBw2J6SLoCgzzvAm72KxGf Vpy19SkGvN0WU7MfSdB2vHMqpRWDYprvQOZmMahaLw0yHcFAvKX20afLYnD1 i3j6YwUy+Dx0KrG6Jwa0dunJpR/I8PjWSG7qczGgX+vUjTIlg3+wRAo+LwYZ u5Zfb3EjQ7si+/jlo+KQcJBropJKhqRAooqe9Sa4Wtqutl2OApJSHnGcbxLg +x441VZU8KazX1qSJeGP6oaaD3upULHbX0jZIglWgZga/SgV3KPPxdSxJIE/ XilOTqRC1mRBtHi7JEz4uMSv9lNBv2U+/EGu6G5KChMNoqTAMSqTM+NMgRtV 7xP5ndJw+a9BZkSRNDw80zvn7ioHNblJHpcW5CE28eZXIxVFCL3vL/f5kDI0 Su/J1WRuhqPBOZrJcSqQbGjgtMdFFVL2R1njeerA/IPuWu2iAeJKtyZ/WdWC 5W2hq54Z2jD0NpGbIKsDsktOI/EHdMDrAscyp00XjkiXRlUT9CCEOqvbw94C pYpV6HbGFtB+2JElMbMVdsuruURo6sOFeuYB2Vw6PPmgfOpsFx3CHoQ8tTQ1 gKDCB3l+RwxAimTFMZkwhBxWo4OHjBE4nj54yzBzOyxV9XJrG7aDSoNmqOMW E6hvPXGrzNkEMiKu3DAbMoX0rRKcuO+m4Jm0z/juUzMQsEcnpzrMwPBIgldx zA742SzsjOG1HTA4Sb6f6WUO+QImy9vfHHo4E7sUtHGY9qprNTfGYUy8dOWW Lg6B/OzGOjMceA+CqlX1cfCTSHvGYOCgOjuroSPSCSQKaixtcfCPXFg2FeFt /8BqGxccVi8Lq9wO4+BoMDG6OwAH/RJVtZTrOFgWJhMP3sXB2unPXqlMHE5p mmu8K8DBdTovOT0LByu7YatDxTiEG//AzxbprLaqR3g/xKHxiX7vAxGuKB9d 8GnAwbMDT3r1GofX3gE6ge9wCAji2zm/xeFbZ/ZPU+9xOEd5tvi2B4cTak1R QSM43HW38esX6ezR59+DP+HwZRDsxkX4Y33ytdB5Ub/nSIsBUzh8PLy3mcvD QVr9Vfn0jMgvXzAfvoKDua8TbV6kE5cxYZ8ViuYiknvO8nHYsb3yOp/EAO+i roQVkQ6N0jqiJBgQ7Jhme1Eg8isIW18mMyBmym1BKKor+fbEIlqaAf8DHMsj sw== "]], LineBox[{{0.9870178153616522, -50.}, {0.9872237838079239, 50.}}]}, InterpretationBox[ "\"y = \\!\\(TraditionalForm\\`\\(x\\^2 - x + 1\\)\\/\\(x - 1\\)\\)\"", StringForm[ "`1` = `2`", "y", (-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2)], Editable -> False]], Annotation[#, StringForm[ "`1` = `2`", "y", (-1 + $CellContext`x)^(-1) ( 1 - $CellContext`x + $CellContext`x^2)], "Tooltip"]& ]}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], Dashing[{Small, Small}], LineBox[{{1, -100}, {1, 100}}]}}, AspectRatio->Automatic, Axes->True, Frame->False, GridLines->FrontEndValueCache[ analyse`grids, {{-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}, {-5., -4., -3., -2., -1., 0., 1., 2., 3., 4., 5.}}], GridLinesStyle->Directive[ GrayLevel[0.85], Dashing[{0, Small}]], PlotLabel->None, PlotRange->{{-5, 5}, {-5, 5}}, Prolog->{{ GrayLevel[0.], AbsoluteThickness[0.25], ArrowBox[{{-5., 0.}, {5., 0.}}]}, { GrayLevel[0.], AbsoluteThickness[0.25], ArrowBox[{{0., -5.}, {0., 5.}}]}}, Ticks->FrontEndValueCache[analyse`ticks, {{{-5., FormBox[ RowBox[{"-", "5"}], TraditionalForm]}, {-4., FormBox[ RowBox[{"-", "4"}], TraditionalForm]}, {-3., FormBox[ RowBox[{"-", "3"}], TraditionalForm]}, {-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}, {1., FormBox["1", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}, {5., FormBox["5", TraditionalForm]}}, {{-5., FormBox[ RowBox[{"-", "5"}], TraditionalForm]}, {-4., FormBox[ RowBox[{"-", "4"}], TraditionalForm]}, {-3., FormBox[ RowBox[{"-", "3"}], TraditionalForm]}, {-2., FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1., FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {0., FormBox["0", TraditionalForm]}, {1., FormBox["1", TraditionalForm]}, {2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}, {5., FormBox["5", TraditionalForm]}}}]], TraditionalForm]], "Output", CellChangeTimes->{{3.485916610508588*^9, 3.485916621464077*^9}}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{469, Automatic}, {Automatic, 194}}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 104, 1, 44, "Section"], Cell[CellGroupData[{ Cell[696, 27, 436, 12, 47, "Print"], Cell[1135, 41, 239, 5, 24, "Print"], Cell[1377, 48, 602, 15, 24, "Print"], Cell[1982, 65, 475, 12, 47, "Print"], Cell[2460, 79, 220, 5, 24, "Print"], Cell[2683, 86, 467, 14, 68, "Print"], Cell[3153, 102, 231, 5, 24, "Print"], Cell[3387, 109, 2561, 44, 98, "Print"], Cell[5951, 155, 312, 6, 24, "Print"], Cell[6266, 163, 797, 16, 47, "Print"], Cell[7066, 181, 680, 13, 47, "Print"], Cell[7749, 196, 377, 8, 24, "Print"], Cell[8129, 206, 234, 5, 24, "Print"], Cell[8366, 213, 155, 2, 24, "Print"], Cell[8524, 217, 304, 6, 24, "Print"], Cell[8831, 225, 219, 5, 24, "Print"], Cell[9053, 232, 510, 15, 51, "Print"], Cell[9566, 249, 864, 25, 104, "Print"], Cell[10433, 276, 287, 6, 24, "Print"], Cell[10723, 284, 281, 6, 24, "Print"], Cell[11007, 292, 222, 5, 24, "Print"], Cell[11232, 299, 388, 10, 48, "Print"], Cell[11623, 311, 647, 20, 102, "Print"], Cell[12273, 333, 236, 5, 24, "Print"], Cell[12512, 340, 1039, 26, 124, "Print"], Cell[13554, 368, 219, 5, 24, "Print"] }, Open ]], Cell[13788, 376, 10241, 205, 378, "Output"] }, Open ]] } ] *) (* End of internal cache information *)