(* 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[ 51659, 1363] NotebookOptionsPosition[ 48470, 1267] NotebookOutlinePosition[ 48835, 1283] CellTagsIndexPosition[ 48792, 1280] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Calcul de limites", "Section", FontFamily->"Trebuchet MS"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Ind\[EAcute]terminations", " ", "[", FractionBox["k", "0"], "]"}], " ", RowBox[{"et", " ", "[", FractionBox["0", "0"], "]"}]}]], "Subsubsection", FontFamily->"Trebuchet MS"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "x", "-", "2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"2", "x"}], "-", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"4", "x"}], "+", "4"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"3", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"6", "x"}], "+", "9"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", RowBox[{"-", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "4"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "-", "8"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"4", "x"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "-", "x"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", RowBox[{"1", "/", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"9", "x"}], "+", "4"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"11", "x"}], "-", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", RowBox[{"-", "4"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "3"}]}], "-", RowBox[{"5", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"8", "x"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "4"}], "+", RowBox[{"x", "^", "3"}], "-", "x", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"x", "^", "2"}], "-", "x", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"3", "x"}], "+", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "+", RowBox[{"x", "^", "2"}], "-", RowBox[{"5", "x"}], "+", "3"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"3", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"3", "x"}], "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", " ", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"lim", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.43408202919326*^9, 3.434082164115703*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - x - \ 2\\)\\/\\(x\\^2 - \\(\\(2\\\\ x\\)\\) - 3\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> -1], (-3 - 2 $CellContext`x + $CellContext`x^2)^(-1) (-2 - $CellContext`x + \ $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[1, ") ", analyse`Limite[(-3 - 2 $CellContext`x + $CellContext`x^2)^(-1) (-2 - $CellContext`x + \ $CellContext`x^2), $CellContext`x, -1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082164824226*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(4\\\\ x\\)\\) + 4\\)\ \\/\\(x\\^2 - 4\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 2], (-4 + $CellContext`x^2)^(-1) (4 - 4 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[2, ") ", analyse`Limite[(-4 + $CellContext`x^2)^(-1) (4 - 4 $CellContext`x + $CellContext`x^2), $CellContext`x, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.4340821648549347`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-3\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 + \\(\\(3\\\\ x\ \\)\\)\\)\\/\\(x\\^2 + \\(\\(6\\\\ x\\)\\) + 9\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> -3], (3 $CellContext`x + $CellContext`x^2)/(9 + 6 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[3, ") ", analyse`Limite[(3 $CellContext`x + $CellContext`x^2)/(9 + 6 $CellContext`x + $CellContext`x^2), $CellContext`x, -3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082164888586*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 - 1\\)\\/\\(x - 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^(-1) (-1 + $CellContext`x^3)], Editable->False], TraditionalForm]}], SequenceForm[4, ") ", analyse`Limite[(-1 + $CellContext`x)^(-1) (-1 + $CellContext`x^3), \ $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082164921838*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - 4\\)\\/\\(x\\^3 - \ 8\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 2], (-4 + $CellContext`x^2)/(-8 + $CellContext`x^3)], Editable->False], TraditionalForm]}], SequenceForm[5, ") ", analyse`Limite[(-4 + $CellContext`x^2)/(-8 + $CellContext`x^3), \ $CellContext`x, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082164952853*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\/2\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(4\\\\ x\\^2\\)\\) - \ \\(\\(4\\\\ x\\)\\) + 1\\)\\/\\(\\(\\(2\\\\ x\\^2\\)\\) - x\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> Rational[1, 2]], (-$CellContext`x + 2 $CellContext`x^2)^(-1) (1 - 4 $CellContext`x + 4 $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[6, ") ", analyse`Limite[(-$CellContext`x + 2 $CellContext`x^2)^(-1) (1 - 4 $CellContext`x + 4 $CellContext`x^2), $CellContext`x, Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082164985907*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-4\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ \ x\\^2\\)\\) + \\(\\(9\\\\ x\\)\\) + 4\\)\\/\\(\\(\\(3\\\\ x\\^2\\)\\) + \ \\(\\(11\\\\ x\\)\\) - 4\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> -4], (4 + 9 $CellContext`x + 2 $CellContext`x^2)/(-4 + 11 $CellContext`x + 3 $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[7, ") ", analyse`Limite[(4 + 9 $CellContext`x + 2 $CellContext`x^2)/(-4 + 11 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, -4]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082165022072*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ \ x\\^3\\)\\) - \\(\\(5\\\\ x\\^2\\)\\) - \\(\\(8\\\\ x\\)\\) - 1\\)\\/\\(x\\^4 \ + x\\^3 - x - 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> -1], (-1 - 8 $CellContext`x - 5 $CellContext`x^2 + 2 $CellContext`x^3)/(-1 - $CellContext`x + $CellContext`x^3 + \ $CellContext`x^4)], Editable->False], TraditionalForm]}], SequenceForm[8, ") ", analyse`Limite[(-1 - 8 $CellContext`x - 5 $CellContext`x^2 + 2 $CellContext`x^3)/(-1 - $CellContext`x + $CellContext`x^3 + \ $CellContext`x^4), $CellContext`x, -1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082165054134*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 - x\\^2 - x + \ 1\\)\\/\\(x\\^2 - \\(\\(3\\\\ x\\)\\) + 2\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (2 - 3 $CellContext`x + $CellContext`x^2)^(-1) ( 1 - $CellContext`x - $CellContext`x^2 + $CellContext`x^3)], Editable->False], TraditionalForm]}], SequenceForm[9, ") ", analyse`Limite[(2 - 3 $CellContext`x + $CellContext`x^2)^(-1) ( 1 - $CellContext`x - $CellContext`x^2 + $CellContext`x^3), \ $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082165088835*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 + x\\^2 - \\(\\(5\\\\ \ x\\)\\) + 3\\)\\/\\(x\\^3 - \\(\\(3\\\\ x\\^2\\)\\) + \\(\\(3\\\\ x\\)\\) - 1\ \\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (-1 + 3 $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3)^(-1) (3 - 5 $CellContext`x + $CellContext`x^2 + $CellContext`x^3)], Editable->False], TraditionalForm]}], SequenceForm[10, ") ", analyse`Limite[(-1 + 3 $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3)^(-1) (3 - 5 $CellContext`x + $CellContext`x^2 + $CellContext`x^3), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340819859254313`*^9, 3.434082165120679*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection", FontFamily->"Trebuchet MS"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\""}], "]"}], ";", RowBox[{"Print", "[", RowBox[{"Detaille", "[", RowBox[{"lim", "[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.434082181941659*^9, 3.4340822373266706`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[1, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408223813225*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \ \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - x - 2\\)\\/\\(x\\^2 - \ \\(\\(2\\\\ x\\)\\) - 3\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> -1], (-3 - 2 $CellContext`x + $CellContext`x^2)^(-1) (-2 - $CellContext`x + \ $CellContext`x^2), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238142126*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - \ 2)\\)\\)\\\\ \\(\\((x + 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x \ - 3)\\)\\)\\\\ \\(\\((x + 1)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> -1], (-2 + $CellContext`x) ( 1 + $CellContext`x), (-3 + $CellContext`x) (1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238146557*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x - 2\\)\\/\\(x - \ 3\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript[ "lim", $CellContext`x -> -1], (-3 + $CellContext`x)^(-1) (-2 + \ $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238149732*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\(\\\\(-1\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - \ x - 2\\\\)\\\\/\\\\(x\\\\^2 - \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 3\\\\)\\\\)\\\ \"\\)\\) = \\!\\(TraditionalForm\\`3\\/4\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-3 - 2 $CellContext`x + $CellContext`x^2)^(-1) (-2 - $CellContext`x + \ $CellContext`x^2), $CellContext`x, -1], Rational[3, 4]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238151894*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[2, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238154435*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 2\ \\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(4\\\\ x\\)\\) + \ 4\\)\\/\\(x\\^2 - 4\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> 2], (-4 + $CellContext`x^2)^(-1) (4 - 4 $CellContext`x + $CellContext`x^2), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238156774*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\((x - \ 2)\\)\\^2\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 2)\\)\\)\\\\ \\(\\((x + \ 2)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> 2], (-2 + $CellContext`x)^2, (-2 + $CellContext`x) (2 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822381591682`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(TraditionalForm\\`\\(x - 2\\)\\/\\(x + 2\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript["lim", $CellContext`x -> 2], (-2 + $CellContext`x)/( 2 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238162237*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - \\\\(\\\\(4\\\\\\\\ \ x\\\\)\\\\) + 4\\\\)\\\\/\\\\(x\\\\^2 - 4\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-4 + $CellContext`x^2)^(-1) (4 - 4 $CellContext`x + $CellContext`x^2), $CellContext`x, 2], 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238164692*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[3, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822381963387`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \ \\(\\(-3\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 + \\(\\(3\\\\ \ x\\)\\)\\)\\/\\(x\\^2 + \\(\\(6\\\\ x\\)\\) + 9\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> -3], (3 $CellContext`x + $CellContext`x^2)/(9 + 6 $CellContext`x + $CellContext`x^2), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822382240543`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-3\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(x\\\\ \\(\\((x \ + 3)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\((x + 3)\\)\\^2\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> -3], $CellContext`x (3 + $CellContext`x), ( 3 + $CellContext`x)^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822382589273`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-3\\)\\)\\)\\) \\!\\(TraditionalForm\\`x\\/\\(x + 3\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript["lim", $CellContext`x -> -3], $CellContext`x/( 3 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822382949247`*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "3"}], " ", "0", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", "x"}]}], RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"6", " ", "x"}], "+", "9"}]], "+", "|", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.434082238341716*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^2 + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\ x\\\\\\\\\\\\\\\\^2 + \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(6\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 9\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\ \\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^2 + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\ x\\\\\\\\\\\\\\\\^2 + \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(6\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 9\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\ \\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \ ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(3 $CellContext`x + $CellContext`x^2)/(9 + 6 $CellContext`x + $CellContext`x^2), $CellContext`x, -3, -1], StringForm["+`1`", DirectedInfinity[1]]], " "}, { StringForm["`1` = `2`", analyse`Limite[(3 $CellContext`x + $CellContext`x^2)/(9 + 6 $CellContext`x + $CellContext`x^2), $CellContext`x, -3, 1], DirectedInfinity[-1]], " "}}, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238374898*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[4, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238409356*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\ \\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 - 1\\)\\/\\(x - 1\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^(-1) (-1 + $CellContext`x^3), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238449626*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \ \\(\\((x\\^2 + x + 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(x - 1\\)\\)\\) \ \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x) ( 1 + $CellContext`x + $CellContext`x^2), -1 + $CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238479579*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 + x + 1\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript["lim", $CellContext`x -> 1], 1 + $CellContext`x + $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238509508*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^3 - 1\\\\)\\\\/\\\\(x - \ 1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`3\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) (-1 + $CellContext`x^3), \ $CellContext`x, 1], 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238546597*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[5, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408223858049*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 2\ \\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - 4\\)\\/\\(x\\^3 - 8\\)\\) = [\\!\\(\ \\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> 2], (-4 + $CellContext`x^2)/(-8 + $CellContext`x^3), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238609706*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - 2)\\)\\)\\\\ \ \\(\\((x + 2)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - \ 2)\\)\\)\\\\ \\(\\((x\\^2 + \\(\\(2\\\\ x\\)\\) + 4)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> 2], (-2 + $CellContext`x) ( 2 + $CellContext`x), (-2 + $CellContext`x) (4 + 2 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408223864353*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(TraditionalForm\\`\\(x + 2\\)\\/\\(x\\^2 + \\(\\(2\\\\ \ x\\)\\) + 4\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript["lim", $CellContext`x -> 2], (2 + $CellContext`x)/(4 + 2 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822386774807`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - \ 4\\\\)\\\\/\\\\(x\\\\^3 - 8\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`1\\/3\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-4 + $CellContext`x^2)/(-8 + $CellContext`x^3), \ $CellContext`x, 2], Rational[1, 3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238708802*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[6, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408223874336*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\ \\/2\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(4\\\\ x\\^2\\)\\) - \\(\\(4\\\\ x\ \\)\\) + 1\\)\\/\\(\\(\\(2\\\\ x\\^2\\)\\) - x\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> Rational[1, 2]], (-$CellContext`x + 2 $CellContext`x^2)^(-1) (1 - 4 $CellContext`x + 4 $CellContext`x^2), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408223877717*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\/2\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\((\\(\\(2\\\\ x\\)\\) - \ 1)\\)\\^2\\)\\/\\!\\(TraditionalForm\\`\\(x\\\\ \\(\\((\\(\\(2\\\\ x\\)\\) - \ 1)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> Rational[1, 2]], (-1 + 2 $CellContext`x)^2, $CellContext`x (-1 + 2 $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822388104277`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\/2\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) - 1\\)\\/x\ \\) \"\>", StringForm[" = `1` `2` ", Underscript[ "lim", $CellContext`x -> Rational[1, 2]], $CellContext`x^(-1) (-1 + 2 $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238843997*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 1\\\\/2\\\ \\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(4\\\\\\\\ \ x\\\\^2\\\\)\\\\) - \\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) + 1\\\\)\\\\/\\\\(\\\\(\\\ \\(2\\\\\\\\ x\\\\^2\\\\)\\\\) - x\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-$CellContext`x + 2 $CellContext`x^2)^(-1) (1 - 4 $CellContext`x + 4 $CellContext`x^2), $CellContext`x, Rational[1, 2]], 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238877554*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[7, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238915101*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \ \\(\\(-4\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^2\\)\\) + \\(\ \\(9\\\\ x\\)\\) + 4\\)\\/\\(\\(\\(3\\\\ x\\^2\\)\\) + \\(\\(11\\\\ x\\)\\) - \ 4\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> -4], (4 + 9 $CellContext`x + 2 $CellContext`x^2)/(-4 + 11 $CellContext`x + 3 $CellContext`x^2), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082238943742*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-4\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x + \ 4)\\)\\)\\\\ \\(\\((\\(\\(2\\\\ x\\)\\) + \ 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x + 4)\\)\\)\\\\ \ \\(\\((\\(\\(3\\\\ x\\)\\) - 1)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> -4], (4 + $CellContext`x) (1 + 2 $CellContext`x), (4 + $CellContext`x) (-1 + 3 $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822389775257`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-4\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) + \ 1\\)\\/\\(\\(\\(3\\\\ x\\)\\) - 1\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript["lim", $CellContext`x -> -4], (1 + 2 $CellContext`x)/(-1 + 3 $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239010496*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\(\\\\(-4\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + \\\ \\(\\\\(9\\\\\\\\ x\\\\)\\\\) + 4\\\\)\\\\/\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\^2\\\ \\)\\\\) + \\\\(\\\\(11\\\\\\\\ x\\\\)\\\\) - 4\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`7\\/13\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(4 + 9 $CellContext`x + 2 $CellContext`x^2)/(-4 + 11 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, -4], Rational[7, 13]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239050887*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[8, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822390779877`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \ \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^3\\)\\) - \\(\ \\(5\\\\ x\\^2\\)\\) - \\(\\(8\\\\ x\\)\\) - 1\\)\\/\\(x\\^4 + x\\^3 - x - \ 1\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> -1], (-1 - 8 $CellContext`x - 5 $CellContext`x^2 + 2 $CellContext`x^3)/(-1 - $CellContext`x + $CellContext`x^3 + \ $CellContext`x^4), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239111389*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x + \ 1)\\)\\)\\\\ \\(\\((\\(\\(2\\\\ x\\^2\\)\\) - \\(\\(7\\\\ x\\)\\) - \ 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \\(\\((x \ + 1)\\)\\)\\\\ \\(\\((x\\^2 + x + 1)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> -1], (1 + $CellContext`x) (-1 - 7 $CellContext`x + 2 $CellContext`x^2), (-1 + $CellContext`x) (1 + $CellContext`x) ( 1 + $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239145116*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ \ x\\^2\\)\\) - \\(\\(7\\\\ x\\)\\) - 1\\)\\/\\(\\(\\((x - 1)\\)\\)\\\\ \ \\(\\((x\\^2 + x + 1)\\)\\)\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript[ "lim", $CellContext`x -> -1], (-1 + $CellContext`x)^(-1) ( 1 + $CellContext`x + $CellContext`x^2)^(-1) (-1 - 7 $CellContext`x + 2 $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822391790857`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\(\\\\(-1\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^3\\\\)\\\\) - \\\ \\(\\\\(5\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\\(\\\\(8\\\\\\\\ x\\\\)\\\\) - \ 1\\\\)\\\\/\\\\(x\\\\^4 + x\\\\^3 - x - 1\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-4\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 - 8 $CellContext`x - 5 $CellContext`x^2 + 2 $CellContext`x^3)/(-1 - $CellContext`x + $CellContext`x^3 + \ $CellContext`x^4), $CellContext`x, -1], -4], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822392114067`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[9, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239249219*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\ \\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 - x\\^2 - x + 1\\)\\/\\(x\\^2 - \ \\(\\(3\\\\ x\\)\\) + 2\\)\\) = \ [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> 1], (2 - 3 $CellContext`x + $CellContext`x^2)^(-1) ( 1 - $CellContext`x - $CellContext`x^2 + $CellContext`x^3), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239284493*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\((x - 1)\\)\\^2\\\\ \ \\(\\((x + 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - \ 2)\\)\\)\\\\ \\(\\((x - 1)\\)\\)\\)\\)\\) \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^2 ( 1 + $CellContext`x), (-2 + $CellContext`x) (-1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239312118*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \\(\\((x + \ 1)\\)\\)\\)\\/\\(x - 2\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript[ "lim", $CellContext`x -> 1], (-2 + $CellContext`x)^(-1) (-1 + $CellContext`x) ( 1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822393487377`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\ !\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^3 - x\\\\^2 - x + 1\\\\)\ \\\\/\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(2 - 3 $CellContext`x + $CellContext`x^2)^(-1) ( 1 - $CellContext`x - $CellContext`x^2 + $CellContext`x^3), \ $CellContext`x, 1], 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822393786707`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>"}], SequenceForm[10, ") "], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340822394168587`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\ \\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 + x\\^2 - \\(\\(5\\\\ x\\)\\) + \ 3\\)\\/\\(x\\^3 - \\(\\(3\\\\ x\\^2\\)\\) + \\(\\(3\\\\ x\\)\\) - 1\\)\\) = [\ \\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>", StringForm["`1` `2` = [\!\(`3`\/`4`\)]", Underscript[ "lim", $CellContext`x -> 1], (-1 + 3 $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3)^(-1) (3 - 5 $CellContext`x + $CellContext`x^2 + $CellContext`x^3), 0, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239450141*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\((x - 1)\\)\\^2\\\\ \ \\(\\((x + 3)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\((x - 1)\\)\\^3\\)\\) \ \"\>", StringForm[" = `1` \!\(`2`\/`3`\) ", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^2 ( 3 + $CellContext`x), (-1 + $CellContext`x)^3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239479663*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(x + 3\\)\\/\\(x - 1\\)\\) \"\>", StringForm[" = `1` `2` ", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^(-1) ( 3 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239517058*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "3"}], " ", "1", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "3"], "+", SuperscriptBox["x", "2"], "-", RowBox[{"5", " ", "x"}], "+", "3"}], RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", " ", "x"}], "-", "1"}]], "+", "0", "-", "|", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{3.4340822395452843`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^3 + x\\\\\\\\\\\\\\\\^2 - \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) + \ 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^3 - \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) - \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\ \\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(x\\\\\\\\\\\\\\\\^3 + x\\\\\\\\\\\\\\\\^2 - \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) + \ 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^3 - \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) - \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\ \\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \ ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(-1 + 3 $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3)^(-1) (3 - 5 $CellContext`x + $CellContext`x^2 + $CellContext`x^3), \ $CellContext`x, 1, -1], DirectedInfinity[-1]], " "}, { StringForm["`1` = `2`", analyse`Limite[(-1 + 3 $CellContext`x - 3 $CellContext`x^2 + $CellContext`x^3)^(-1) (3 - 5 $CellContext`x + $CellContext`x^2 + $CellContext`x^3), \ $CellContext`x, 1, 1], StringForm["+`1`", DirectedInfinity[1]]], " "}}, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082239585622*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, WindowSize->{877, 716}, WindowMargins->{{193, Automatic}, {Automatic, 6}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 65, 1, 44, "Section"], Cell[CellGroupData[{ Cell[680, 28, 220, 6, 49, "Subsubsection"], Cell[CellGroupData[{ Cell[925, 38, 6905, 239, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[7855, 281, 847, 20, 47, "Print"], Cell[8705, 303, 788, 18, 47, "Print"], Cell[9496, 323, 835, 18, 47, "Print"], Cell[10334, 343, 720, 18, 45, "Print"], Cell[11057, 363, 713, 18, 47, "Print"], Cell[11773, 383, 901, 20, 55, "Print"], Cell[12677, 405, 899, 19, 47, "Print"], Cell[13579, 426, 982, 22, 47, "Print"], Cell[14564, 450, 879, 20, 47, "Print"], Cell[15446, 472, 997, 23, 47, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16504, 502, 63, 1, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[16592, 507, 422, 12, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[17039, 523, 213, 6, 24, "Print"], Cell[17255, 531, 585, 12, 47, "Print"], Cell[17843, 545, 579, 11, 45, "Print"], Cell[18425, 558, 412, 10, 43, "Print"], Cell[18840, 570, 663, 13, 47, "Print"], Cell[19506, 585, 214, 6, 24, "Print"], Cell[19723, 593, 546, 11, 47, "Print"], Cell[20272, 606, 520, 12, 47, "Print"], Cell[20795, 620, 388, 8, 43, "Print"], Cell[21186, 630, 594, 11, 47, "Print"], Cell[21783, 643, 216, 6, 24, "Print"], Cell[22002, 651, 588, 11, 47, "Print"], Cell[22593, 664, 502, 10, 46, "Print"], Cell[23098, 676, 391, 9, 40, "Print"], Cell[23492, 687, 574, 18, 68, "Print"], Cell[24069, 707, 3161, 52, 93, "Print"], Cell[27233, 761, 214, 6, 24, "Print"], Cell[27450, 769, 498, 10, 45, "Print"], Cell[27951, 781, 531, 11, 47, "Print"], Cell[28485, 794, 377, 8, 35, "Print"], Cell[28865, 804, 527, 10, 45, "Print"], Cell[29395, 816, 213, 6, 24, "Print"], Cell[29611, 824, 499, 10, 47, "Print"], Cell[30113, 836, 617, 12, 49, "Print"], Cell[30733, 850, 438, 9, 45, "Print"], Cell[31174, 861, 554, 12, 47, "Print"], Cell[31731, 875, 213, 6, 24, "Print"], Cell[31947, 883, 621, 12, 55, "Print"], Cell[32571, 897, 549, 11, 55, "Print"], Cell[33123, 910, 422, 10, 53, "Print"], Cell[33548, 922, 698, 13, 55, "Print"], Cell[34249, 937, 214, 6, 24, "Print"], Cell[34466, 945, 644, 13, 47, "Print"], Cell[35113, 960, 622, 12, 45, "Print"], Cell[35738, 974, 444, 9, 43, "Print"], Cell[36185, 985, 757, 14, 47, "Print"], Cell[36945, 1001, 216, 6, 24, "Print"], Cell[37164, 1009, 675, 13, 47, "Print"], Cell[37842, 1024, 726, 13, 53, "Print"], Cell[38571, 1039, 585, 12, 51, "Print"], Cell[39159, 1053, 771, 14, 47, "Print"], Cell[39933, 1069, 214, 6, 24, "Print"], Cell[40150, 1077, 599, 12, 47, "Print"], Cell[40752, 1091, 566, 11, 47, "Print"], Cell[41321, 1104, 469, 11, 43, "Print"], Cell[41793, 1117, 647, 12, 47, "Print"], Cell[42443, 1131, 218, 6, 24, "Print"], Cell[42664, 1139, 674, 13, 47, "Print"], Cell[43341, 1154, 514, 11, 48, "Print"], Cell[43858, 1167, 399, 9, 43, "Print"], Cell[44260, 1178, 696, 21, 68, "Print"], Cell[44959, 1201, 3459, 60, 93, "Print"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)