(* 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[ 60085, 1534]
NotebookOptionsPosition[ 56986, 1440]
NotebookOutlinePosition[ 57406, 1458]
CellTagsIndexPosition[ 57363, 1455]
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[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "3"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "-", "1"}], ")"}]}], "]"}], "/",
RowBox[{"(",
RowBox[{"3", "-", "x"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",", "3"}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"3", "x"}], "-", "4"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-", "16"}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",", "4"}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"2", "-", "x"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "+", "1"}], ")"}]}], "]"}], "/",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "+", "1"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}]}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{"5", "-",
RowBox[{"3", "x"}]}], ")"}], "/",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"2", "-", "x"}], ")"}],
RowBox[{"(",
RowBox[{"3", "+", "x"}], ")"}]}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",", "2"}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "4"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}]}], "]"}], "/",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"3", "x"}], "-", "4"}], ")"}]}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",",
RowBox[{"-", "2"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"3", "x"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",", "0"}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(", "x", ")"}], "*",
RowBox[{"(",
RowBox[{"x", "-", "3"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}]}], "]"}], "/",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "-", "2"}], ")"}]}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",",
RowBox[{"-", "1"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"3", "x"}], "+", "2"}], ")"}]}], "]"}], "/",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}]}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",", "1"}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "-", "3"}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}]}], "]"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",", "1"}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[", "n", "]"}], ":=",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"5", "x"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}]}], "]"}], "/",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"5", "x"}], "-", "3"}], ")"}], "x"}], "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"lim", "[", "n", "]"}], "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{"f", "[", "n", "]"}], ",", "x", ",",
RowBox[{"3", "/", "5"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"Do", "[",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"i", ",", "\"\<) \>\"", ",",
RowBox[{"lim", "[", "i", "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.434080493426921*^9, 3.4340807135280027`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 3\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^2\\)\\) + \
\\(\\(5\\\\ x\\)\\) - 3\\)\\/\\(3 - x\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> 3], (3 - $CellContext`x)^(-1) (-3 +
5 $CellContext`x + 2 $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[1, ") ",
analyse`Limite[(3 - $CellContext`x)^(-1) (-3 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, 3]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714194813*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 4\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(3\\\\ x\\)\\) - 4\\)\
\\/\\(x\\^2 - 16\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> 4], (-16 + $CellContext`x^2)^(-1) (-4 -
3 $CellContext`x + $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[2, ") ",
analyse`Limite[(-16 + $CellContext`x^2)^(-1) (-4 -
3 $CellContext`x + $CellContext`x^2), $CellContext`x, 4]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714213169*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\\(\\(1\\/2\\)\\)\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-2\\)\\)\\\\ x\\^2\\)\\) + \\(\\(3\\\\ \
x\\)\\) + 2\\)\\/\\(\\(\\(2\\\\ x\\^2\\)\\) + \\(\\(3\\\\ x\\)\\) + 1\\)\\)\"\
\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> Rational[-1, 2]], (2 + 3 $CellContext`x -
2 $CellContext`x^2)/(1 + 3 $CellContext`x + 2 $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[3, ") ",
analyse`Limite[(2 + 3 $CellContext`x - 2 $CellContext`x^2)/(1 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x,
Rational[-1, 2]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714231678*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 2\\)\\) \\!\\(TraditionalForm\\`\\(5 - \\(\\(3\\\\ \
x\\)\\)\\)\\/\\(\\(\\(-x\\^2\\)\\) - x + 6\\)\\)\"\>",
StringForm["`1` `2`",
Underscript["lim", $CellContext`x -> 2], (5 - 3 $CellContext`x)/(
6 - $CellContext`x - $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[4, ") ",
analyse`Limite[(5 - 3 $CellContext`x)/(
6 - $CellContext`x - $CellContext`x^2), $CellContext`x, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4340807142662783`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-2\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(2\\\\ x\
\\)\\) - 8\\)\\/\\(\\(\\(3\\\\ x\\^2\\)\\) + \\(\\(2\\\\ x\\)\\) - \
8\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> -2], (-8 -
2 $CellContext`x + $CellContext`x^2)/(-8 + 2 $CellContext`x +
3 $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[5, ") ",
analyse`Limite[(-8 - 2 $CellContext`x + $CellContext`x^2)/(-8 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, -2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4340807143011427`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 0\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - 3\\)\\/\\(x\\^2 - \
\\(\\(3\\\\ x\\)\\)\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x ->
0], (-3 + $CellContext`x^2)/((-3) $CellContext`x + $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[6, ") ",
analyse`Limite[(-3 + $CellContext`x^2)/((-3) $CellContext`x + \
$CellContext`x^2), $CellContext`x, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.43408071433396*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 - \\(\\(2\\\\ x\
\\^2\\)\\) - \\(\\(3\\\\ x\\)\\)\\)\\/\\(x\\^2 - x - 2\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> -1], (-2 - $CellContext`x + \
$CellContext`x^2)^(-1) ((-3) $CellContext`x -
2 $CellContext`x^2 + $CellContext`x^3)],
Editable->False],
TraditionalForm]}],
SequenceForm[7, ") ",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) ((-3) \
$CellContext`x - 2 $CellContext`x^2 + $CellContext`x^3), $CellContext`x, -1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714379231*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - x - 2\\)\
\\/\\(x\\^3 + \\(\\(2\\\\ x\\^2\\)\\) - x - 2\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> 1], (-2 - $CellContext`x +
3 $CellContext`x^2)/(-2 - $CellContext`x +
2 $CellContext`x^2 + $CellContext`x^3)],
Editable->False],
TraditionalForm]}],
SequenceForm[8, ") ",
analyse`Limite[(-2 - $CellContext`x +
3 $CellContext`x^2)/(-2 - $CellContext`x +
2 $CellContext`x^2 + $CellContext`x^3), $CellContext`x, 1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714407996*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^3\\)\\) - x\\^2 - \
\\(\\(7\\\\ x\\)\\) + 6\\)\\/\\((1 - x)\\)\\^2\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> 1], (1 - $CellContext`x)^(-2) (6 -
7 $CellContext`x - $CellContext`x^2 + 2 $CellContext`x^3)],
Editable->False],
TraditionalForm]}],
SequenceForm[9, ") ",
analyse`Limite[(1 - $CellContext`x)^(-2) (6 -
7 $CellContext`x - $CellContext`x^2 +
2 $CellContext`x^3), $CellContext`x, 1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714434904*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 3\\/5\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-5\\)\\)\\\\ x\\^2\
\\)\\) - \\(\\(7\\\\ x\\)\\) + 6\\)\\/\\(\\(\\(5\\\\ x\\^2\\)\\) - \
\\(\\(3\\\\ x\\)\\)\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x -> Rational[3, 5]], (6 - 7 $CellContext`x -
5 $CellContext`x^2)/((-3) $CellContext`x + 5 $CellContext`x^2)],
Editable->False],
TraditionalForm]}],
SequenceForm[10, ") ",
analyse`Limite[(6 - 7 $CellContext`x -
5 $CellContext`x^2)/((-3) $CellContext`x +
5 $CellContext`x^2), $CellContext`x,
Rational[3, 5]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.434080714470098*^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.434080751647849*^9, 3.4340807853906107`*^9}, {
3.434080899071288*^9, 3.4340809348407784`*^9}, {3.434081387102281*^9,
3.434081409848349*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[1, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413202633*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 3\
\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^2\\)\\) + \\(\\(5\\\\ \
x\\)\\) - 3\\)\\/\\(3 - x\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`30\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> 3], (3 - $CellContext`x)^(-1) (-3 +
5 $CellContext`x + 2 $CellContext`x^2), 30, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413234914*^9}}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-", "3"}], " ",
FractionBox["1", "2"], " ", "3", " "},
{
FractionBox[
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"5", " ", "x"}], "-", "3"}],
RowBox[{"3", "-", "x"}]], "+", "0", "-", "0", "+", "|", "-"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814132975197`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) - 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(3 - x\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) - 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(3 - x\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (-3 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, 3, -1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (-3 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, 3, 1],
DirectedInfinity[-1]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814133189583`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[2, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413350671*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 4\
\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(3\\\\ x\\)\\) - \
4\\)\\/\\(x\\^2 - 16\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> 4], (-16 + $CellContext`x^2)^(-1) (-4 -
3 $CellContext`x + $CellContext`x^2), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413383654*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 4\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - 4)\\)\\)\\\\ \
\\(\\((x + 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - \
4)\\)\\)\\\\ \\(\\((x + 4)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> 4], (-4 + $CellContext`x) (
1 + $CellContext`x), (-4 + $CellContext`x) (4 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814134397297`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 4\\)\\) \\!\\(TraditionalForm\\`\\(x + 1\\)\\/\\(x + 4\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript["lim", $CellContext`x -> 4], (1 + $CellContext`x)/(
4 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413476115*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
4\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\) - 4\\\\)\\\\/\\\\(x\\\\^2 - 16\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`5\\/8\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-16 + $CellContext`x^2)^(-1) (-4 -
3 $CellContext`x + $CellContext`x^2), $CellContext`x, 4],
Rational[5, 8]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413503682*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[3, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.43408141353981*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\\(\\(1\\/2\\)\\)\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-2\\)\\)\\\\ x\\^2\\)\\) + \\(\\(3\\\\ \
x\\)\\) + 2\\)\\/\\(\\(\\(2\\\\ x\\^2\\)\\) + \\(\\(3\\\\ x\\)\\) + 1\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> Rational[-1, 2]], (2 + 3 $CellContext`x -
2 $CellContext`x^2)/(1 + 3 $CellContext`x + 2 $CellContext`x^2), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814135717087`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\\(\\(1\\/2\\)\\)\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(-\\(\\((x - 2)\\)\\)\\)\\)\\\\ \\(\\((\
\\(\\(2\\\\ x\\)\\) + 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x + \
1)\\)\\)\\\\ \\(\\((\\(\\(2\\\\ x\\)\\) + 1)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> Rational[-1, 2]], -(-2 + $CellContext`x) (1 +
2 $CellContext`x), (1 + $CellContext`x) (1 + 2 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413607074*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\\(\\(1\\/2\\)\\)\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(-\\(\\(\\(x - 2\\)\\/\\(x + 1\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x -> Rational[-1, 2]], -(-2 + $CellContext`x)/(
1 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413638584*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(\\\\(\\\\(-2\\\\)\\\\)\\\\\\\\ x\
\\\\^2\\\\)\\\\) + \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + \
2\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + \\\\(\\\\(3\\\\\\\\ x\
\\\\)\\\\) + 1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`5\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(2 + 3 $CellContext`x - 2 $CellContext`x^2)/(1 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x,
Rational[-1, 2]], 5],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814136760387`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[4, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413707522*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 2\
\\)\\) \\!\\(TraditionalForm\\`\\(5 - \\(\\(3\\\\ \
x\\)\\)\\)\\/\\(\\(\\(-x\\^2\\)\\) - x + 6\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`\\(-1\\)\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\
\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript["lim", $CellContext`x -> 2], (5 - 3 $CellContext`x)/(
6 - $CellContext`x - $CellContext`x^2), -1, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814137362947`*^9}}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-", "3"}], " ",
FractionBox["5", "3"], " ", "2", " "},
{
FractionBox[
RowBox[{"5", "-",
RowBox[{"3", " ", "x"}]}],
RowBox[{
RowBox[{"-",
SuperscriptBox["x", "2"]}], "-", "x", "+", "6"}]], "-", "|", "+",
"0", "-", "|", "+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413769825*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(5 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\
\\)\\\\\\\\\\\\\\\\) - x + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(5 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\
\\)\\\\\\\\\\\\\\\\) - x + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(5 - 3 $CellContext`x)/(
6 - $CellContext`x - $CellContext`x^2), $CellContext`x, 2, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(5 - 3 $CellContext`x)/(
6 - $CellContext`x - $CellContext`x^2), $CellContext`x, 2, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413807773*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[5, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413836507*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-2\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(2\\\\ x\\)\\) - \
8\\)\\/\\(\\(\\(3\\\\ x\\^2\\)\\) + \\(\\(2\\\\ x\\)\\) - 8\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> -2], (-8 -
2 $CellContext`x + $CellContext`x^2)/(-8 + 2 $CellContext`x +
3 $CellContext`x^2), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814138735037`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-2\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - \
4)\\)\\)\\\\ \\(\\((x + 2)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x \
+ 2)\\)\\)\\\\ \\(\\((\\(\\(3\\\\ x\\)\\) - 4)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> -2], (-4 + $CellContext`x) (
2 + $CellContext`x), (2 + $CellContext`x) (-4 + 3 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413909131*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-2\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x - 4\\)\\/\\(\\(\\(3\
\\\\ x\\)\\) - 4\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript["lim", $CellContext`x -> -2], (-4 + $CellContext`x)/(-4 +
3 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814139372272`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-2\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - \
\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 8\\\\)\\\\/\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\^2\
\\\\)\\\\) + \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 8\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`3\\/5\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-8 - 2 $CellContext`x + $CellContext`x^2)/(-8 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, -2],
Rational[3, 5]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081413970716*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[6, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814140040083`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 0\
\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - 3\\)\\/\\(x\\^2 - \\(\\(3\\\\ \
x\\)\\)\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`\\(-3\\)\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\
\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
0], (-3 + $CellContext`x^2)/((-3) $CellContext`x + $CellContext`x^2), -3,
0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414040522*^9}}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-",
SqrtBox["3"]}], " ", "0", " ",
SqrtBox["3"], " ", "3", " "},
{
FractionBox[
RowBox[{
SuperscriptBox["x", "2"], "-", "3"}],
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"3", " ", "x"}]}]], "+", "0", "-", "|", "+", "0", "-", "|",
"+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.43408141407158*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 - \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\
\\\\\\)\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\
\[Infinity]\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 - \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\
\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(-3 + $CellContext`x^2)/((-3) $CellContext`x + \
$CellContext`x^2), $CellContext`x, 0, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(-3 + $CellContext`x^2)/((-3) $CellContext`x + \
$CellContext`x^2), $CellContext`x, 0, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414119137*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[7, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414160159*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^3 - \\(\\(2\\\\ \
x\\^2\\)\\) - \\(\\(3\\\\ x\\)\\)\\)\\/\\(x\\^2 - x - 2\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> -1], (-2 - $CellContext`x + \
$CellContext`x^2)^(-1) ((-3) $CellContext`x -
2 $CellContext`x^2 + $CellContext`x^3), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414188302*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - \
3)\\)\\)\\\\ x\\\\ \\(\\((x + 1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\
\\((x - 2)\\)\\)\\\\ \\(\\((x + 1)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> -1], (-3 + $CellContext`x) $CellContext`x (
1 + $CellContext`x), (-2 + $CellContext`x) (1 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814142212543`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\((x - 3)\\)\\)\\\
\\ x\\)\\/\\(x - 2\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x -> -1], (-3 + $CellContext`x) (-2 + \
$CellContext`x)^(-1) $CellContext`x],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414254261*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-1\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^3 - \
\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\/\\\\(x\\\\^2 - x - 2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(4\\/3\\)\\)\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) ((-3) \
$CellContext`x - 2 $CellContext`x^2 + $CellContext`x^3), $CellContext`x, -1],
Rational[-4, 3]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814142920303`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[8, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.43408141432568*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\
\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - x - \
2\\)\\/\\(x\\^3 + \\(\\(2\\\\ x\\^2\\)\\) - x - 2\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> 1], (-2 - $CellContext`x +
3 $CellContext`x^2)/(-2 - $CellContext`x +
2 $CellContext`x^2 + $CellContext`x^3), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414355261*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \
\\(\\((\\(\\(3\\\\ x\\)\\) + \
2)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \\(\\((x \
+ 1)\\)\\)\\\\ \\(\\((x + 2)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> 1], (-1 + $CellContext`x) (2 +
3 $CellContext`x), (-1 + $CellContext`x) (1 + $CellContext`x) (
2 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414388125*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\)\\) + \
2\\)\\/\\(\\(\\((x + 1)\\)\\)\\\\ \\(\\((x + 2)\\)\\)\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x ->
1], (1 + $CellContext`x)^(-1) (2 + $CellContext`x)^(-1) (2 +
3 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414424328*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ \
x\\\\^2\\\\)\\\\) - x - 2\\\\)\\\\/\\\\(x\\\\^3 + \\\\(\\\\(2\\\\\\\\ x\\\\^2\
\\\\)\\\\) - x - 2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`5\\/6\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x +
3 $CellContext`x^2)/(-2 - $CellContext`x +
2 $CellContext`x^2 + $CellContext`x^3), $CellContext`x, 1],
Rational[5, 6]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414459984*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[9, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814144889727`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\
\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^3\\)\\) - x\\^2 - \\(\\(7\\\
\\ x\\)\\) + 6\\)\\/\\((1 - x)\\)\\^2\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> 1], (1 - $CellContext`x)^(-2) (6 -
7 $CellContext`x - $CellContext`x^2 + 2 $CellContext`x^3), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414522558*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \
\\(\\((x + 2)\\)\\)\\\\ \\(\\((\\(\\(2\\\\ x\\)\\) - \
3)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\((x - 1)\\)\\^2\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> 1], (-1 + $CellContext`x) (
2 + $CellContext`x) (-3 + 2 $CellContext`x), (-1 + $CellContext`x)^2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414561645*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\((x + 2)\\)\\)\\\\ \\(\\((\\(\
\\(2\\\\ x\\)\\) - 3)\\)\\)\\)\\/\\(x - 1\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x -> 1], (-1 + $CellContext`x)^(-1) (
2 + $CellContext`x) (-3 + 2 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814145963078`*^9}}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-", "2"}], " ", "1", " ",
FractionBox["3", "2"], " "},
{
FractionBox[
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "3"]}], "-",
SuperscriptBox["x", "2"], "-",
RowBox[{"7", " ", "x"}], "+", "6"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-", "x"}], ")"}], "2"]], "-", "0", "+", "|", "-", "0",
"+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414625517*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(7\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\((1 - \
x)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\\
)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(7\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\((1 - \
x)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\\
)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(1 - $CellContext`x)^(-2) (6 -
7 $CellContext`x - $CellContext`x^2 +
2 $CellContext`x^3), $CellContext`x, 1, -1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(1 - $CellContext`x)^(-2) (6 -
7 $CellContext`x - $CellContext`x^2 +
2 $CellContext`x^3), $CellContext`x, 1, 1],
DirectedInfinity[-1]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414655764*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>"}],
SequenceForm[10, ") "],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814146964493`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 3\
\\/5\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(\\(\\(-5\\)\\)\\\\ x\\^2\\)\\) - \
\\(\\(7\\\\ x\\)\\) + 6\\)\\/\\(\\(\\(5\\\\ x\\^2\\)\\) - \\(\\(3\\\\ x\\)\\)\
\\)\\) = [\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)\
]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> Rational[3, 5]], (6 - 7 $CellContext`x -
5 $CellContext`x^2)/((-3) $CellContext`x + 5 $CellContext`x^2), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414723304*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 3\\/5\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(-\\(\\((x + \
2)\\)\\)\\)\\)\\\\ \\(\\((\\(\\(5\\\\ x\\)\\) - \
3)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(x\\\\ \\(\\((\\(\\(5\\\\ x\\)\\) \
- 3)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> Rational[3, 5]], -(2 + $CellContext`x) (-3 +
5 $CellContext`x), $CellContext`x (-3 + 5 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414757094*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 3\\/5\\)\\) \\!\\(TraditionalForm\\`\\(-\\(\\(\\(x + \
2\\)\\/x\\)\\)\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x -> Rational[3, 5]], -$CellContext`x^(-1) (
2 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.434081414788629*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 3\\\\/5\\\
\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(\\\\(\\\\(-5\\\\)\\\\)\\\
\\\\\\ x\\\\^2\\\\)\\\\) - \\\\(\\\\(7\\\\\\\\ x\\\\)\\\\) + 6\\\\)\\\\/\\\\(\
\\\\(\\\\(5\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(13\\/3\\)\
\\)\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(6 - 7 $CellContext`x -
5 $CellContext`x^2)/((-3) $CellContext`x +
5 $CellContext`x^2), $CellContext`x,
Rational[3, 5]],
Rational[-13, 3]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.434080786551343*^9, {3.434080901468561*^9, 3.434080935679633*^9}, {
3.434081397713005*^9, 3.4340814148232517`*^9}}]
}, Open ]]
}, Open ]]
}, Closed]]
}, Open ]]
},
AutoGeneratedPackage->None,
WindowSize->{877, 716},
WindowMargins->{{393, Automatic}, {Automatic, 15}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
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, 7924, 275, 20, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[8874, 317, 776, 18, 45, "Print"],
Cell[9653, 337, 767, 18, 47, "Print"],
Cell[10423, 357, 933, 21, 55, "Print"],
Cell[11359, 380, 747, 17, 45, "Print"],
Cell[12109, 399, 862, 20, 47, "Print"],
Cell[12974, 421, 747, 19, 47, "Print"],
Cell[13724, 442, 878, 20, 47, "Print"],
Cell[14605, 464, 874, 20, 47, "Print"],
Cell[15482, 486, 833, 19, 48, "Print"],
Cell[16318, 507, 907, 21, 56, "Print"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[17286, 535, 63, 1, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[17374, 540, 522, 14, 20, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[17921, 558, 313, 8, 24, "Print"],
Cell[18237, 568, 661, 13, 45, "Print"],
Cell[18901, 583, 694, 20, 73, "Print"],
Cell[19598, 605, 3062, 50, 93, "Print"],
Cell[22663, 657, 313, 8, 24, "Print"],
Cell[22979, 667, 648, 13, 47, "Print"],
Cell[23630, 682, 666, 13, 45, "Print"],
Cell[24299, 697, 486, 10, 43, "Print"],
Cell[24788, 709, 718, 14, 47, "Print"],
Cell[25509, 725, 312, 8, 24, "Print"],
Cell[25824, 735, 780, 14, 55, "Print"],
Cell[26607, 751, 762, 14, 53, "Print"],
Cell[27372, 767, 561, 13, 53, "Print"],
Cell[27936, 782, 897, 16, 55, "Print"],
Cell[28836, 800, 313, 8, 24, "Print"],
Cell[29152, 810, 652, 13, 45, "Print"],
Cell[29807, 825, 694, 21, 74, "Print"],
Cell[30504, 848, 2976, 50, 87, "Print"],
Cell[33483, 900, 313, 8, 24, "Print"],
Cell[33799, 910, 723, 14, 47, "Print"],
Cell[34525, 926, 698, 13, 45, "Print"],
Cell[35226, 941, 526, 11, 43, "Print"],
Cell[35755, 954, 819, 15, 47, "Print"],
Cell[36577, 971, 315, 8, 24, "Print"],
Cell[36895, 981, 650, 15, 47, "Print"],
Cell[37548, 998, 719, 22, 72, "Print"],
Cell[38270, 1022, 2852, 49, 93, "Print"],
Cell[41125, 1073, 313, 8, 24, "Print"],
Cell[41441, 1083, 724, 14, 47, "Print"],
Cell[42168, 1099, 701, 13, 45, "Print"],
Cell[42872, 1114, 546, 12, 43, "Print"],
Cell[43421, 1128, 838, 16, 47, "Print"],
Cell[44262, 1146, 312, 8, 24, "Print"],
Cell[44577, 1156, 714, 14, 47, "Print"],
Cell[45294, 1172, 737, 15, 45, "Print"],
Cell[46034, 1189, 589, 13, 45, "Print"],
Cell[46626, 1204, 801, 16, 47, "Print"],
Cell[47430, 1222, 315, 8, 24, "Print"],
Cell[47748, 1232, 691, 13, 48, "Print"],
Cell[48442, 1247, 679, 13, 46, "Print"],
Cell[49124, 1262, 582, 12, 43, "Print"],
Cell[49709, 1276, 799, 24, 75, "Print"],
Cell[50511, 1302, 3210, 56, 93, "Print"],
Cell[53724, 1360, 317, 8, 24, "Print"],
Cell[54044, 1370, 747, 14, 56, "Print"],
Cell[54794, 1386, 713, 14, 54, "Print"],
Cell[55510, 1402, 520, 12, 54, "Print"],
Cell[56033, 1416, 901, 18, 56, "Print"]
}, Open ]]
}, Open ]]
}, Closed]]
}, Open ]]
}
]
*)
(* End of internal cache information *)