(* 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[ 36658, 947] NotebookOptionsPosition[ 35088, 891] NotebookOutlinePosition[ 35508, 909] CellTagsIndexPosition[ 35465, 906] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Exercices - Calcul de limites", "Section", CellChangeTimes->{3.434079637737462*^9}], Cell[CellGroupData[{ Cell["Calculer les limites suivantes:", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "1"}], "]"}], ":=", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "5"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}], "]"}], "/", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "2"}], "]"}], ":=", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", "x"}]}], ")"}], RowBox[{"(", RowBox[{"x", "+", "5"}], ")"}]}], "]"}], "/", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"5", "x"}], "-", "1"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "2", "]"}], "=", RowBox[{"-", "3"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "3"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "4"}], "-", RowBox[{"5", RowBox[{"x", "^", "2"}]}], "+", "6"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], RowBox[{"x", "^", "2"}]}], "-", RowBox[{"3", "x"}], "+", RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "3", "]"}], "=", RowBox[{"Sqrt", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "4"}], "]"}], ":=", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "x"}]}], ")"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", "x"}]}], ")"}]}], "]"}], "/", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "4"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "4", "]"}], "=", RowBox[{"-", "4"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "5"}], "]"}], ":=", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "x"}]}], ")"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", "x"}]}], ")"}]}], "]"}], "/", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "4"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "5", "]"}], "=", "Infinity"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "6"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"5", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"5", "x"}], "+", "3"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "6", "]"}], "=", RowBox[{"-", "Infinity"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "7"}], "]"}], ":=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"5", "x"}], "+", "8"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"5", RowBox[{"x", "^", "2"}]}], "-", "4"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "7", "]"}], "=", RowBox[{"-", "Infinity"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "8"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "4"}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "+", "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "8", "]"}], "=", RowBox[{"-", "Infinity"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "9"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"x", "-", "3"}], "]"}]}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "x"}], "+", "2"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"5", "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"3", "x"}], "+", "4"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "9", "]"}], "=", "7"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "10"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "2"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "-", RowBox[{"x", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "^", "2"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", "10", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"lim", "[", "i", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "x", ",", RowBox[{"a", "[", "i", "]"}]}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"lim", "[", "i", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input",\ CellOpen->False, CellChangeTimes->{{3.434079681095003*^9, 3.434079710639208*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^2\\)\\) - x - \ 10\\)\\/\\(\\(\\(-x\\^2\\)\\) + \\(\\(4\\\\ x\\)\\) - 3\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (-3 + 4 $CellContext`x - $CellContext`x^2)^(-1) (-10 - $CellContext`x + 2 $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[1, ") ", analyse`Limite[(-3 + 4 $CellContext`x - $CellContext`x^2)^(-1) (-10 - $CellContext`x + 2 $CellContext`x^2), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711435644*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-3\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-3\\)\\)\\\\ x\\^3\\)\\) - \ \\(\\(23\\\\ x\\^2\\)\\) - \\(\\(37\\\\ x\\)\\) + 15\\)\\/\\(\\(\\(5\\\\ \ x\\^2\\)\\) + \\(\\(14\\\\ x\\)\\) - 3\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> -3], (-3 + 14 $CellContext`x + 5 $CellContext`x^2)^(-1) (15 - 37 $CellContext`x - 23 $CellContext`x^2 - 3 $CellContext`x^3)], Editable->False], TraditionalForm]}], SequenceForm[2, ") ", analyse`Limite[(-3 + 14 $CellContext`x + 5 $CellContext`x^2)^(-1) (15 - 37 $CellContext`x - 23 $CellContext`x^2 - 3 $CellContext`x^3), $CellContext`x, -3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711438878*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\@2\\)\\) \\!\\(TraditionalForm\\`\\(x\\^4 - \\(\\(5\\\\ x\\^2\\)\\) \ + 6\\)\\/\\(\\(\\(\\@2\\\\ x\\^2\\)\\) - \\(\\(3\\\\ x\\)\\) + \ \\@2\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 2^Rational[1, 2]], (2^Rational[1, 2] - 3 $CellContext`x + 2^Rational[1, 2] $CellContext`x^2)^(-1) (6 - 5 $CellContext`x^2 + $CellContext`x^4)], Editable->False], TraditionalForm]}], SequenceForm[3, ") ", analyse`Limite[(2^Rational[1, 2] - 3 $CellContext`x + 2^Rational[1, 2] $CellContext`x^2)^(-1) (6 - 5 $CellContext`x^2 + $CellContext`x^4), $CellContext`x, 2^ Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711442728*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-4\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-6\\)\\)\\\\ x\\^2\\)\\) + x + 1\\)\\/\ \\(x\\^2 + \\(\\(2\\\\ x\\)\\) - 8\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> -4], (1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[4, ") ", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, -4]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.4340797114461803`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-6\\)\\)\\\\ x\\^2\\)\\) + x + 1\\)\\/\ \\(x\\^2 + \\(\\(2\\\\ x\\)\\) - 8\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], (1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[5, ") ", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711481431*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\@\\(\\(3 - \ \\(\\(5\\\\ x\\)\\)\\)\\/\\(x\\^2 - \\(\\(5\\\\ x\\)\\) + 3\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], ((3 - 5 $CellContext`x)/(3 - 5 $CellContext`x + $CellContext`x^2))^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[6, ") ", analyse`Limite[((3 - 5 $CellContext`x)/(3 - 5 $CellContext`x + $CellContext`x^2))^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711513401*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\@\\(\\(\\(3\\\\ x\\^2\\)\\) - \\(\\(5\\\\ x\\)\\) + \ 8\\)\\/\\@\\(\\(\\(5\\\\ x\\^2\\)\\) - 4\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (8 - 5 $CellContext`x + 3 $CellContext`x^2)^ Rational[1, 2] (-4 + 5 $CellContext`x^2)^Rational[-1, 2]], Editable->False], TraditionalForm]}], SequenceForm[7, ") ", analyse`Limite[(8 - 5 $CellContext`x + 3 $CellContext`x^2)^ Rational[1, 2] (-4 + 5 $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711546505*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x - 4\\)\\/\ \\@\\(\\(\\(2\\\\ x\\^2\\)\\) + 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (-4 + $CellContext`x) (1 + 2 $CellContext`x^2)^ Rational[-1, 2]], Editable->False], TraditionalForm]}], SequenceForm[8, ") ", analyse`Limite[(-4 + $CellContext`x) (1 + 2 $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711578166*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 7\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ \\@\\(x - 3\\)\\)\\) - \ \\@\\(\\(\\(2\\\\ x\\)\\) + 2\\)\\)\\/\\(5 - \\@\\(\\(\\(3\\\\ x\\)\\) + 4\\)\ \\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 7], ( 2 (-3 + $CellContext`x)^Rational[1, 2] - (2 + 2 $CellContext`x)^ Rational[1, 2])/(5 - (4 + 3 $CellContext`x)^Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[9, ") ", analyse`Limite[( 2 (-3 + $CellContext`x)^Rational[1, 2] - (2 + 2 $CellContext`x)^ Rational[1, 2])/(5 - (4 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 7]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.434079711612315*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(\\(\\(3\\\\ x\\)\\) - \ 2\\)\\%3 - \\@x\\%3\\)\\/\\(1 - x\\^2\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (1 - $CellContext`x^2)^(-1) (-$CellContext`x^Rational[1, 3] + (-2 + 3 $CellContext`x)^Rational[1, 3])], Editable->False], TraditionalForm]}], SequenceForm[10, ") ", analyse`Limite[( 1 - $CellContext`x^2)^(-1) (-$CellContext`x^Rational[1, 3] + (-2 + 3 $CellContext`x)^Rational[1, 3]), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434079647215437*^9, 3.4340797116488333`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"lim", "[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4340797662011013`*^9, 3.434079770886138*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - x - \ 10\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\ \\\\\\\\(-x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) - \ 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\ \\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - x - \ 10\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\ \\\\\\\\(-x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) - \ 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\ \\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \ ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(-3 + 4 $CellContext`x - $CellContext`x^2)^(-1) (-10 - $CellContext`x + 2 $CellContext`x^2), $CellContext`x, 1, -1], StringForm["+`1`", DirectedInfinity[1]]], " "}, { StringForm["`1` = `2`", analyse`Limite[(-3 + 4 $CellContext`x - $CellContext`x^2)^(-1) (-10 - $CellContext`x + 2 $CellContext`x^2), $CellContext`x, 1, 1], DirectedInfinity[-1]], " "}}, 0]], Editable->False]}], SequenceForm[1, ") ", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(-3 + 4 $CellContext`x - $CellContext`x^2)^(-1) (-10 - $CellContext`x + 2 $CellContext`x^2), $CellContext`x, 1, -1], StringForm["+`1`", DirectedInfinity[1]]], " "}, { StringForm["`1` = `2`", analyse`Limite[(-3 + 4 $CellContext`x - $CellContext`x^2)^(-1) (-10 - $CellContext`x + 2 $CellContext`x^2), $CellContext`x, 1, 1], DirectedInfinity[-1]], " "}}, 0]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.434079772262822*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-3\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(\\\\(\\\\(-3\\\\)\\\\)\\\\\\\\ x\ \\\\^3\\\\)\\\\) - \\\\(\\\\(23\\\\\\\\ x\\\\^2\\\\)\\\\) - \ \\\\(\\\\(37\\\\\\\\ x\\\\)\\\\) + 15\\\\)\\\\/\\\\(\\\\(\\\\(5\\\\\\\\ \ x\\\\^2\\\\)\\\\) + \\\\(\\\\(14\\\\\\\\ x\\\\)\\\\) - 3\\\\)\\\\)\\\"\\)\\) \ = \\!\\(TraditionalForm\\`\\(-\\(\\(5\\/4\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-3 + 14 $CellContext`x + 5 $CellContext`x^2)^(-1) (15 - 37 $CellContext`x - 23 $CellContext`x^2 - 3 $CellContext`x^3), $CellContext`x, -3], Rational[-5, 4]], Editable->False]}], SequenceForm[2, ") ", StringForm["`1` = `2`", analyse`Limite[(-3 + 14 $CellContext`x + 5 $CellContext`x^2)^(-1) (15 - 37 $CellContext`x - 23 $CellContext`x^2 - 3 $CellContext`x^3), $CellContext`x, -3], Rational[-5, 4]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.43407977236548*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\@2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^4 - \\\\(\\\\(5\\\\\ \\\\ x\\\\^2\\\\)\\\\) + 6\\\\)\\\\/\\\\(\\\\(\\\\(\\\\@2\\\\\\\\ \ x\\\\^2\\\\)\\\\) - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + \\\\@2\\\\)\\\\)\\\"\\)\ \\) = \\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ \\@2\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(2^Rational[1, 2] - 3 $CellContext`x + 2^Rational[1, 2] $CellContext`x^2)^(-1) (6 - 5 $CellContext`x^2 + $CellContext`x^4), $CellContext`x, 2^ Rational[1, 2]], (-2) 2^Rational[1, 2]], Editable->False]}], SequenceForm[3, ") ", StringForm["`1` = `2`", analyse`Limite[(2^Rational[1, 2] - 3 $CellContext`x + 2^Rational[1, 2] $CellContext`x^2)^(-1) (6 - 5 $CellContext`x^2 + $CellContext`x^4), $CellContext`x, 2^ Rational[1, 2]], (-2) 2^Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.4340797724591846`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-4\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-6\\\ \\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + x + \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) - \ 8\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\ \\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-4\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-6\\\ \\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + x + \ 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\ \\\\\\\\)\\\\\\\\\\\\\\\\) - \ 8\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\ \\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \ ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, -4, -1], DirectedInfinity[-1]], " "}, { StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, -4, 1], StringForm["+`1`", DirectedInfinity[1]]], " "}}, 0]], Editable->False]}], SequenceForm[4, ") ", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, -4, -1], DirectedInfinity[-1]], " "}, { StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, -4, 1], StringForm["+`1`", DirectedInfinity[1]]], " "}}, 0]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.434079772495634*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(\\\\(\\\\(-6\\\\)\\\\)\\\\\\\\ x\ \\\\^2\\\\)\\\\) + x + 1\\\\)\\\\/\\\\(x\\\\^2 + \\\\(\\\\(2\\\\\\\\ x\\\\)\\\ \\) - 8\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-6\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, DirectedInfinity[1]], -6], Editable->False]}], SequenceForm[5, ") ", StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x - 6 $CellContext`x^2)/(-8 + 2 $CellContext`x + $CellContext`x^2), $CellContext`x, DirectedInfinity[1]], -6]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.434079772545608*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(3 - \\\\(\\\\(5\\\\\\\\ x\\\\)\\\ \\)\\\\)\\\\/\\\\(x\\\\^2 - \\\\(\\\\(5\\\\\\\\ x\\\\)\\\\) + \ 3\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[((3 - 5 $CellContext`x)/(3 - 5 $CellContext`x + $CellContext`x^2))^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], 0], Editable->False]}], SequenceForm[6, ") ", StringForm["`1` = `2`", analyse`Limite[((3 - 5 $CellContext`x)/(3 - 5 $CellContext`x + $CellContext`x^2))^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.4340797725982533`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\^2\\\\)\\\\) \ - \\\\(\\\\(5\\\\\\\\ x\\\\)\\\\) + 8\\\\)\\\\/\\\\@\\\\(\\\\(\\\\(5\\\\\\\\ \ x\\\\^2\\\\)\\\\) - 4\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\@\\(3\\/5\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(8 - 5 $CellContext`x + 3 $CellContext`x^2)^ Rational[1, 2] (-4 + 5 $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]], Rational[3, 5]^Rational[1, 2]], Editable->False]}], SequenceForm[7, ") ", StringForm["`1` = `2`", analyse`Limite[(8 - 5 $CellContext`x + 3 $CellContext`x^2)^ Rational[1, 2] (-4 + 5 $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]], Rational[3, 5]^Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.4340797726887903`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x - \ 4\\\\)\\\\/\\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + \ 1\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/\\@2\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-4 + $CellContext`x) (1 + 2 $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]], -2^Rational[-1, 2]], Editable->False]}], SequenceForm[8, ") ", StringForm["`1` = `2`", analyse`Limite[(-4 + $CellContext`x) (1 + 2 $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]], -2^Rational[-1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.4340797728237333`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 7\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ \ \\\\@\\\\(x - 3\\\\)\\\\)\\\\) - \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + \ 2\\\\)\\\\)\\\\/\\\\(5 - \\\\@\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 4\\\\)\\\ \\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(5\\/6\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[( 2 (-3 + $CellContext`x)^Rational[1, 2] - (2 + 2 $CellContext`x)^ Rational[1, 2])/(5 - (4 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 7], Rational[-5, 6]], Editable->False]}], SequenceForm[9, ") ", StringForm["`1` = `2`", analyse`Limite[( 2 (-3 + $CellContext`x)^Rational[1, 2] - (2 + 2 $CellContext`x)^ Rational[1, 2])/(5 - (4 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 7], Rational[-5, 6]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.434079773007904*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(3\\\\\\\\ \ x\\\\)\\\\) - 2\\\\)\\\\%3 - \\\\@x\\\\%3\\\\)\\\\/\\\\(1 - x\\\\^2\\\\)\\\\)\ \\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/3\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[( 1 - $CellContext`x^2)^(-1) (-$CellContext`x^Rational[1, 3] + (-2 + 3 $CellContext`x)^Rational[1, 3]), $CellContext`x, 1], Rational[-1, 3]], Editable->False]}], SequenceForm[10, ") ", StringForm["`1` = `2`", analyse`Limite[( 1 - $CellContext`x^2)^(-1) (-$CellContext`x^Rational[1, 3] + (-2 + 3 $CellContext`x)^Rational[1, 3]), $CellContext`x, 1], Rational[-1, 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340796473511267`*^9, 3.434079773107493*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{779, 728}, WindowMargins->{{311, Automatic}, {Automatic, 197}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, CellLabelAutoDelete->True, 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, 90, 1, 44, "Section"], Cell[CellGroupData[{ Cell[705, 28, 53, 0, 39, "Subsection"], Cell[CellGroupData[{ Cell[783, 32, 6884, 250, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[7692, 286, 889, 21, 47, "Print"], Cell[8584, 309, 1017, 22, 47, "Print"], Cell[9604, 333, 1006, 23, 50, "Print"], Cell[10613, 358, 865, 19, 47, "Print"], Cell[11481, 379, 970, 20, 47, "Print"], Cell[12454, 401, 905, 20, 52, "Print"], Cell[13362, 423, 971, 22, 65, "Print"], Cell[14336, 447, 839, 20, 55, "Print"], Cell[15178, 469, 979, 22, 53, "Print"], Cell[16160, 493, 887, 20, 53, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17096, 519, 34, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[17155, 523, 363, 10, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[17543, 537, 3994, 73, 93, "Print"], Cell[21540, 612, 1289, 25, 47, "Print"], Cell[22832, 639, 1250, 23, 50, "Print"], Cell[24085, 664, 4052, 71, 93, "Print"], Cell[28140, 737, 1155, 22, 47, "Print"], Cell[29298, 761, 1085, 22, 52, "Print"], Cell[30386, 785, 1234, 24, 65, "Print"], Cell[31623, 811, 1055, 21, 55, "Print"], Cell[32681, 834, 1238, 26, 53, "Print"], Cell[33922, 862, 1102, 22, 53, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)