(* 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[ 103738, 2582]
NotebookOptionsPosition[ 99096, 2452]
NotebookOutlinePosition[ 99514, 2470]
CellTagsIndexPosition[ 99471, 2467]
WindowFrame->Normal
ContainsDynamic->False*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["\<\
D\[EAcute]terminer les \[EAcute]ventuelles asymptotes des fonctions suivantes\
\
\>", "Subsection",
CellChangeTimes->{3.43607524878895*^9}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"q", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{"x", "-", "2"}], "]"}], "-",
RowBox[{"Sqrt", "[",
RowBox[{"x", "+", "3"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"4",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"4", "x"}], "-", "8"}], "]"}], "-",
RowBox[{"2", "x"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "+",
RowBox[{"5", "x"}], "+", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "+", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "x"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "+", "x", "-", "1"}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "3"}], "-", "x"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"2", "x"}], "+", "1"}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"5", "x"}], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{"3", "-", "x"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "+", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"3", "x"}], "+", "2"}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3",
RowBox[{"x", "^", "2"}]}], "+",
RowBox[{"2", "x"}], "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-", "x", "-", "2"}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"2", "x"}], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "+",
RowBox[{"3", "x"}], "-", "9"}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+", "x", "-", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "-",
RowBox[{"x", "^", "3"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"3", "x"}], "-", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "-", "x"}], ")"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"x", "^", "2"}], "+", "x", "-", "12"}], "]"}], "-",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"3", "x"}], "-", "10"}], "]"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x_", ",", "q"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"3", "x"}], "+", "1"}], "]"}], "-",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"2", "x"}], "+", "6"}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "-", "5"}], ")"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",",
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"1", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
RowBox[{
SqrtBox[
RowBox[{"x", "-", "2"}]], "-",
SqrtBox[
RowBox[{"x", "+", "3"}]]}]}],
SequenceForm[
1, ". f(x) = ", (-2 + $CellContext`x)^Rational[1, 2] - (
3 + $CellContext`x)^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074665900277*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"2", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"4", " ", "x"}], "-", "8"}]], "-",
RowBox[{"2", " ", "x"}]}]}],
SequenceForm[
2, ". f(x) = ", (-2) $CellContext`x + (-8 - 4 $CellContext`x +
4 $CellContext`x^2)^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.4360746659222507`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"3", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"5", " ", "x"}], "+", "2"}],
RowBox[{"x", "+", "3"}]]}],
SequenceForm[
3, ". f(x) = ", (3 + $CellContext`x)^(-1) (2 + 5 $CellContext`x +
2 $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074665940283*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"4", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{"1", "-",
RowBox[{"2", " ", "x"}]}],
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}], "+", "x", "-", "1"}]]}],
SequenceForm[
4, ". f(x) = ", (1 - 2 $CellContext`x)/(-1 + $CellContext`x +
2 $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.4360746659564333`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"5", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
SuperscriptBox["x", "3"], "-", "x"}],
RowBox[{
SuperscriptBox["x", "2"], "+",
RowBox[{"2", " ", "x"}], "+", "1"}]]}],
SequenceForm[
5, ". f(x) = ", (1 +
2 $CellContext`x + $CellContext`x^2)^(-1) (-$CellContext`x + \
$CellContext`x^3)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074665973744*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"6", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"5", " ", "x"}], "-", "3"}],
RowBox[{"3", "-", "x"}]]}],
SequenceForm[
6, ". f(x) = ", (3 - $CellContext`x)^(-1) (-3 - 5 $CellContext`x +
2 $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.4360746659894457`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"7", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
RowBox[{"2", " ", "x"}], "+", "3"}],
RowBox[{
SuperscriptBox["x", "2"], "+",
RowBox[{"3", " ", "x"}], "+", "2"}]]}],
SequenceForm[
7, ". f(x) = ", (3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074666005896*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"8", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"2", " ", "x"}], "-", "1"}],
RowBox[{
SuperscriptBox["x", "2"], "-", "x", "-", "2"}]]}],
SequenceForm[
8, ". f(x) = ", (-2 - $CellContext`x + $CellContext`x^2)^(-1) (-1 +
2 $CellContext`x + 3 $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.43607466602328*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"9", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
SuperscriptBox["x", "2"], "+",
RowBox[{"2", " ", "x"}], "-", "3"}],
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}], "+",
RowBox[{"3", " ", "x"}], "-", "9"}]]}],
SequenceForm[
9, ". f(x) = ", (-3 + 2 $CellContext`x + $CellContext`x^2)/(-9 +
3 $CellContext`x + 2 $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074666040379*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"10", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
SuperscriptBox["x", "2"], "+", "x", "-", "2"}],
RowBox[{"x", "-",
SuperscriptBox["x", "3"]}]]}],
SequenceForm[
10, ". f(x) = ", (-2 + $CellContext`x + $CellContext`x^2)/($CellContext`x - \
$CellContext`x^3)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074666057414*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"11", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"3", " ", "x"}], "-", "2"}],
RowBox[{"2", "-", "x"}]]}],
SequenceForm[
11, ". f(x) = ", (2 - $CellContext`x)^(-1) (-2 - 3 $CellContext`x +
2 $CellContext`x^2)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.4360746660740013`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"12", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
RowBox[{
SqrtBox[
RowBox[{
SuperscriptBox["x", "2"], "+", "x", "-", "12"}]], "-",
SqrtBox[
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"3", " ", "x"}], "-", "10"}]]}]}],
SequenceForm[
12, ". f(x) = ", -(-10 - 3 $CellContext`x + $CellContext`x^2)^
Rational[1, 2] + (-12 + $CellContext`x + $CellContext`x^2)^
Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074666091663*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"13", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]",
FractionBox[
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"3", " ", "x"}], "+", "1"}]], "-",
SqrtBox[
RowBox[{
RowBox[{"2", " ", "x"}], "+", "6"}]]}],
RowBox[{"x", "-", "5"}]]}],
SequenceForm[
13, ". f(x) = ", (-5 + $CellContext`x)^(-1) (-(6 + 2 $CellContext`x)^
Rational[1, 2] + (1 + 3 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.4360746531253777`*^9, 3.436074666125181*^9}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Solutions", "Subsubsection"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"q", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",",
RowBox[{"Domaine", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AV", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AO", "[",
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}], ";"}],
"\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"1", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"[\\!\\(TraditionalForm\\`2\\), \
\[LongRightArrow]\"\>",
StringForm["[`1`, \[LongRightArrow]", 2],
Editable->False],
TraditionalForm]}],
SequenceForm[1, ". Dom f = ",
analyse`Ens[$CellContext`x >= 2, $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746847032833`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x - 2\\\\) - \\\\@\\\
\\(x + 3\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\\@5\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x)^Rational[1, 2] - (
3 + $CellContext`x)^Rational[1, 2], $CellContext`x, 2], -5^
Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074684762981*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x - 2\\\\) - \
\\\\@\\\\(x + 3\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x)^Rational[1, 2] - (
3 + $CellContext`x)^Rational[1, 2], $CellContext`x,
DirectedInfinity[1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074684817872*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x - 2\\\\) - \\\\@\\\\(x + \
3\\\\)\\\\)\\\\)\\\"\\)\\) n'existe pas\"\>",
StringForm["`1` `2`",
analyse`Limite[(-2 + $CellContext`x)^Rational[1, 2] - (
3 + $CellContext`x)^Rational[1, 2], $CellContext`x,
DirectedInfinity[-1]], " n'existe pas"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074684845107*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "0"}],
"\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
SequenceForm[
"AH", " \[Congruent] ", $CellContext`y == 0, " \[AGrave] droite"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074684872913*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"2", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\
\\\\[LongLeftArrow], \
\\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)]\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\
\\`2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
StringForm["`1` \[Union] `2`",
analyse`Ens[$CellContext`x <= -1, $CellContext`x],
analyse`Ens[$CellContext`x >= 2, $CellContext`x]],
Editable->False],
TraditionalForm]}],
SequenceForm[2, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x <= -1, $CellContext`x >= 2], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074684898597*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-1\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\^2\\\\)\
\\\\) - \\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) - 8\\\\) - \\\\(\\\\(2\\\\\\\\ x\\\\)\
\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`2\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2) $CellContext`x + (-8 - 4 $CellContext`x +
4 $CellContext`x^2)^Rational[1, 2], $CellContext`x, -1], 2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746849421673`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(4\\\\\\\\ \
x\\\\^2\\\\)\\\\) - \\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) - 8\\\\) - \
\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-4\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2) $CellContext`x + (-8 - 4 $CellContext`x +
4 $CellContext`x^2)^Rational[1, 2], $CellContext`x, 2], -4],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685000967*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(4\\\\\\\\ x\
\\\\^2\\\\)\\\\) - \\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) - 8\\\\) - \\\\(\\\\(2\\\\\
\\\\ x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2) $CellContext`x + (-8 - 4 $CellContext`x +
4 $CellContext`x^2)^Rational[1, 2], $CellContext`x,
DirectedInfinity[1]], -1],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746850650177`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\^2\\\\)\
\\\\) - \\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) - 8\\\\) - \\\\(\\\\(2\\\\\\\\ x\\\\)\
\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2) $CellContext`x + (-8 - 4 $CellContext`x +
4 $CellContext`x^2)^Rational[1, 2], $CellContext`x,
DirectedInfinity[-1]],
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.43607468509114*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
RowBox[{"-", "1"}]}], "\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
SequenceForm[
"AH", " \[Congruent] ", $CellContext`y == -1, " \[AGrave] droite"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685143567*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"3", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-3\\)\\)}\"\>",
StringForm["`1` \\ {`2`}", Reals, -3],
Editable->False],
TraditionalForm]}],
SequenceForm[3, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -3, $CellContext`x > -3], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685166994*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x + 3\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x + 3\\\\\\\\\\\\\
\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(3 + $CellContext`x)^(-1) (2 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, -3, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(3 + $CellContext`x)^(-1) (2 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, -3, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685200163*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-3\\)\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -3],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685233326*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\^2\\\\)\\\\) + \\\\(\\\\(5\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\/\\\\(x + 3\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\
\\`\\\\[Infinity]\\\\)\\\"\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 + $CellContext`x)^(-1) (2 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]],
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685267372*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + \\\
\\(\\\\(5\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\/\\\\(x + 3\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 + $CellContext`x)^(-1) (2 + 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]],
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685300939*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
RowBox[{
RowBox[{"2", " ", "x"}], "-", "1"}]}]}],
SequenceForm[
"AO", " \[Congruent] ", $CellContext`y == -1 + 2 $CellContext`x],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685333487*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"4", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-1\\)\\),\\!\\(TraditionalForm\\`1\\/2\\)}\"\>",
StringForm["`1` \\ {`2`,`3`}", Reals, -1,
Rational[1, 2]],
Editable->False],
TraditionalForm]}],
SequenceForm[4, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -1,
Inequality[-1, Less, $CellContext`x, Less,
Rational[1, 2]], $CellContext`x > Rational[1, 2]], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746853677588`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(1 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + x - \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(1 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\
\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + x - \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(1 - 2 $CellContext`x)/(-1 + $CellContext`x +
2 $CellContext`x^2), $CellContext`x, -1, -1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(1 - 2 $CellContext`x)/(-1 + $CellContext`x +
2 $CellContext`x^2), $CellContext`x, -1, 1],
DirectedInfinity[-1]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685400434*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -1],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685434216*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 1\\\\/2\\\
\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(1 - \\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + x - \
1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(2\\/3\\)\\)\\)\\)\"\
\>",
StringForm["`1` = `2`",
analyse`Limite[(1 - 2 $CellContext`x)/(-1 + $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
Rational[1, 2]],
Rational[-2, 3]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685467326*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(1 - \\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + x - \
1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(1 - 2 $CellContext`x)/(-1 + $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746855011463`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(1 - \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\)\\\\)\\\
\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + x - 1\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(1 - 2 $CellContext`x)/(-1 + $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685534217*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "0"}]}],
SequenceForm["AH", " \[Congruent] ", $CellContext`y == 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746855675497`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"5", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-1\\)\\)}\"\>",
StringForm["`1` \\ {`2`}", Reals, -1],
Editable->False],
TraditionalForm]}],
SequenceForm[5, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -1, $CellContext`x > -1], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685605493*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^3 - \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^3 - \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(1 +
2 $CellContext`x + $CellContext`x^2)^(-1) (-$CellContext`x + \
$CellContext`x^3), $CellContext`x, -1, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(1 +
2 $CellContext`x + $CellContext`x^2)^(-1) (-$CellContext`x + \
$CellContext`x^3), $CellContext`x, -1, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685634942*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -1],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685667947*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^3 - \
x\\\\)\\\\/\\\\(x\\\\^2 + \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + \
1\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(1 +
2 $CellContext`x + $CellContext`x^2)^(-1) (-$CellContext`x + \
$CellContext`x^3), $CellContext`x,
DirectedInfinity[1]],
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685702147*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^3 - x\\\\)\\\\/\\\\(x\\\\^2 + \
\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 1\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(1 +
2 $CellContext`x + $CellContext`x^2)^(-1) (-$CellContext`x + \
$CellContext`x^3), $CellContext`x,
DirectedInfinity[-1]],
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685735141*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
RowBox[{"x", "-", "2"}]}]}],
SequenceForm[
"AO", " \[Congruent] ", $CellContext`y == -2 + $CellContext`x],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746857689857`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"6", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`3\\)}\"\>",
StringForm["`1` \\ {`2`}", Reals, 3],
Editable->False],
TraditionalForm]}],
SequenceForm[6, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < 3, $CellContext`x > 3], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.43607468580229*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
3\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\^2\\\\)\\\\) - \\\\(\\\\(5\\\\\\\\ x\\\\)\\\\) - 3\\\\)\\\\/\\\\(3 - x\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-7\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (-3 - 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, 3], -7],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685835595*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\^2\\\\)\\\\) - \\\\(\\\\(5\\\\\\\\ x\\\\)\\\\) - 3\\\\)\\\\/\\\\(3 - x\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (-3 - 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]],
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685868991*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\
\\(\\\\(5\\\\\\\\ x\\\\)\\\\) - 3\\\\)\\\\/\\\\(3 - x\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (-3 - 5 $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]],
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685902341*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "x"}], "-", "1"}]}]}],
SequenceForm[
"AO", " \[Congruent] ", $CellContext`y == -1 - 2 $CellContext`x],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074685936018*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"7", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-2\\)\\),\\!\\(TraditionalForm\\`\\(-1\\)\\)}\"\>\
",
StringForm["`1` \\ {`2`,`3`}", Reals, -2, -1],
Editable->False],
TraditionalForm]}],
SequenceForm[7, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -2,
Inequality[-2, Less, $CellContext`x,
Less, -1], $CellContext`x > -1], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746859698153`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\
\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\
\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2), $CellContext`x, -2, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2), $CellContext`x, -2, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686003579*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-2\\)\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686036092*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\
\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\
\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2), $CellContext`x, -1, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2), $CellContext`x, -1, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686074317*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -1],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686103533*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) \
+ 3\\\\)\\\\/\\\\(x\\\\^2 + \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\"\
\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746861363*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 3\\\\)\\\
\\/\\\\(x\\\\^2 + \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(3 + 2 $CellContext`x)/(2 +
3 $CellContext`x + $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686169701*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "0"}]}],
SequenceForm["AH", " \[Congruent] ", $CellContext`y == 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686203319*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"8", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-1\\)\\),\\!\\(TraditionalForm\\`2\\)}\"\>",
StringForm["`1` \\ {`2`,`3`}", Reals, -1, 2],
Editable->False],
TraditionalForm]}],
SequenceForm[8, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -1,
Inequality[-1, Less, $CellContext`x, Less, 2], $CellContext`x >
2], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686236837*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-1\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\^2\\\\)\\\\) + \\\
\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 1\\\\)\\\\/\\\\(x\\\\^2 - x - 2\\\\)\\\\)\\\"\
\\)\\) = \\!\\(TraditionalForm\\`4\\/3\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) (-1 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, -1],
Rational[4, 3]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746862704277`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^\
2 - x - 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) \
= \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\
\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) - 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^\
2 - x - 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) \
= \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\
\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) (-1 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, 2, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) (-1 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, 2, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686304286*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`2\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746863370867`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ \
x\\\\^2\\\\)\\\\) + \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 1\\\\)\\\\/\\\\(x\\\\^2 \
- x - 2\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`3\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) (-1 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]], 3],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686371416*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\^2\\\\)\\\\) + \\\
\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 1\\\\)\\\\/\\\\(x\\\\^2 - x - 2\\\\)\\\\)\\\"\
\\)\\) = \\!\\(TraditionalForm\\`3\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 - $CellContext`x + $CellContext`x^2)^(-1) (-1 +
2 $CellContext`x + 3 $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]], 3],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686404104*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "3"}]}],
SequenceForm["AH", " \[Congruent] ", $CellContext`y == 3],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686437962*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"9", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-3\\)\\),\\!\\(TraditionalForm\\`3\\/2\\)}\"\>",
StringForm["`1` \\ {`2`,`3`}", Reals, -3,
Rational[3, 2]],
Editable->False],
TraditionalForm]}],
SequenceForm[9, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -3,
Inequality[-3, Less, $CellContext`x, Less,
Rational[3, 2]], $CellContext`x > Rational[3, 2]], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686471487*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-3\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 + \
\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 3\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\
\\\\)\\\\) + \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 9\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`4\\/9\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x + $CellContext`x^2)/(-9 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x, -3],
Rational[4, 9]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686504223*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\"<\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) - \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\
\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) - 9\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) \
= \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\
\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\">\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) - \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\
\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) - 9\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) \
= \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\
\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x + $CellContext`x^2)/(-9 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x,
Rational[3, 2], -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x + $CellContext`x^2)/(-9 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x,
Rational[3, 2], 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746865424967`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`3\\/2\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x,
Rational[3, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686571478*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 + \\\\(\\\\(2\\\\\\\\ x\
\\\\)\\\\) - 3\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + \
\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 9\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`1\\/2\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x + $CellContext`x^2)/(-9 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]],
Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686605413*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 + \\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) \
- 3\\\\)\\\\/\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) + \\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\) - 9\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/2\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x + $CellContext`x^2)/(-9 +
3 $CellContext`x + 2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]],
Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686638928*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
FractionBox["1", "2"]}]}],
SequenceForm["AH", " \[Congruent] ", $CellContext`y == Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686671694*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"10", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`\\(-1\\)\\),\\!\\(TraditionalForm\\`0\\),\\!\\(\
TraditionalForm\\`1\\)}\"\>",
StringForm["`1` \\ {`2`,`3`,`4`}", Reals, -1, 0, 1],
Editable->False],
TraditionalForm]}],
SequenceForm[10, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < -1,
Inequality[-1, Less, $CellContext`x, Less, 0],
Inequality[0, Less, $CellContext`x, Less, 1], $CellContext`x >
1], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746867054033`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + x - \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x - x\\\\\\\\\\\\\\\\^3\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + x - \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x - x\\\\\\\\\\\\\\\\^3\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + \
$CellContext`x^2)/($CellContext`x - $CellContext`x^3), $CellContext`x, -1, \
-1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + \
$CellContext`x^2)/($CellContext`x - $CellContext`x^3), $CellContext`x, -1, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686738407*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\(-1\\)\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, -1],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686771687*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + x - \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x - x\\\\\\\\\\\\\\\\^3\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + x - \
2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x - x\\\\\\\\\\\\\\\\^3\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + \
$CellContext`x^2)/($CellContext`x - $CellContext`x^3), $CellContext`x, 0, -1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + \
$CellContext`x^2)/($CellContext`x - $CellContext`x^3), $CellContext`x, 0, 1],
DirectedInfinity[-1]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686806631*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"AV \[Congruent] \\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["AV \[Congruent] `1` = `2`", $CellContext`x, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746868390703`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 + x - \
2\\\\)\\\\/\\\\(x - x\\\\^3\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(3\\/2\\)\\)\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + $CellContext`x^2)/($CellContext`x - \
$CellContext`x^3), $CellContext`x, 1],
Rational[-3, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686872448*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 + x - 2\\\\)\\\\/\\\\(x \
- x\\\\^3\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + $CellContext`x^2)/($CellContext`x - \
$CellContext`x^3), $CellContext`x,
DirectedInfinity[1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746869064817`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 + x - 2\\\\)\\\\/\\\\(x - \
x\\\\^3\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-2 + $CellContext`x + $CellContext`x^2)/($CellContext`x - \
$CellContext`x^3), $CellContext`x,
DirectedInfinity[-1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686939272*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "0"}]}],
SequenceForm["AH", " \[Congruent] ", $CellContext`y == 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074686973131*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"11", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`2\\)}\"\>",
StringForm["`1` \\ {`2`}", Reals, 2],
Editable->False],
TraditionalForm]}],
SequenceForm[11, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x < 2, $CellContext`x > 2], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687010825*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\^2\\\\)\\\\) - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 2\\\\)\\\\/\\\\(2 - x\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-5\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(2 - $CellContext`x)^(-1) (-2 - 3 $CellContext`x +
2 $CellContext`x^2), $CellContext`x, 2], -5],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687039812*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\^2\\\\)\\\\) - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 2\\\\)\\\\/\\\\(2 - x\\\
\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(2 - $CellContext`x)^(-1) (-2 - 3 $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[1]],
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687073716*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\
\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 2\\\\)\\\\/\\\\(2 - x\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(2 - $CellContext`x)^(-1) (-2 - 3 $CellContext`x +
2 $CellContext`x^2), $CellContext`x,
DirectedInfinity[-1]],
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746871066427`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AO\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "x"}], "-", "1"}]}]}],
SequenceForm[
"AO", " \[Congruent] ", $CellContext`y == -1 - 2 $CellContext`x],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687140709*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"12", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\
\\\\[LongLeftArrow], \
\\\\!\\\\(TraditionalForm\\\\`\\\\(-4\\\\)\\\\)]\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\
\\`5\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
StringForm["`1` \[Union] `2`",
analyse`Ens[$CellContext`x <= -4, $CellContext`x],
analyse`Ens[$CellContext`x >= 5, $CellContext`x]],
Editable->False],
TraditionalForm]}],
SequenceForm[12, ". Dom f = ",
analyse`Ens[
Or[$CellContext`x <= -4, $CellContext`x >= 5], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687173615*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-4\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 + x - 12\\\\) - \
\\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - \
10\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(\\(\\(-3\\)\\)\\\\ \
\\@2\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[-(-10 - 3 $CellContext`x + $CellContext`x^2)^
Rational[1, 2] + (-12 + $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x, -4], (-3) 2^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687207595*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
5\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 + x - \
12\\\\) - \\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - \
10\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(3\\\\ \
\\@2\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[-(-10 - 3 $CellContext`x + $CellContext`x^2)^
Rational[1, 2] + (-12 + $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x, 5], 3 2^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687240561*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 + x - 12\\\\) \
- \\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 10\\\\)\\\\)\\\\)\\\"\
\\)\\) = \\!\\(TraditionalForm\\`2\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[-(-10 - 3 $CellContext`x + $CellContext`x^2)^
Rational[1, 2] + (-12 + $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x,
DirectedInfinity[1]], 2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687273984*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 + x - 12\\\\) - \
\\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - \
10\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-2\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[-(-10 - 3 $CellContext`x + $CellContext`x^2)^
Rational[1, 2] + (-12 + $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x,
DirectedInfinity[-1]], -2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687308076*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "2"}],
"\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
SequenceForm[
"AH", " \[Congruent] ", $CellContext`y == 2, " \[AGrave] droite"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746873406487`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]",
RowBox[{"-", "2"}]}], "\[InvisibleSpace]", "\<\" \[AGrave] gauche\"\>"}],
SequenceForm[
"AH", " \[Congruent] ", $CellContext`y == -2, " \[AGrave] gauche"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687374824*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{
"13", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\
\\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/3\\\\)\\\\)\\\\)\\\\), \\\
\\!\\\\(TraditionalForm\\\\`5\\\\)[\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\
\\`5\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
StringForm["`1` \[Union] `2`",
analyse`Ens[
Inequality[
Rational[-1, 3], LessEqual, $CellContext`x, Less,
5], $CellContext`x],
analyse`Ens[$CellContext`x > 5, $CellContext`x]],
Editable->False],
TraditionalForm]}],
SequenceForm[13, ". Dom f = ",
analyse`Ens[
Or[
Inequality[
Rational[-1, 3], LessEqual, $CellContext`x, Less, 5], $CellContext`x >
5], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687407625*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\(\\\\(1\\\\/3\\\\)\\\\)\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) \
+ 1\\\\) - \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 6\\\\)\\\\)\\\\/\\\\(x \
- 5\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\@3\\/4\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-5 + $CellContext`x)^(-1) (-(6 + 2 $CellContext`x)^
Rational[1, 2] + (1 + 3 $CellContext`x)^
Rational[1, 2]), $CellContext`x,
Rational[-1, 3]], Rational[1, 4] 3^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4360746874414988`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
5\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\) + 1\\\\) - \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + \
6\\\\)\\\\)\\\\/\\\\(x - 5\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`1\\/8\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-5 + $CellContext`x)^(-1) (-(6 + 2 $CellContext`x)^
Rational[1, 2] + (1 + 3 $CellContext`x)^
Rational[1, 2]), $CellContext`x, 5],
Rational[1, 8]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687479369*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(3\\\\\\\\ x\
\\\\)\\\\) + 1\\\\) - \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 6\\\\)\\\\)\
\\\\/\\\\(x - 5\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-5 + $CellContext`x)^(-1) (-(6 + 2 $CellContext`x)^
Rational[1, 2] + (1 + 3 $CellContext`x)^
Rational[1, 2]), $CellContext`x,
DirectedInfinity[1]], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687507742*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) \
+ 1\\\\) - \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 6\\\\)\\\\)\\\\/\\\\(x \
- 5\\\\)\\\\)\\\"\\)\\) n'existe pas\"\>",
StringForm["`1` `2`",
analyse`Limite[(-5 + $CellContext`x)^(-1) (-(6 + 2 $CellContext`x)^
Rational[1, 2] + (1 + 3 $CellContext`x)^
Rational[1, 2]), $CellContext`x,
DirectedInfinity[-1]], " n'existe pas"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687541233*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"AH\"\>", "\[InvisibleSpace]", "\<\" \[Congruent] \"\>",
"\[InvisibleSpace]",
RowBox[{"y", "\[LongEqual]", "0"}],
"\[InvisibleSpace]", "\<\" \[AGrave] droite\"\>"}],
SequenceForm[
"AH", " \[Congruent] ", $CellContext`y == 0, " \[AGrave] droite"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.436074687574939*^9}]
}, Open ]]
}, Open ]]
}, Closed]]
}, Open ]]
},
WindowSize->{815, 866},
WindowMargins->{{147, Automatic}, {Automatic, 0}},
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, 150, 4, 39, "Subsection"],
Cell[CellGroupData[{
Cell[765, 31, 8383, 282, 20, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[9173, 317, 481, 14, 35, "Print"],
Cell[9657, 333, 571, 16, 35, "Print"],
Cell[10231, 351, 535, 15, 45, "Print"],
Cell[10769, 368, 532, 15, 45, "Print"],
Cell[11304, 385, 552, 16, 47, "Print"],
Cell[11859, 403, 538, 15, 45, "Print"],
Cell[12400, 420, 528, 15, 45, "Print"],
Cell[12931, 437, 593, 16, 47, "Print"],
Cell[13527, 455, 617, 17, 47, "Print"],
Cell[14147, 474, 513, 14, 47, "Print"],
Cell[14663, 490, 540, 15, 45, "Print"],
Cell[15206, 507, 642, 18, 35, "Print"],
Cell[15851, 527, 630, 18, 48, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[16530, 551, 34, 0, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[16589, 555, 9138, 305, 20, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[25752, 864, 508, 14, 24, "Print"],
Cell[26263, 880, 602, 12, 41, "Print"],
Cell[26868, 894, 679, 12, 41, "Print"],
Cell[27550, 908, 626, 12, 41, "Print"],
Cell[28179, 922, 418, 10, 24, "Print"],
Cell[28600, 934, 859, 20, 24, "Print"],
Cell[29462, 956, 685, 12, 42, "Print"],
Cell[30150, 970, 669, 12, 42, "Print"],
Cell[30822, 984, 782, 14, 42, "Print"],
Cell[31607, 1000, 829, 17, 42, "Print"],
Cell[32439, 1019, 439, 11, 24, "Print"],
Cell[32881, 1032, 625, 16, 24, "Print"],
Cell[33509, 1050, 3103, 50, 93, "Print"],
Cell[36615, 1102, 294, 6, 24, "Print"],
Cell[36912, 1110, 836, 16, 45, "Print"],
Cell[37751, 1128, 719, 14, 45, "Print"],
Cell[38473, 1144, 415, 11, 24, "Print"],
Cell[38891, 1157, 775, 19, 42, "Print"],
Cell[39669, 1178, 3093, 50, 87, "Print"],
Cell[42765, 1230, 294, 6, 24, "Print"],
Cell[43062, 1238, 681, 14, 53, "Print"],
Cell[43746, 1254, 725, 13, 45, "Print"],
Cell[44474, 1269, 673, 13, 45, "Print"],
Cell[45150, 1284, 340, 8, 24, "Print"],
Cell[45493, 1294, 625, 16, 24, "Print"],
Cell[46121, 1312, 2969, 52, 93, "Print"],
Cell[49093, 1366, 294, 6, 24, "Print"],
Cell[49390, 1374, 831, 18, 47, "Print"],
Cell[50224, 1394, 712, 15, 47, "Print"],
Cell[50939, 1411, 388, 10, 24, "Print"],
Cell[51330, 1423, 614, 16, 24, "Print"],
Cell[51947, 1441, 626, 11, 45, "Print"],
Cell[52576, 1454, 770, 14, 45, "Print"],
Cell[53349, 1470, 787, 16, 45, "Print"],
Cell[54139, 1488, 438, 12, 24, "Print"],
Cell[54580, 1502, 736, 19, 24, "Print"],
Cell[55319, 1523, 3095, 52, 87, "Print"],
Cell[58417, 1577, 294, 6, 24, "Print"],
Cell[58714, 1585, 3095, 52, 87, "Print"],
Cell[61812, 1639, 294, 6, 24, "Print"],
Cell[62109, 1647, 720, 13, 45, "Print"],
Cell[62832, 1662, 672, 13, 45, "Print"],
Cell[63507, 1677, 338, 8, 24, "Print"],
Cell[63848, 1687, 721, 18, 24, "Print"],
Cell[64572, 1707, 696, 13, 47, "Print"],
Cell[65271, 1722, 3045, 48, 93, "Print"],
Cell[68319, 1772, 288, 6, 24, "Print"],
Cell[68610, 1780, 759, 13, 47, "Print"],
Cell[69372, 1795, 709, 13, 47, "Print"],
Cell[70084, 1810, 338, 8, 24, "Print"],
Cell[70425, 1820, 773, 19, 42, "Print"],
Cell[71201, 1841, 720, 13, 47, "Print"],
Cell[71924, 1856, 3337, 56, 113, "Print"],
Cell[75264, 1914, 308, 7, 42, "Print"],
Cell[75575, 1923, 809, 15, 47, "Print"],
Cell[76387, 1940, 757, 14, 47, "Print"],
Cell[77147, 1956, 375, 9, 42, "Print"],
Cell[77525, 1967, 816, 20, 24, "Print"],
Cell[78344, 1989, 2730, 48, 93, "Print"],
Cell[81077, 2039, 294, 6, 24, "Print"],
Cell[81374, 2047, 2593, 46, 93, "Print"],
Cell[83970, 2095, 288, 6, 24, "Print"],
Cell[84261, 2103, 607, 12, 47, "Print"],
Cell[84871, 2117, 676, 12, 47, "Print"],
Cell[85550, 2131, 624, 12, 47, "Print"],
Cell[86177, 2145, 338, 8, 24, "Print"],
Cell[86518, 2155, 617, 16, 24, "Print"],
Cell[87138, 2173, 626, 11, 45, "Print"],
Cell[87767, 2186, 770, 14, 45, "Print"],
Cell[88540, 2202, 789, 16, 45, "Print"],
Cell[89332, 2220, 438, 12, 24, "Print"],
Cell[89773, 2234, 861, 20, 24, "Print"],
Cell[90637, 2256, 748, 14, 42, "Print"],
Cell[91388, 2272, 708, 13, 42, "Print"],
Cell[92099, 2287, 785, 14, 42, "Print"],
Cell[92887, 2303, 743, 14, 42, "Print"],
Cell[93633, 2319, 420, 10, 24, "Print"],
Cell[94056, 2331, 439, 11, 24, "Print"],
Cell[94498, 2344, 1040, 26, 43, "Print"],
Cell[95541, 2372, 801, 14, 59, "Print"],
Cell[96345, 2388, 717, 14, 48, "Print"],
Cell[97065, 2404, 804, 14, 48, "Print"],
Cell[97872, 2420, 751, 14, 48, "Print"],
Cell[98626, 2436, 418, 10, 24, "Print"]
}, Open ]]
}, Open ]]
}, Closed]]
}, Open ]]
}
]
*)
(* End of internal cache information *)