(* 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[ 22595, 576] NotebookOptionsPosition[ 21304, 534] NotebookOutlinePosition[ 21648, 549] CellTagsIndexPosition[ 21605, 546] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Etude de fonction 11", "Section", CellChangeTimes->{{3.4859178360567503`*^9, 3.4859178407524147`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], "x"]}], SequenceForm["f(x) = ", $CellContext`x^(-1) (-1 + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4859178267738543`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"1. Domaine de d\[EAcute]finition\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917826774963*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\ \[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \ {\\!\\(TraditionalForm\\`0\\)}\"\>", StringForm["`1` \\ {`2`}", Reals, 0], Editable->False], TraditionalForm]}], SequenceForm["Dom f = ", analyse`Ens[ Or[$CellContext`x < 0, $CellContext`x > 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4859178267766943`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], "x"], "\[InvisibleSpace]", "\<\" est une fonction impaire\"\>"}], SequenceForm[$CellContext`x^(-1) (-1 + $CellContext`x^2), " est une fonction impaire"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917826778521*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"2. Signe de f\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917826780177*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "1"}], " ", "0", " ", "1", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], "x"], "-", "0", "+", "|", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.4859178267814693`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"3. Limites et asymptotes\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.4859178267863817`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^2 - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/x\\\\\\\\\\\\\\\ \\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\ \\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\ \\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\\ )\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^2 - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/x\\\\\\\\\\\\\\\ \\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\ \\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \ ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) (-1 + $CellContext`x^2), \ $CellContext`x, 0, -1], StringForm["+`1`", DirectedInfinity[1]]], " "}, { StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) (-1 + $CellContext`x^2), \ $CellContext`x, 0, 1], DirectedInfinity[-1]], " "}}, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917826787754*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \ \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917826792973*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\ \\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - 1\\\\)\\\\/x\\\\)\\\"\ \\)\\) = \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[\ Infinity]\\\\)\\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) (-1 + $CellContext`x^2), \ $CellContext`x, DirectedInfinity[1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917826794345*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - 1\\\\)\\\\/x\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) (-1 + $CellContext`x^2), \ $CellContext`x, DirectedInfinity[-1]], DirectedInfinity[-1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917826796668*^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.48591782679865*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"4. Intersection avec les axes\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917826799902*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\!\\\\(\ TraditionalForm\\\\`\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\ \\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\"Gf \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\[Intersection] \ X = { \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\!\\\\\\\ \\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"(\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\(-1\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\),\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\(TraditionalForm\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\`0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\))\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\) , \ \\\\\\\"\\\\)\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"(\\\\\\\\!\\\\\\\\(\ TraditionalForm\\\\\\\\`1\\\\\\\\),\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ 0\\\\\\\\))\\\\\\\"\\\\)\\\"\\) }\"\>", 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]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4859178269289618`*^9}], Cell[BoxData[ FormBox["\<\"Gf \[Intersection] Y = { }\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.485917826943636*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"5. Etude de f'\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917826969626*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], SuperscriptBox["x", "2"]]}], SequenceForm["f'(x) = ", $CellContext`x^(-2) (1 + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917826986989*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "0", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}], SuperscriptBox["x", "2"]], "+", "|", "+"}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], "x"], "\[UpperRightArrow]", "|", "\[UpperRightArrow]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.4859178270030203`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"6. Etude de f\\\"\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917827019208*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"f\\\"(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["2", SuperscriptBox["x", "3"]]}]}], SequenceForm["f\"(x) = ", (-2) $CellContext`x^(-3)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.485917827037434*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "0", " "}, { RowBox[{"-", FractionBox["2", SuperscriptBox["x", "3"]]}], "+", "|", "-"}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], "x"], "\[UnderParenthesis]", "|", "\[OverParenthesis]"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.4859178270529633`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"7.Tableau r\[EAcute]capitulatif\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917827068636*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", RowBox[{"-", "\[Infinity]"}], " ", RowBox[{"-", "1"}], " ", "0", " ", "1", " ", RowBox[{"+", "\[Infinity]"}]}, { RowBox[{"f", RowBox[{"(", "x", ")"}]}], RowBox[{"-", "\[Infinity]"}], "-", "0", "+", "|", "-", "0", "+", "\[Infinity]"}, {" ", RowBox[{"y", "\[LongEqual]", "x"}], " ", " ", " ", " ", " ", " ", " ", RowBox[{"y", "\[LongEqual]", "x"}]}, {"croissance", " ", "\[UpperRightArrow]", " ", "\[UpperRightArrow]", " ", "\[UpperRightArrow]", " ", "\[UpperRightArrow]", " "}, {"concavit\[EAcute]", " ", "\[UnderParenthesis]", " ", "\[UnderParenthesis]", " ", "\[OverParenthesis]", " ", "\[OverParenthesis]", " "} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.485917827086591*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"8. Graphe de f\"\>", StripOnInput->False, FontVariations->{"Underline"->True}], TraditionalForm]], "Print", CellChangeTimes->{3.485917827103182*^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:eJwdjnk81Pkfx4fJZEnuI/wwzsE4v44o+/1QrSaMHGnb6A7tryh0kVQqR7aN zdVlh1UmP2pLxI/en7I50sGMRrty1AhZNQxjhjDb7/d8PF6P5z+vP570XfGh exUpFMr+r/ufU0eCxHI5gdsjjlkRUwQeTtGT9M4TWJi8y0ptgsBsjQFp3SyB V9XfthwZJ7CZ18GF+K+/wdBw+tVhAj/JzlMe/OqCPKo29S8CKzv2mOAXBI7e d7GHhwl8OWlHwKmrBKYcYgoPXSRwpULibxRPAreEFImrbAmstNffdUWUK36R JY1lBLti7TdP95fmuuBadM1FI90FhzZf2W37zBm7Wr9QGWtwxikin/2XhE44 pY8tTGx2wg+PXvnxTrAjprHNlow4OGJ23iazxWImPrMx+pHzESb2v97EXj9u h4tHuCfJFjt8s/W4IHGrLT6YlvxCk7DF285e1n1VYYM751UdM1Jt8Mkd1GpV bWss2sEnKoasMMXBFNacs8RZ6O6yqDBL/NeF4ozK1+aY+XpsS1CJOTZWieVO +9GxhZijVbqUjv/tbqfUa2yKTVXkGW7FJni3Z39Fc7MRfvnRwtrH2QjbHfOW x/1mgG/WuDE8F/Uxpy/sj+O+unj10rV7W07p4JHTuqv9DbTwq0/e4WPumrgh n7FuNEINP4/RL05mqGLnj39OO12nYS+RPau6jYqTJhxs9c/SMKd16cSB/1Dx Q+npqMUfadhO3Hre+hIV+9LsWp6vpGEJf7Xlmc1UHGqRXLivWwm3BffGDn5Q xIejDL3LVJVwcN+ikK6giBu6fkjTS6biIE7H5HtnCl7b0PvNQgQFDwSXqea+ kUH17XKv1lUUrNfUI6fmy8Dgavy+XDMKjmGalm8IkYFASssL6JaDwiTvcHC7 FKxSIjSuzy1C2vjYjHHdDDw5LVmG/BcgYqWspz9zGuYvErTzg7Ng4DotfCsV QWd8617D27PA9OOaae4UQdnGrU+rE2fBl9g0ldv+GTZopZ/toc1Cz+MpjZii T1Ccz1O0dfja5Q0MAfNv8Lh2SN5xfAa2D0nMh+yH4SD3jkxTewoYM06RxtcF 4Lw8Lt1vUAz8vrS6SN/XMJnAXJ5YJYatewSC7Pd8SFjNtej2F8PNqPZJllEX HH5Vyi44MQn3qnp7s1taYGrMnuX+XAS1G0cjEuayyKSaim0F0SKAwc9HlkWW kTOpVklSighs+Dsb9V3vkjIN05J6989QwqrxKU9tIuc9tCQ+JeNgkuVrHHjj OUlLl/36XcJHMNu9XqRd2EdmBB6uvbXsI2RxFR7zKgZIZT1xh/KtUVgxWVOV /X6QVOH+PfOsdwTq8jsrS9SFpPqr/sDgdcOgK/+y/9iDEfJS0dZddwc+wBqG S9v9iVFSa9ebo5rJH6DoSMCVbmKM1JF0lfKrh0C/yI0o4o+TBkZPZZsNhKBe R9GirJ0ki4d8l9ffew8pfvK5TGUxaVj9yMIw6D0EqDA89/DF5L98H7Lfnn4H 3967/KU9dZq8oeK+x8f4HZhMK3pu2CYhTbt/P36jdhD8LywvVvGfIde8jGA9 FgyAruMOXjMhI7/buTEpXXUAnI85adG9Zsn106ySdagf7OqzMy6w5shAQx9J O/ctsMzr49x+nifZVR5mOf29IFN/TMtpWSBDkHMAW7sX7r29/MVOTU5GRFtw eCf+hDun/E7NDVNQ9qHEzLwHb2A0J8FzgKOAmk40x4d+7oF7B3Qig2IU0USG 9mYtmx6I/WlaGr6Siix/2f0tb7sAgnW8RfZ6S9D3N+5b5RW9Bj+Tazw3RSV0 gUtVC+3qhqMyttfSRSUkhrLeLj8+NKuKNt1lKiPrjqknuSk8ELrZIts936At gjW3Q2q6IEvfY1t3jQrKefdLruanTojvGUuzN1+G8LjwWJdVJ5zOTKSG31VD o6IYbN70Egyk3HUb9qijYJryz6WOL2Dqj+YTaqUaqNa4Isr81w7wLl07WVip iUyI9cxSzWcQtc+HFsnXQudYo3P09DYwDT/z1shUB41vz2znTLdA2A9ecbYF uijsCKOIHv0U1CSVC1JffdSQ0xbN6WmGZ9KXsknHFYheFutOZz2BrMSfjBsP GKHMeuUlnAYMcS2NFAddE9RfElLu+/0jaPThs5tKzVDV81w/31X/BWFb3Odn BeYoZbZrAJk8hHRduVeEihViWWulIoUHIDl4sFDdg4H0w0IN0dDvkBnKyzRO ZqIOuWV82sUqUHtn1chf44Jit5RzT4bfApvl5Y9ODrujJfethlINORAmWFU4 NuyD0IpAnzmcD7GrPYvOnfdH0Zs9JQL7fKD8Hxb6ByyMaUY= "]], LineBox[CompressedData[" 1:eJwdjgs01PkbxiesS5RUykRFbksG+TIlTu+7K4lklXShtppGJLdGZm2UQlMq pXUrzIZKi27YSMnvV0gitQzlEtY1l+TeDMr6/59znvOc85zzfM6jxfHf7iHF YDB4s/5fbi+zPWi7KQEY/5c93cLMGVRUTgGdhstHRFY/0y7kQ5Hgp1sgQ5Ow v6wt6fyGXeHnQrIg1DzbbNVmQs+j+7VL3R4C8yj/bg7LhIbYbEHpb3lwWMwf rNY1pI8dPtpbGpcPXEnC1R1henS65WrHspxCiFm9T7WqUJsWKfXfL6sugnyX Qhe7S1q0bFuWyst+CnbITmUkxq2kU/ZYrD8U+RyS8k/M7L2vQVvYxB/tWFgC +XZJhgjL6Gqj8ZRDaaVwrXRelIORGu25xLW6w+QlVLXLpi/hLKEZjEczh4rL YU2KnrZrzWL6eu/iNZ2OFbDUfNrBmreINqs9zuE2vYZ9Gp7p4ZYL6coiUWzn kSpAk63XHmip0NwM8zKu+A24eg2UpesuoL9diZvoFLyFic2GX06Gz6crrSdj cy+8gzvHFLhu7Ur0tTVZd0e2/QNfROe3HfBQpLl6bmVmzBowXzHFlZWbS5uq z23htdWA1JiDKLxEnv6m/GQi904tHFhQeux2ohz9WsZbedRPBB6hQu8np2Xp BAnzR8Kug2dWB/mBoT/QnMEKDPxWB1lXs1vqzsvQxh2/78krrQffqONso1vS dHlVwwXi8gFsWXKfJ+ZI0V7BjeXuqxsgXF5jvrHZHFpep0kmUroR3DZzbbT8 GLRDSPMpUV4TbFqa4NSu8J3q0/v4dPpiM3w2r/ccfTpNXaz5KNbhfgT2ZVYQ 89QUVWXQygta3Ar7XabxMEtC+dS1PhAOtEJgDDtzk5qYEmDABIfTBk3XD5CM +V8p/YEAcnH9v6CQpmB9Ztk45WXDu9fU1w5RvyaksJOHqXXXRyq/7OyAyvQ6 5sCbIUr+C69PuqQDikrGGGpyQ1RmUqC+UXInNLXZXg9e8pnqGz6eFrqlGz7z 4xuj03uoJ3bjVExBN7Czrj4ad++mLgiDWm5p90Dza9OGncu7qNX2fPU3Uz3g s3p/hWt+O+WT+lv88ru9kBqksXyhXzNlPfE1b41aH/hON585vaWRUnIMrrGN 7AOFuMQdx8kH6t7XYGW/vf0g2RV9SaIpogadTkQVK30G54gpu8aqV9TjU8XF D9hDcL41VfDCIBlSM7+/KfQZAlGqDIaKsuC8aMPHkvQh2J8pnzM6lge7Damp 9/OHYe8CIV/DkwZJHbWO0TMMc+XSKOmaKljPep7rnDgKH4OFe39XawQLUX1C ccUo8D6NBHh4NoFpyMAJo+lR0E512JST1wx6FUtt5A+OAXvSwjh/Yyss8vCr pQzHYW170KK1uu0wkKI+Zlw8AYVv41INJN1wQ4lvMa9LAvYCj5OmUkMgxVdt 5jIZqKNtsNILxOB2IKvmsTkDN5Z5OgZHiCHXASqUnBlYAPXR7uVi4Kw8kv+3 gIEspYxXfzpJ4MWrohiZMQZ28fk2Ju6TEKHOtb1VPQfVrfk1mr7TIPM8935H hDTyBn1u7LRmoJyS8xnOoCwGMIXYrS2DEW31Nryb8/Dv6MGHGScU8WGywPnU iAqKnAzeb5yvgv7p3AWdO1VRsmFk0UjCYvzVO2n5uTNqWPgtLZLTuBSjtvEt SYo6xnN7nBvk1FFmcXx32OQKZPWd9bLjr8D3lWeHIpW1sH+hR1hYrSa6hnDY SSWrUOyl9kAuehX6KPavqnbTwX/evtod9qMOrsx+mSDbp4uXj0TbOT7VxZDH Ni7KyfooSLJj3/fXx4AMn3y2iQFuYBU8i5Y1QCWptRzjLkO8oWJ/Tp0yRFvf HfGGsUbYqt9we4e/EaoVLve31THGLDXVA45SxvgH7/xV0/cm+D2gMlquwAS3 C35hCfNNsXKMzGy5Y4qG7pGut06uwXrtON4c/9nsVkiPdTVDYiXUFNqZYTWn 66eFKwkq+np33Fch+K/MHXH8KoLGadnKFqoExzK8HjD1CH598YPVUzWCzP5+ DS0WwbRK2Svlsztu4MhXEyuCvi/sjdpm+8mImXtbdxFsSEVrFQeCereZy6Ku EFwW7fCIF07Q0q7pnVIswei+a2XiswQde1POxSQQfHlUue5UFMFjLM3xRCFB YSZ/+EIMwaJHeu8ysglezlmvefNPgttfEkFpOUGDxmnX2icEPbzGrTdXEmw0 kt6zp5hg8NyC0cpqgn8Vr3NvfT7LcVp/sLaOIN+d7Ot/RfBTPVq3dxDMvcjb Jf1+9m+w1KhHD8Et/d9dohoJzlMvzeztI1ghefaLcgtBs/12S4eHCSbU1W1U 7yJoO0eh+vg4wXUhJhvSPhHcffN1pFhM0Ov0M7b+AEFv20tWodMELzmfNr73 heDJnq0jMzOzvJ3BumSU4H8ffmGp "]], LineBox[{{-0.007402394185957806, 50.}, {-0.004606127279962635, -50.}}]}, InterpretationBox[ "\"y = \\!\\(TraditionalForm\\`\\(x\\^2 - 1\\)\\/x\\)\"", StringForm[ "`1` = `2`", "y", $CellContext`x^(-1) (-1 + $CellContext`x^2)], Editable -> False]], Annotation[#, StringForm[ "`1` = `2`", "y", $CellContext`x^(-1) (-1 + $CellContext`x^2)], "Tooltip"]& ]}, {RGBColor[ NCache[ Rational[2, 3], 0.6666666666666666], 0, 0], Thickness[Medium], Dashing[{Small, Small}], LineBox[{{0, -100}, {0, 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.485917828561984*^9}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{311, Automatic}, {164, Automatic}}, 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, 109, 1, 44, "Section"], Cell[CellGroupData[{ Cell[701, 27, 345, 9, 48, "Print"], Cell[1049, 38, 213, 5, 24, "Print"], Cell[1265, 45, 578, 15, 24, "Print"], Cell[1846, 62, 389, 11, 48, "Print"], Cell[2238, 75, 194, 5, 24, "Print"], Cell[2435, 82, 480, 15, 68, "Print"], Cell[2918, 99, 207, 5, 24, "Print"], Cell[3128, 106, 2383, 41, 98, "Print"], Cell[5514, 149, 286, 6, 24, "Print"], Cell[5803, 157, 725, 15, 48, "Print"], Cell[6531, 174, 608, 13, 48, "Print"], Cell[7142, 189, 350, 8, 24, "Print"], Cell[7495, 199, 210, 5, 24, "Print"], Cell[7708, 206, 1465, 25, 24, "Print"], Cell[9176, 233, 131, 2, 24, "Print"], Cell[9310, 237, 195, 5, 24, "Print"], Cell[9508, 244, 371, 10, 49, "Print"], Cell[9882, 256, 585, 19, 104, "Print"], Cell[10470, 277, 198, 5, 24, "Print"], Cell[10671, 284, 325, 9, 46, "Print"], Cell[10999, 295, 552, 18, 100, "Print"], Cell[11554, 315, 212, 5, 24, "Print"], Cell[11769, 322, 1002, 25, 124, "Print"], Cell[12774, 349, 195, 5, 24, "Print"] }, Open ]], Cell[12984, 357, 8304, 174, 378, "Output"] }, Open ]] } ] *) (* End of internal cache information *)