(* 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 *)