(* 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[ 49373, 1276] NotebookOptionsPosition[ 47328, 1209] NotebookOutlinePosition[ 47725, 1226] CellTagsIndexPosition[ 47682, 1223] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Exercices: Calcul de limites vers l'infini", "Section", CellChangeTimes->{{3.465381688423677*^9, 3.465381705359136*^9}}], Cell[CellGroupData[{ Cell["Calculer", "Titre2", CellChangeTimes->{{3.4653817163687696`*^9, 3.465381717382751*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"3", "x"}], "+", "5"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], "-", "x", "+", "3"}], ")"}]}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"3", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"5", RowBox[{"x", "^", "2"}]}], "-", "3"}], ")"}]}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "3"}], ")"}], "/", RowBox[{"(", RowBox[{"4", "-", RowBox[{"3", "x"}]}], ")"}]}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"5", RowBox[{"x", "^", "2"}]}], "-", "x", "+", "3"}], ")"}], "/", RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", "x"}]}], ")"}]}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"3", "x"}], "+", "5"}]], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", SqrtBox[ RowBox[{"x", "-", "1"}]]}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", SqrtBox[ RowBox[{"x", "-", "1"}]]}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "1"}], ")"}], "/", SqrtBox[ RowBox[{ RowBox[{"x", "^", "2"}], "+", "x", "+", "2"}]]}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "1"}], ")"}], "/", SqrtBox[ RowBox[{ RowBox[{"x", "^", "2"}], "+", "x", "+", "2"}]]}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"2", "x"}], "-", "1"}]], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], ")"}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "1"}], ")"}], "/", SqrtBox[ RowBox[{"3", "-", "x"}]]}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "-", "x", "+", "6"}]], "+", "x"}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"3", "x"}], "+", "1"}]], "-", "x"}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"3", "x"}], "+", "1"}]], "-", "x"}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"3", "x"}], "+", "2"}]], "+", RowBox[{"2", "x"}]}], ",", "x", ",", RowBox[{"-", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"3", "x"}], "+", "2"}]], "+", RowBox[{"2", "x"}]}], ",", "x", ",", RowBox[{"+", "\[Infinity]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"l", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.465377640056492*^9, 3.465377686039814*^9}, { 3.465380952004361*^9, 3.4653810287000103`*^9}, {3.465381126319099*^9, 3.465381172395159*^9}, {3.465381253329496*^9, 3.465381562315158*^9}, { 3.465381657544038*^9, 3.465381673961266*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - \\(\ \\(3\\\\ x\\)\\) + 5\\)\\/\\(\\(\\(3\\\\ x\\^2\\)\\) - x + 3\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (5 - 3 $CellContext`x + $CellContext`x^2)/(3 - $CellContext`x + 3 $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[1, ") ", analyse`Limite[(5 - 3 $CellContext`x + $CellContext`x^2)/( 3 - $CellContext`x + 3 $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741206059*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(2 - \\(\\(3\\\\ x\\)\\)\\)\\/\\(\\(\\(5\\\\ \ x\\^2\\)\\) - 3\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], (2 - 3 $CellContext`x)/(-3 + 5 $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[2, ") ", analyse`Limite[(2 - 3 $CellContext`x)/(-3 + 5 $CellContext`x^2), $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741209059*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\/\\(4 - \\(\\(3\\\\ \ x\\)\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], (4 - 3 $CellContext`x)^(-1) (-3 + 2 $CellContext`x)], Editable->False], TraditionalForm]}], SequenceForm[3, ") ", analyse`Limite[(4 - 3 $CellContext`x)^(-1) (-3 + 2 $CellContext`x), $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.4653817412122593`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(5\\\\ \ x\\^2\\)\\) - x + 3\\)\\/\\(\\(\\(4\\\\ x\\)\\) + 3\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (3 + 4 $CellContext`x)^(-1) ( 3 - $CellContext`x + 5 $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[4, ") ", analyse`Limite[(3 + 4 $CellContext`x)^(-1) (3 - $CellContext`x + 5 $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741215334*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\@\\(\\(\\(4\\\\ x\\^2\\)\\) - \\(\\(3\\\\ x\\)\\) + \ 5\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (5 - 3 $CellContext`x + 4 $CellContext`x^2)^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[5, ") ", analyse`Limite[(5 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741218224*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ \ x\\)\\) + \\@\\(x - 1\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (-1 + $CellContext`x)^ Rational[1, 2] + 2 $CellContext`x], Editable->False], TraditionalForm]}], SequenceForm[6, ") ", analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x, $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.4653817412213793`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) + \\@\\(x - 1\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], (-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x], Editable->False], TraditionalForm]}], SequenceForm[7, ") ", analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x, $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741224279*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\)\\) - 1\\)\\/\\@\\(x\\^2 + x + \ 2\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], (-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2]], Editable->False], TraditionalForm]}], SequenceForm[8, ") ", analyse`Limite[(-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741227397*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ \ x\\)\\) - 1\\)\\/\\@\\(x\\^2 + x + 2\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2]], Editable->False], TraditionalForm]}], SequenceForm[9, ") ", analyse`Limite[(-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741230654*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\@\\(\\(\\(2\\\\ x\\)\\) - 1\\)\\/\\(x + 1\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], (1 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x)^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[10, ") ", analyse`Limite[(1 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x)^ Rational[1, 2], $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.4653817412339067`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ \ x\\)\\) - 1\\)\\/\\@\\(3 - x\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], (3 - $CellContext`x)^ Rational[-1, 2] (-1 + 3 $CellContext`x)], Editable->False], TraditionalForm]}], SequenceForm[11, ") ", analyse`Limite[(3 - $CellContext`x)^Rational[-1, 2] (-1 + 3 $CellContext`x), $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.46538174123765*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(x + \ \\@\\(\\(\\(2\\\\ x\\^2\\)\\) - x + 6\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], $CellContext`x + (6 - $CellContext`x + 2 $CellContext`x^2)^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[12, ") ", analyse`Limite[$CellContext`x + (6 - $CellContext`x + 2 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741240869*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(\\@\\(x\\^2 - \\(\\(3\\\\ x\\)\\) + 1\\) - x\\)\\)\ \"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], -$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[13, ") ", analyse`Limite[-$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.4653817412583933`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(x\\^2 \ - \\(\\(3\\\\ x\\)\\) + 1\\) - x\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> DirectedInfinity[-1]], -$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[14, ") ", analyse`Limite[-$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741286436*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ \ x\\)\\) + \\@\\(\\(\\(4\\\\ x\\^2\\)\\) - \\(\\(3\\\\ x\\)\\) + \ 2\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> DirectedInfinity[-1]], 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[15, ") ", analyse`Limite[ 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.4653817413199863`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) + \\@\\(\\(\\(4\\\\ \ x\\^2\\)\\) - \\(\\(3\\\\ x\\)\\) + 2\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[16, ") ", analyse`Limite[ 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.465380986585478*^9, {3.465381023606462*^9, 3.465381029221367*^9}, { 3.465381157574049*^9, 3.465381173023924*^9}, 3.465381266914701*^9, { 3.465381304548134*^9, 3.465381333928677*^9}, {3.465381378552505*^9, 3.465381453827507*^9}, 3.4653814919311953`*^9, {3.465381551148979*^9, 3.465381562943664*^9}, 3.465381674457114*^9, 3.465381741353984*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Titre3", CellChangeTimes->{{3.465381725992803*^9, 3.465381728039452*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"l", "[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.465381567587831*^9, 3.465381607301939*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\ \\^2 - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 5\\\\)\\\\/\\\\(\\\\(\\\\(3\\\\\\\\ \ x\\\\^2\\\\)\\\\) - x + 3\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/3\ \\)\"\>", StringForm["`1` = `2`", analyse`Limite[(5 - 3 $CellContext`x + $CellContext`x^2)/( 3 - $CellContext`x + 3 $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]], Rational[1, 3]], Editable->False]}], SequenceForm[1, ") ", StringForm["`1` = `2`", analyse`Limite[(5 - 3 $CellContext`x + $CellContext`x^2)/( 3 - $CellContext`x + 3 $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]], Rational[1, 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741459433*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(2 - \\\\(\\\\(3\\\\\\\\ \ x\\\\)\\\\)\\\\)\\\\/\\\\(\\\\(\\\\(5\\\\\\\\ x\\\\^2\\\\)\\\\) - 3\\\\)\\\\)\ \\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(2 - 3 $CellContext`x)/(-3 + 5 $CellContext`x^2), $CellContext`x, DirectedInfinity[1]], 0], Editable->False]}], SequenceForm[2, ") ", StringForm["`1` = `2`", analyse`Limite[(2 - 3 $CellContext`x)/(-3 + 5 $CellContext`x^2), $CellContext`x, DirectedInfinity[1]], 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741483391*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\ \\)\\\\) - 3\\\\)\\\\/\\\\(4 - \\\\(\\\\(3\\\\\\\\ \ x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\\(\\(2\\/3\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(4 - 3 $CellContext`x)^(-1) (-3 + 2 $CellContext`x), $CellContext`x, DirectedInfinity[1]], Rational[-2, 3]], Editable->False]}], SequenceForm[3, ") ", StringForm["`1` = `2`", analyse`Limite[(4 - 3 $CellContext`x)^(-1) (-3 + 2 $CellContext`x), $CellContext`x, DirectedInfinity[1]], Rational[-2, 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741518444*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(5\\\\\\\\ x\\\\^2\\\\)\\\\) - x \ + 3\\\\)\\\\/\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\)\\\\) + 3\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(3 + 4 $CellContext`x)^(-1) (3 - $CellContext`x + 5 $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]], DirectedInfinity[-1]], Editable->False]}], SequenceForm[4, ") ", StringForm["`1` = `2`", analyse`Limite[(3 + 4 $CellContext`x)^(-1) (3 - $CellContext`x + 5 $CellContext`x^2), $CellContext`x, DirectedInfinity[-1]], DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741552855*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\^2\\\\)\\\\) \ - \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 5\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\ \\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(5 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False]}], SequenceForm[5, ") ", StringForm["`1` = `2`", analyse`Limite[(5 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.4653817415846148`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + \ \\\\@\\\\(x - 1\\\\)\\\\)\\\\)\\\"\\)\\) \[NotExists]\"\>", StringForm["`1` `2`", analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x, $CellContext`x, DirectedInfinity[-1]], "\[NotExists]"], Editable->False]}], SequenceForm[6, ") ", StringForm["`1` `2`", analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x, $CellContext`x, DirectedInfinity[-1]], "\[NotExists]"]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741604043*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\ \\)\\\\) + \\\\@\\\\(x - 1\\\\)\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\ \\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x, $CellContext`x, DirectedInfinity[1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False]}], SequenceForm[7, ") ", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^Rational[1, 2] + 2 $CellContext`x, $CellContext`x, DirectedInfinity[1]], StringForm["+`1`", DirectedInfinity[1]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741636652*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ x\\\ \\)\\\\) - 1\\\\)\\\\/\\\\@\\\\(x\\\\^2 + x + 2\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`3\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[1]], 3], Editable->False]}], SequenceForm[8, ") ", StringForm["`1` = `2`", analyse`Limite[(-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[1]], 3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741670528*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 1\\\\)\\\ \\/\\\\@\\\\(x\\\\^2 + x + 2\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-3\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]], -3], Editable->False]}], SequenceForm[9, ") ", StringForm["`1` = `2`", analyse`Limite[(-1 + 3 $CellContext`x) (2 + $CellContext`x + $CellContext`x^2)^ Rational[-1, 2], $CellContext`x, DirectedInfinity[-1]], -3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741702819*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) - 1\\\ \\)\\\\/\\\\(x + 1\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x)^ Rational[1, 2], $CellContext`x, DirectedInfinity[1]], 0], Editable->False]}], SequenceForm[10, ") ", StringForm["`1` = `2`", analyse`Limite[(1 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x)^ Rational[1, 2], $CellContext`x, DirectedInfinity[1]], 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.4653817417366753`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 1\\\\)\\\ \\/\\\\@\\\\(3 - x\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`\\(-\ \[Infinity]\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(3 - $CellContext`x)^Rational[-1, 2] (-1 + 3 $CellContext`x), $CellContext`x, DirectedInfinity[-1]], DirectedInfinity[-1]], Editable->False]}], SequenceForm[11, ") ", StringForm["`1` = `2`", analyse`Limite[(3 - $CellContext`x)^Rational[-1, 2] (-1 + 3 $CellContext`x), $CellContext`x, DirectedInfinity[-1]], DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741769198*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x + \ \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\^2\\\\)\\\\) - x + 6\\\\)\\\\)\\\\)\\\"\\)\ \\) = \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[\ Infinity]\\\\)\\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x + (6 - $CellContext`x + 2 $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False]}], SequenceForm[12, ") ", StringForm["`1` = `2`", analyse`Limite[$CellContext`x + (6 - $CellContext`x + 2 $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.4653817418027163`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 - \ \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 1\\\\) - x\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\\(\\(3\\/2\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[-$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[1]], Rational[-3, 2]], Editable->False]}], SequenceForm[13, ") ", StringForm["`1` = `2`", analyse`Limite[-$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[1]], Rational[-3, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741836864*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x\\\\^2 - \\\\(\\\\(3\\\\\\\\ \ x\\\\)\\\\) + 1\\\\) - x\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\ \\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[-$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False]}], SequenceForm[14, ") ", StringForm["`1` = `2`", analyse`Limite[-$CellContext`x + (1 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], StringForm["+`1`", DirectedInfinity[1]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741870049*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + \ \\\\@\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\^2\\\\)\\\\) - \\\\(\\\\(3\\\\\\\\ \ x\\\\)\\\\) + 2\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`3\\/4\\)\"\ \>", StringForm["`1` = `2`", analyse`Limite[ 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], Rational[3, 4]], Editable->False]}], SequenceForm[15, ") ", StringForm["`1` = `2`", analyse`Limite[ 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[-1]], Rational[3, 4]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.465381741925712*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(2\\\\\\\\ x\\\ \\)\\\\) + \\\\@\\\\(\\\\(\\\\(4\\\\\\\\ x\\\\^2\\\\)\\\\) - \ \\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + 2\\\\)\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\ \\\"\\)\"\>", StringForm["`1` = `2`", analyse`Limite[ 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[1]], StringForm["+`1`", DirectedInfinity[1]]], Editable->False]}], SequenceForm[16, ") ", StringForm["`1` = `2`", analyse`Limite[ 2 $CellContext`x + (2 - 3 $CellContext`x + 4 $CellContext`x^2)^ Rational[1, 2], $CellContext`x, DirectedInfinity[1]], StringForm["+`1`", DirectedInfinity[1]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.465381608415413*^9, 3.465381677737591*^9, 3.4653817419544697`*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 606}, {Automatic, 12}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, 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, 127, 1, 44, "Section"], Cell[CellGroupData[{ Cell[719, 27, 94, 1, 39, "Titre2"], Cell[CellGroupData[{ Cell[838, 32, 8337, 279, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[9200, 315, 1223, 25, 49, "Print"], Cell[10426, 342, 1189, 25, 46, "Print"], Cell[11618, 369, 1195, 25, 44, "Print"], Cell[12816, 396, 1189, 25, 47, "Print"], Cell[14008, 423, 1148, 25, 43, "Print"], Cell[15159, 450, 1126, 24, 41, "Print"], Cell[16288, 476, 1178, 24, 41, "Print"], Cell[17469, 502, 1258, 27, 56, "Print"], Cell[18730, 531, 1201, 26, 56, "Print"], Cell[19934, 559, 1207, 24, 48, "Print"], Cell[21144, 585, 1140, 24, 48, "Print"], Cell[22287, 611, 1181, 25, 43, "Print"], Cell[23471, 638, 1234, 25, 43, "Print"], Cell[24708, 665, 1184, 25, 43, "Print"], Cell[25895, 692, 1224, 26, 43, "Print"], Cell[27122, 720, 1285, 27, 43, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28456, 753, 93, 1, 28, "Titre3"], Cell[CellGroupData[{ Cell[28574, 758, 368, 10, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[28967, 772, 1138, 24, 49, "Print"], Cell[30108, 798, 1060, 22, 46, "Print"], Cell[31171, 822, 1128, 25, 44, "Print"], Cell[32302, 849, 1127, 24, 47, "Print"], Cell[33432, 875, 1185, 27, 43, "Print"], Cell[34620, 904, 993, 21, 41, "Print"], Cell[35616, 927, 1200, 27, 41, "Print"], Cell[36819, 956, 1120, 24, 56, "Print"], Cell[37942, 982, 1080, 24, 56, "Print"], Cell[39025, 1008, 1067, 22, 48, "Print"], Cell[40095, 1032, 1076, 24, 48, "Print"], Cell[41174, 1058, 1203, 26, 43, "Print"], Cell[42380, 1086, 1163, 25, 44, "Print"], Cell[43546, 1113, 1213, 28, 43, "Print"], Cell[44762, 1143, 1164, 27, 44, "Print"], Cell[45929, 1172, 1335, 30, 43, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)