(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 52353, 1388]
NotebookOptionsPosition[ 48069, 1226]
NotebookOutlinePosition[ 48439, 1242]
CellTagsIndexPosition[ 48396, 1239]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Exercices sur les limites : Exemples", "Subsubtitle",
CellChangeTimes->{{3.4653822570282907`*^9, 3.4653822680829983`*^9}}],
Cell[CellGroupData[{
Cell[TextData[{
"Ind\[EAcute]termination ",
Cell[BoxData[
FormBox[
RowBox[{"[",
FractionBox["0", "0"], "]"}], TraditionalForm]]]
}], "Section",
CellChangeTimes->{{3.465382385839531*^9, 3.465382396347645*^9}}],
Cell[CellGroupData[{
Cell["Exemple 1", "Titre2",
CellChangeTimes->{{3.465396546101672*^9, 3.46539654761224*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "+",
RowBox[{"7", "x"}], "-", "4"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"7", "x"}], "+", "3"}], ")"}]}], ",", "x", ",",
RowBox[{"1", "/", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.4653824509072323`*^9, 3.4653825580279016`*^9}, {
3.465382619575781*^9, 3.4653826357501507`*^9}, {3.465396488193223*^9,
3.46539648873322*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\
\\/2\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\^2\\)\\) + \\(\\(7\\\\ x\
\\)\\) - 4\\)\\/\\(\\(\\(2\\\\ x\\^2\\)\\) - \\(\\(7\\\\ x\\)\\) + 3\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
Rational[1, 2]], (3 - 7 $CellContext`x + 2 $CellContext`x^2)^(-1) (-4 +
7 $CellContext`x + 2 $CellContext`x^2), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4654725553947897`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\/2\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x + 4)\\)\\)\\\\ \
\\(\\((\\(\\(2\\\\ x\\)\\) - \
1)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 3)\\)\\)\\\\ \
\\(\\((\\(\\(2\\\\ x\\)\\) - 1)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> Rational[1, 2]], (4 + $CellContext`x) (-1 +
2 $CellContext`x), (-3 + $CellContext`x) (-1 + 2 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4654725553979187`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\/2\\)\\) \\!\\(TraditionalForm\\`\\(x + 4\\)\\/\\(x - 3\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x -> Rational[1, 2]], (-3 + $CellContext`x)^(-1) (
4 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465472555401156*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 1\\\\/2\\\
\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x + 4\\\\)\\\\/\\\\(x - \
3\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(9\\/5\\)\\)\\)\\)\"\
\>",
StringForm["`1` = `2`",
analyse`Limite[(-3 + $CellContext`x)^(-1) (
4 + $CellContext`x), $CellContext`x,
Rational[1, 2]],
Rational[-9, 5]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465472555404636*^9}]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 2", "Titre2",
CellChangeTimes->{{3.4653965535895348`*^9, 3.46539655530822*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"2", "x"}], "-", "1"}]], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"3", "x"}], "-", "10"}], ")"}]}], ",", "x", ",", "5"}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.4653824509072323`*^9, 3.4653825580279016`*^9}, {
3.465382619575781*^9, 3.4653826357501507`*^9}, {3.465396488193223*^9,
3.46539648873322*^9}, {3.4653965769793987`*^9, 3.465396643305694*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 5\
\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\) - \
3\\)\\/\\(x\\^2 - \\(\\(3\\\\ x\\)\\) - 10\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
5], (-10 - 3 $CellContext`x + $CellContext`x^2)^(-1) (-3 + (-1 +
2 $CellContext`x)^Rational[1, 2]), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396605988134*^9, 3.465396643852661*^9},
3.465472576494556*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 5\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((\\@\\(\\(\\(2\\\\ \
x\\)\\) - 1\\) - 3)\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\) + 3)\\)\
\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 5)\\)\\)\\\\ \\(\\((x + \
2)\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\) + 3)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x ->
5], (-3 + (-1 + 2 $CellContext`x)^Rational[1, 2]) (
3 + (-1 + 2 $CellContext`x)^Rational[1, 2]), (-5 + $CellContext`x) (
2 + $CellContext`x) (3 + (-1 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396605988134*^9, 3.465396643852661*^9},
3.465472576498756*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 5\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) - \
10\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 5)\\)\\)\\\\ \\(\\((x + \
2)\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\) + 3)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript["lim", $CellContext`x -> 5], -10 +
2 $CellContext`x, (-5 + $CellContext`x) (2 + $CellContext`x) (
3 + (-1 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396605988134*^9, 3.465396643852661*^9},
3.46547257650224*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 5\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(2\\\\ \\(\\((x - 5)\\)\\)\\)\
\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 5)\\)\\)\\\\ \\(\\((x + \
2)\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\) + 3)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript["lim", $CellContext`x -> 5],
2 (-5 + $CellContext`x), (-5 + $CellContext`x) (2 + $CellContext`x) (
3 + (-1 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396605988134*^9, 3.465396643852661*^9},
3.4654725765057297`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 5\\)\\) \\!\\(TraditionalForm\\`2\\/\\(\\(\\((x + 2)\\)\\)\\\\ \
\\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\) + 3)\\)\\)\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript["lim", $CellContext`x -> 5], 2 (2 + $CellContext`x)^(-1)/(
3 + (-1 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396605988134*^9, 3.465396643852661*^9},
3.465472576508939*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
5\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`2\\\\/\\\\(\\\\(\\\\((x + 2)\\\\)\\\
\\)\\\\\\\\ \\\\(\\\\((\\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 1\\\\) + \
3)\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/21\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[
2 (2 + $CellContext`x)^(-1)/(
3 + (-1 + 2 $CellContext`x)^Rational[1, 2]), $CellContext`x, 5],
Rational[1, 21]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396605988134*^9, 3.465396643852661*^9},
3.465472576551764*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Signe de l'infini - Ind\[EAcute]termination ",
Cell[BoxData[
FormBox[
RowBox[{"[",
FractionBox["k", "0"], "]"}], TraditionalForm]]]
}], "Section",
CellChangeTimes->{{3.465382385839531*^9, 3.465382396347645*^9}, {
3.46538265460889*^9, 3.4653826569263763`*^9}, {3.465396749801553*^9,
3.465396757681258*^9}}],
Cell[CellGroupData[{
Cell["Exemple 1", "Titre2",
CellChangeTimes->{{3.465396760441123*^9, 3.46539676190486*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}]}], ",", "x", ",",
RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.4653966837793283`*^9, 3.465396684352695*^9}, {3.465396807286375*^9,
3.465396807532589*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-1\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\/\
\\(x + 1\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`\\(-5\\)\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\
\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> -1], (1 + $CellContext`x)^(-1) (-3 +
2 $CellContext`x), -5, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396804898575*^9, 3.465396807909478*^9},
3.465396928642921*^9}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-", "1"}], " ",
FractionBox["3", "2"], " "},
{
RowBox[{
RowBox[{"2", " ", "x"}], "-", "3"}], "-", "-", "-", "0", "+"},
{
RowBox[{"x", "+", "1"}], "-", "0", "+", "+", "+"},
{
FractionBox[
RowBox[{
RowBox[{"2", " ", "x"}], "-", "3"}],
RowBox[{"x", "+", "1"}]], "+", "|", "-", "0", "+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{{3.465396804898575*^9, 3.465396807909478*^9},
3.465396928688274*^9}]
}, Open ]],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\
\\\\\\\\\\\\(x + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\
\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\
\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[\
Infinity]\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - 3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\
\\\\\\\\\\\\(x + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\
\\\\\\\\) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\
\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments \
-> {Left}, ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(1 + $CellContext`x)^(-1) (-3 +
2 $CellContext`x), $CellContext`x, -1, -1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(1 + $CellContext`x)^(-1) (-3 +
2 $CellContext`x), $CellContext`x, -1, 1],
DirectedInfinity[-1]], " "}}, 0]],
Editable->False], TraditionalForm]], "Output",
CellChangeTimes->{3.465396808028113*^9, 3.465396928695251*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 2", "Titre2",
CellChangeTimes->{{3.4653969464946527`*^9, 3.465396948069417*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+", "x", "+", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"5", "x"}], "+", "6"}], ")"}]}], ",", "x", ",", "3"}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.4653966837793283`*^9, 3.465396684352695*^9}, {3.465396807286375*^9,
3.465396807532589*^9}, {3.465396964472455*^9, 3.465396994416544*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 3\
\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 + x + 3\\)\\/\\(x\\^2 - \\(\\(5\\\\ x\
\\)\\) + 6\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`15\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
3], (6 - 5 $CellContext`x + $CellContext`x^2)^(-1) (
3 + $CellContext`x + $CellContext`x^2), 15, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4653969878472233`*^9}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ", "2", " ", "3", " "},
{
RowBox[{
SuperscriptBox["x", "2"], "+", "x", "+", "3"}], "+", "+", "+", "+",
"+"},
{
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"5", " ", "x"}], "+", "6"}], "+", "0", "-", "0", "+"},
{
FractionBox[
RowBox[{
SuperscriptBox["x", "2"], "+", "x", "+", "3"}],
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"5", " ", "x"}], "+", "6"}]], "+", "|", "-", "|", "+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{3.465396987889024*^9}]
}, Open ]],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + x + \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(x\\\\\\\\\\\\\\\\^2 + x + \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\) + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(6 - 5 $CellContext`x + $CellContext`x^2)^(-1) (
3 + $CellContext`x + $CellContext`x^2), $CellContext`x, 3, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(6 - 5 $CellContext`x + $CellContext`x^2)^(-1) (
3 + $CellContext`x + $CellContext`x^2), $CellContext`x, 3, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Output",
CellChangeTimes->{3.465396987918168*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 3", "Titre2",
CellChangeTimes->{{3.465397005263877*^9, 3.4653970074392757`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"2", "x"}]}]], "/",
RowBox[{"(",
RowBox[{"x", "+", "2"}], ")"}]}], ",", "x", ",",
RowBox[{"-", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.4653966837793283`*^9, 3.465396684352695*^9}, {3.465396807286375*^9,
3.465396807532589*^9}, {3.465396964472455*^9, 3.465397030193932*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-2\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\@\\(x\\^2 - \\(\\(2\\\\ \
x\\)\\)\\)\\/\\(x + 2\\)\\) = [\\!\\(\\!\\(TraditionalForm\\`\\(2\\\\ \\@2\\)\
\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> -2], (
2 + $CellContext`x)^(-1) ((-2) $CellContext`x + $CellContext`x^2)^
Rational[1, 2], 2 2^Rational[1, 2], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397030543105*^9}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-", "2"}], " ", "0", " ", "2", " "},
{
SqrtBox[
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"2", " ", "x"}]}]], "+", "+", "+", "0", "|", "0", "+"},
{
RowBox[{"x", "+", "2"}], "-", "0", "+", "+", "+", "+", "+"},
{
FractionBox[
SqrtBox[
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"2", " ", "x"}]}]],
RowBox[{"x", "+", "2"}]], "-", "|", "+", "0", "|", "0", "+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{3.4653970307580843`*^9}]
}, Open ]],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\@\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\
x + 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(-2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\@\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^2 - \
\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\
\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\
x + 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(
2 + $CellContext`x)^(-1) ((-2) $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x, -2, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(
2 + $CellContext`x)^(-1) ((-2) $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x, -2, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Output",
CellChangeTimes->{3.465397069054475*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 4", "Titre2",
CellChangeTimes->{{3.465397146875058*^9, 3.465397150521809*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{"x", "+", "1"}], "]"}], "/",
RowBox[{"(",
RowBox[{"3", "-", "x"}], ")"}]}], ",", "x", ",", "3"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465382722930299*^9, 3.465382732528009*^9}, {3.465382843138172*^9,
3.465382889955875*^9}, {3.465397098501164*^9, 3.465397099018414*^9}, {
3.4653971652068233`*^9, 3.465397176436597*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 3\
\\)\\) \\!\\(TraditionalForm\\`\\@\\(x + 1\\)\\/\\(3 - x\\)\\)\"\>",
StringForm["`1` `2`",
Underscript[
"lim", $CellContext`x ->
3], (3 - $CellContext`x)^(-1) (1 + $CellContext`x)^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.46539717670881*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 3\
\\)\\) \\!\\(TraditionalForm\\`\\@\\(x + 1\\)\\/\\(3 - x\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`2\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
3], (3 - $CellContext`x)^(-1) (1 + $CellContext`x)^Rational[1, 2], 2, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4653971767110977`*^9}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
RowBox[{"-", "1"}], " ", "3", " "},
{
SqrtBox[
RowBox[{"x", "+", "1"}]], "|", "0", "+", "+", "+"},
{
RowBox[{"3", "-", "x"}], "+", "+", "+", "0", "-"},
{
FractionBox[
SqrtBox[
RowBox[{"x", "+", "1"}]],
RowBox[{"3", "-", "x"}]], "|", "0", "+", "|", "-"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{3.4653971768308153`*^9}]
}, Open ]],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\@\\\\\\\\\\\\\\\\(x + \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(3 - \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\@\\\\\\\\\\\\\\\\(x + \
1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(3 - \
x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \
ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (1 + $CellContext`x)^
Rational[1, 2], $CellContext`x, 3, -1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(3 - $CellContext`x)^(-1) (1 + $CellContext`x)^
Rational[1, 2], $CellContext`x, 3, 1],
DirectedInfinity[-1]], " "}}, 0]],
Editable->False], TraditionalForm]], "Output",
CellChangeTimes->{3.465397069054475*^9, 3.465397185153528*^9}]
}, Open ]],
Cell["", "PageBreak",
PageBreakBelow->True]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Ind\[EAcute]termination ",
Cell[BoxData[
FormBox[
RowBox[{"[",
FractionBox["\[Infinity]", "\[Infinity]"], "]"}], TraditionalForm]]]
}], "Section",
CellChangeTimes->{{3.465382385839531*^9, 3.465382396347645*^9}, {
3.46538265460889*^9, 3.4653826569263763`*^9}}],
Cell[TextData[{
"RAPPEL: ",
Cell[BoxData[
FormBox[
RowBox[{"\t",
RowBox[{
SqrtBox[
SuperscriptBox["x", "2"]], "=",
RowBox[{"|", "x", "|",
RowBox[{"=",
RowBox[{"\[Piecewise]", GridBox[{
{"x",
RowBox[{"x", "\[GreaterEqual]", "0"}]},
{
RowBox[{"-", "x"}],
RowBox[{"x", "<", "0"}]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {},
"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {},
"Rows" -> {{1.}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.84]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}]}]}]}]}]}], TraditionalForm]],
FormatType->"TraditionalForm"]
}], "definition",
CellChangeTimes->{{3.465397739778466*^9, 3.465397756163681*^9},
3.465397814574067*^9}],
Cell[CellGroupData[{
Cell["Exemple 1", "Titre2",
CellChangeTimes->{{3.4653826997346697`*^9, 3.465382701268364*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "+", "1"}], ")"}]}], ",", "x", ",", "\[Infinity]"}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465396695803307*^9, 3.465396696377013*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\/\\(x + 1\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(2\\\\ x\\)\\)\\/\\!\\(TraditionalForm\\`x\\)\
\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`2\\) = \\!\\(TraditionalForm\\`2\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript["lim", $CellContext`x -> StringForm["+`1`",
DirectedInfinity[1]]], (1 + $CellContext`x)^(-1) (-3 +
2 $CellContext`x), 2 $CellContext`x, $CellContext`x, 2, 2],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.465382302833988*^9, 3.465382314590701*^9},
3.465397240591461*^9, 3.465472677441231*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 2", "Titre2",
CellChangeTimes->{{3.4653826997346697`*^9, 3.465382701268364*^9}, {
3.4653827403995113`*^9, 3.465382740477463*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"4", "x"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"3", "x"}], "+", "1"}], ")"}]}], ",", "x", ",",
RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465382722930299*^9, 3.465382732528009*^9}, {3.465397110236701*^9,
3.465397110778346*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(3 - \\(\\(4\\\\ \
x\\)\\)\\)\\/\\(x\\^2 + \\(\\(3\\\\ x\\)\\) + 1\\)\\) = \\!\\(TraditionalForm\
\\`\\\"lim\\\"\\+\\(x \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(-4\\)\\)\\\\ \
x\\)\\)\\/\\!\\(TraditionalForm\\`x\\^2\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(-\\(\\(4\\/x\\)\\)\\)\\) = \
\\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript[
"lim", $CellContext`x -> DirectedInfinity[-1]], (3 - 4 $CellContext`x)/(1 +
3 $CellContext`x + $CellContext`x^2), (-4) $CellContext`x, \
$CellContext`x^2, (-4)/$CellContext`x, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4653827329344587`*^9, 3.46539711096848*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 3", "Titre2",
CellChangeTimes->{{3.4653826997346697`*^9, 3.465382701268364*^9}, {
3.4653827403995113`*^9, 3.465382740477463*^9}, {3.4653827963921757`*^9,
3.465382796486843*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"5", "x"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"3", "x"}], "-", "2"}], ")"}]}], ",", "x", ",",
RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465382722930299*^9, 3.465382732528009*^9}, {3.465382799594037*^9,
3.4653828080738983`*^9}, {3.46539712112472*^9, 3.4653971216346407`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\\(5\\\\ \
x\\)\\)\\)\\/\\(\\(\\(3\\\\ x\\)\\) - 2\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`x\\^2\\)\\/\\!\\(TraditionalForm\\`\\(3\\\\ \
x\\)\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \\(\\(-\
\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`x\\/3\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (-2 +
3 $CellContext`x)^(-1) ((-5) $CellContext`x + $CellContext`x^2), \
$CellContext`x^2, 3 $CellContext`x, Rational[1, 3] $CellContext`x,
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465382809591943*^9, 3.465397121857943*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 4", "Titre2",
CellChangeTimes->{{3.4653826997346697`*^9, 3.465382701268364*^9}, {
3.4653827403995113`*^9, 3.465382740477463*^9}, {3.465382839530438*^9,
3.465382839616007*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"3", "x"}], "+", "1"}], ")"}], "]"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "-", "3"}], ")"}]}], ",", "x", ",",
RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465382722930299*^9, 3.465382732528009*^9}, {3.465382843138172*^9,
3.465382889955875*^9}, {3.465397098501164*^9, 3.465397099018414*^9}, {
3.4653972908277063`*^9, 3.465397294207758*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\@\\(x\\^2 + \
\\(\\(3\\\\ x\\)\\) + 1\\)\\/\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\@\\(x\\^2\\)\\)\\/\\!\\(TraditionalForm\\`\\(\
2\\\\ x\\)\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \\(\\(-\
\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(-x\\)\\)\\/\\!\\(TraditionalForm\\`\\(2\\\\ \
x\\)\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` \!\(`5`\/`6`\) = `7`",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (-3 + 2 $CellContext`x)^(-1) (1 +
3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], ($CellContext`x^2)^
Rational[1, 2], 2 $CellContext`x, -$CellContext`x, 2 $CellContext`x,
Rational[-1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4653970993174257`*^9, 3.465397295116684*^9,
3.465472655885248*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 5", "Titre2",
CellChangeTimes->{{3.465397273862*^9, 3.465397277132745*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "+",
RowBox[{"3", "x"}], "+", "1"}], ")"}], "]"}], "-", "x"}], ",", "x",
",",
RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Sol", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465382722930299*^9, 3.465382732528009*^9}, {3.465382843138172*^9,
3.465382889955875*^9}, {3.465397098501164*^9, 3.465397099018414*^9}, {
3.46539730897676*^9, 3.465397310087743*^9}, {3.465397514534069*^9,
3.465397519550366*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(x\\^2 + \
\\(\\(3\\\\ x\\)\\) + 1\\) - x\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\
\\(x \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(TraditionalForm\\`\\(\\@\\(x\\^2\\) - x\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ \
x\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` `2` = `1` `3` = `1` `4` = `5`",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], -$CellContext`x + (1 +
3 $CellContext`x + $CellContext`x^2)^
Rational[1, 2], -$CellContext`x + ($CellContext`x^2)^
Rational[1, 2], (-2) $CellContext`x,
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46539731093865*^9, {3.465397515737733*^9, 3.465397519842808*^9},
3.465472658129613*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Exemple 6", "Titre2",
CellChangeTimes->{{3.4653973197430563`*^9, 3.46539732122191*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"l", "=",
RowBox[{"Limite", "[",
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"2", "x"}], "+", "5"}], ")"}], "]"}], "+", "x"}], ",", "x",
",",
RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Detail", "[", "l", "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.46538212709345*^9, 3.4653821455782146`*^9}, {
3.465382302231485*^9, 3.465382314070982*^9}, 3.465382433193037*^9, {
3.465382722930299*^9, 3.465382732528009*^9}, {3.465382843138172*^9,
3.465382889955875*^9}, {3.465397098501164*^9, 3.465397099018414*^9}, {
3.46539730897676*^9, 3.465397310087743*^9}, {3.4653973446352253`*^9,
3.465397377400538*^9}, {3.465397420402582*^9, 3.465397424050366*^9}, {
3.465397461355555*^9, 3.465397477442889*^9}, {3.465397533086294*^9,
3.465397538940974*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(5 - \\\\(\\\\(2\\\\\\\\ x\\\\)\\\
\\) + x\\\\^2\\\\) + x\\\\)\\\\)\\\"\\)\\) = [\\!\\(TraditionalForm\\`\
\[Infinity]\\)+(\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\))]\"\>",
StringForm["`1` = [`2`+(`3`)]",
analyse`Limite[
HoldForm[
Sqrt[5 - 2 $CellContext`x + $CellContext`x^2] + $CellContext`x], \
$CellContext`x,
DirectedInfinity[-1]],
DirectedInfinity[1],
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.465397539996234*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((\\@\\(5 - \\(\\(2\\\\ x\\)\\) + x\\^2\
\\) - x)\\)\\)\\\\ \\(\\((\\@\\(5 - \\(\\(2\\\\ x\\)\\) + x\\^2\\) + x)\\)\\)\
\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\@\\(5 - \\(\\(2\\\\ x\\)\\) + x\\^2\\) \
- x\\)\\)\\)\"\>",
StringForm[" = `1` \!\(`2`\/`3`\)",
Underscript["lim", $CellContext`x -> DirectedInfinity[-1]],
HoldForm[Sqrt[5 - 2 $CellContext`x + $CellContext`x^2] - $CellContext`x]
HoldForm[Sqrt[5 - 2 $CellContext`x + $CellContext`x^2] + $CellContext`x],
HoldForm[Sqrt[5 - 2 $CellContext`x + $CellContext`x^2] - $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.465397539998927*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(5 - \
\\(\\(2\\\\ x\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\@\\(5 - \\(\\(2\\\\ \
x\\)\\) + x\\^2\\) - x\\)\\)\\)\"\>",
StringForm[" = `1` \!\(`2`\/`3`\)",
Underscript["lim", $CellContext`x -> DirectedInfinity[-1]], 5 -
2 $CellContext`x,
HoldForm[Sqrt[5 - 2 $CellContext`x + $CellContext`x^2] - $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.465397540002372*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(5 - \
\\(\\(2\\\\ x\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\@\\(5 - \\(\\(2\\\\ \
x\\)\\) + x\\^2\\) - x\\)\\)\\)\"\>",
StringForm[" = `1` \!\(`2`\/`3`\)",
Underscript["lim", $CellContext`x -> DirectedInfinity[-1]], 5 -
2 $CellContext`x,
HoldForm[Sqrt[5 - 2 $CellContext`x + $CellContext`x^2] - $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.465397540004233*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ \
x\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\@\\(x\\^2\\) - x\\)\\)\\)\"\>",
StringForm[" = `1` \!\(`2`\/`3`\)",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (-2) $CellContext`x, -$CellContext`x + \
($CellContext`x^2)^Rational[1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.465397540006102*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ \
x\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\*TemplateBox[List[\\\"x\\\"], \
\\\"Abs\\\"] - x\\)\\)\\)\"\>",
StringForm[" = `1` \!\(`2`\/`3`\)",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (-2) $CellContext`x, -$CellContext`x +
Abs[$CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.465397540007852*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ \
x\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ x\\)\\)\\)\"\>",
StringForm[" = `1` \!\(`2`\/`3`\)",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (-2) $CellContext`x, (-2) $CellContext`x],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.465397494458293*^9, 3.46539754002322*^9}]
}, Open ]],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\\\\(x\\\\^2 - \
\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 5\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`1\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[$CellContext`x + (5 - 2 $CellContext`x + $CellContext`x^2)^
Rational[1, 2], $CellContext`x,
DirectedInfinity[-1]], 1],
Editable->False], TraditionalForm]], "Output",
CellChangeTimes->{3.465397069054475*^9, 3.465397185153528*^9,
3.4653973657134447`*^9, 3.465397548696505*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowToolbars->"EditBar",
WindowSize->{640, 750},
WindowMargins->{{Automatic, 495}, {Automatic, 40}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 129, 1, 47, "Subsubtitle"],
Cell[CellGroupData[{
Cell[721, 27, 221, 7, 52, "Section"],
Cell[CellGroupData[{
Cell[967, 38, 92, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[1084, 43, 720, 21, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[1829, 68, 652, 12, 58, "Print"],
Cell[2484, 82, 627, 12, 55, "Print"],
Cell[3114, 96, 416, 9, 55, "Print"],
Cell[3533, 107, 592, 13, 55, "Print"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[4186, 127, 94, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[4305, 132, 709, 20, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[5039, 156, 656, 13, 51, "Print"],
Cell[5698, 171, 839, 15, 57, "Print"],
Cell[6540, 188, 675, 12, 52, "Print"],
Cell[7218, 202, 680, 12, 52, "Print"],
Cell[7901, 216, 529, 10, 52, "Print"],
Cell[8433, 228, 721, 14, 52, "Print"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[9227, 250, 340, 9, 52, "Section"],
Cell[CellGroupData[{
Cell[9592, 263, 92, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[9709, 268, 635, 17, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[10369, 289, 587, 13, 45, "Print"],
Cell[10959, 304, 706, 22, 116, "Print"]
}, Open ]],
Cell[11680, 329, 2830, 46, 95, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[14559, 381, 95, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[14679, 386, 743, 19, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[15447, 409, 576, 12, 49, "Print"],
Cell[16026, 423, 774, 24, 118, "Print"]
}, Open ]],
Cell[16815, 450, 2834, 48, 101, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[19698, 504, 95, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[19818, 509, 699, 18, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[20542, 531, 605, 12, 55, "Print"],
Cell[21150, 545, 774, 24, 130, "Print"]
}, Open ]],
Cell[21939, 572, 2970, 50, 113, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[24958, 628, 93, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[25076, 633, 697, 17, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[25798, 654, 407, 9, 50, "Print"],
Cell[26208, 665, 514, 11, 50, "Print"],
Cell[26725, 678, 611, 20, 118, "Print"]
}, Open ]],
Cell[27351, 701, 2540, 44, 103, "Output"]
}, Open ]],
Cell[29906, 748, 44, 1, 4, "PageBreak",
PageBreakBelow->True]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[29999, 755, 291, 8, 49, "Section"],
Cell[30293, 765, 1153, 34, 58, "definition"],
Cell[CellGroupData[{
Cell[31471, 803, 95, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[31591, 808, 577, 16, 19, "Input",
CellOpen->False],
Cell[32171, 826, 1049, 17, 44, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[33269, 849, 146, 2, 39, "Titre2"],
Cell[CellGroupData[{
Cell[33440, 855, 706, 19, 19, "Input",
CellOpen->False],
Cell[34149, 876, 983, 18, 46, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[35181, 900, 197, 3, 39, "Titre2"],
Cell[CellGroupData[{
Cell[35403, 907, 745, 19, 19, "Input",
CellOpen->False],
Cell[36151, 928, 1005, 19, 47, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[37205, 953, 195, 3, 39, "Titre2"],
Cell[CellGroupData[{
Cell[37425, 960, 843, 21, 19, "Input",
CellOpen->False],
Cell[38271, 983, 1157, 21, 54, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[39477, 1010, 90, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[39592, 1015, 817, 20, 19, "Input",
CellOpen->False],
Cell[40412, 1037, 1108, 24, 43, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[41569, 1067, 94, 1, 39, "Titre2"],
Cell[CellGroupData[{
Cell[41688, 1072, 968, 22, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[42681, 1098, 797, 17, 43, "Print"],
Cell[43481, 1117, 856, 16, 72, "Print"],
Cell[44340, 1135, 619, 12, 56, "Print"],
Cell[44962, 1149, 619, 12, 56, "Print"],
Cell[45584, 1163, 567, 12, 56, "Print"],
Cell[46154, 1177, 588, 13, 46, "Print"],
Cell[46745, 1192, 534, 11, 44, "Print"]
}, Open ]],
Cell[47294, 1206, 723, 14, 50, "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)