(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 27247, 776] NotebookOptionsPosition[ 25718, 721] NotebookOutlinePosition[ 26109, 738] CellTagsIndexPosition[ 26066, 735] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Calcul de limites", "Section"], Cell[CellGroupData[{ Cell["Calculer les limites suivantes", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "+", "4"}], "]"}], "-", "2"}], ")"}], "/", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "x"}], "+", "1"}], "]"}], "-", "3"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "9"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "x", "]"}], "-", RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Sqrt", "[", RowBox[{"1", "-", "x"}], "]"}]}], ")"}], "/", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "+", "3"}], "]"}], "-", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "+", "2"}], "]"}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"3", "x"}], "-", "2"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"Sqrt", "[", RowBox[{"x", "+", "3"}], "]"}]}], ")"}], "/", RowBox[{"Sqrt", "[", RowBox[{"x", "-", "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "+", "2"}], "]"}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"2", "x"}], "+", "1"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "+", "3"}], "]"}], "-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"3", "x"}], "+", "1"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"x", "+", "1"}], "]"}], "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "x", "]"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"lim", "[", "n", "]"}], "=", RowBox[{"Limite", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "a"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"lim", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.434082659368475*^9, 3.434082762775196*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(x + 4\\) - 2\\)\\/x\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 0], $CellContext`x^(-1) (-2 + (4 + $CellContext`x)^Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[1, ") ", analyse`Limite[$CellContext`x^(-1) (-2 + (4 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082763975596*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 4\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(\\(\\(2\\\\ x\\)\\) + 1\\) - \ 3\\)\\/\\(x - 4\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 4], (-4 + $CellContext`x)^(-1) (-3 + (1 + 2 $CellContext`x)^ Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[2, ") ", analyse`Limite[(-4 + $CellContext`x)^(-1) (-3 + (1 + 2 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 4]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764003227*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 3\\)\\) \\!\\(TraditionalForm\\`\\(x\\^2 - 9\\)\\/\\(\\@x - \ \\@3\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 3], (-3^Rational[1, 2] + $CellContext`x^ Rational[1, 2])^(-1) (-9 + $CellContext`x^2)], Editable->False], TraditionalForm]}], SequenceForm[3, ") ", analyse`Limite[(-3^Rational[1, 2] + $CellContext`x^ Rational[1, 2])^(-1) (-9 + $CellContext`x^2), $CellContext`x, 3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340827640387793`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \\!\\(TraditionalForm\\`\\(1 - \\@\\(1 - x\\)\\)\\/x\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 0], (1 - (1 - $CellContext`x)^ Rational[1, 2])/$CellContext`x], Editable->False], TraditionalForm]}], SequenceForm[4, ") ", analyse`Limite[(1 - (1 - $CellContext`x)^ Rational[1, 2])/$CellContext`x, $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764069851*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(x + 3\\) - 2\\)\\/\\(x - \ 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^(-1) (-2 + (3 + $CellContext`x)^ Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[5, ") ", analyse`Limite[(-1 + $CellContext`x)^(-1) (-2 + (3 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764103499*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 2\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(x + 2\\) - \\@\\(\\(\\(3\\\\ \ x\\)\\) - 2\\)\\)\\/\\(x - 2\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 2], (-2 + $CellContext`x)^(-1) ((2 + $CellContext`x)^ Rational[1, 2] - (-2 + 3 $CellContext`x)^Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[6, ") ", analyse`Limite[(-2 + $CellContext`x)^(-1) ((2 + $CellContext`x)^ Rational[1, 2] - (-2 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764137002*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(2 - \\@\\(x + 3\\)\\)\\/\\@\\(x - \ 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x)^Rational[-1, 2] ( 2 - (3 + $CellContext`x)^Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[7, ") ", analyse`Limite[(-1 + $CellContext`x)^Rational[-1, 2] ( 2 - (3 + $CellContext`x)^Rational[1, 2]), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764173418*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(x + 2\\) - \\@\\(\\(\\(2\\\\ \ x\\)\\) + 1\\)\\)\\/\\(\\@\\(x + 3\\) - \\@\\(\\(\\(3\\\\ x\\)\\) + \ 1\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], ((2 + $CellContext`x)^Rational[1, 2] - (1 + 2 $CellContext`x)^ Rational[1, 2])/((3 + $CellContext`x)^Rational[1, 2] - (1 + 3 $CellContext`x)^Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[8, ") ", analyse`Limite[((2 + $CellContext`x)^Rational[1, 2] - (1 + 2 $CellContext`x)^Rational[1, 2])/((3 + $CellContext`x)^ Rational[1, 2] - (1 + 3 $CellContext`x)^Rational[1, 2]), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764205072*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \\!\\(TraditionalForm\\`x\\/\\(\\@\\(x + 1\\) - 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 0], $CellContext`x/(-1 + (1 + $CellContext`x)^ Rational[1, 2])], Editable->False], TraditionalForm]}], SequenceForm[9, ") ", analyse`Limite[$CellContext`x/(-1 + (1 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082764236451*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\@x - 1\\)\\/\\(x - 1\\)\\)\"\>", StringForm["`1` `2`", Underscript[ "lim", $CellContext`x -> 1], (-1 + $CellContext`x^Rational[1, 2])/(-1 + $CellContext`x)], Editable->False], TraditionalForm]}], SequenceForm[10, ") ", analyse`Limite[(-1 + $CellContext`x^ Rational[1, 2])/(-1 + $CellContext`x), $CellContext`x, 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408276427774*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"lim", "[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.4340828095881567`*^9, 3.434082845284401*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 0\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 4\\\\) - \ 2\\\\)\\\\/x\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/4\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) (-2 + (4 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 0], Rational[1, 4]], Editable->False]}], SequenceForm[1, ") ", StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) (-2 + (4 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 0], Rational[1, 4]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082846413527*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 4\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(2\\\\\\\\ \ x\\\\)\\\\) + 1\\\\) - 3\\\\)\\\\/\\\\(x - 4\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`1\\/3\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-4 + $CellContext`x)^(-1) (-3 + (1 + 2 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 4], Rational[1, 3]], Editable->False]}], SequenceForm[2, ") ", StringForm["`1` = `2`", analyse`Limite[(-4 + $CellContext`x)^(-1) (-3 + (1 + 2 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 4], Rational[1, 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340828464462643`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 3\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\^2 - \ 9\\\\)\\\\/\\\\(\\\\@x - \\\\@3\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(12\\\\ \\@3\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-3^Rational[1, 2] + $CellContext`x^ Rational[1, 2])^(-1) (-9 + $CellContext`x^2), $CellContext`x, 3], 12 3^Rational[1, 2]], Editable->False]}], SequenceForm[3, ") ", StringForm["`1` = `2`", analyse`Limite[(-3^Rational[1, 2] + $CellContext`x^ Rational[1, 2])^(-1) (-9 + $CellContext`x^2), $CellContext`x, 3], 12 3^Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340828466008167`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 0\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(1 - \\\\@\\\\(1 - \ x\\\\)\\\\)\\\\/x\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/2\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(1 - (1 - $CellContext`x)^ Rational[1, 2])/$CellContext`x, $CellContext`x, 0], Rational[1, 2]], Editable->False]}], SequenceForm[4, ") ", StringForm["`1` = `2`", analyse`Limite[(1 - (1 - $CellContext`x)^ Rational[1, 2])/$CellContext`x, $CellContext`x, 0], Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340828466652*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 3\\\\) - \ 2\\\\)\\\\/\\\\(x - 1\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`1\\/4\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) (-2 + (3 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 1], Rational[1, 4]], Editable->False]}], SequenceForm[5, ") ", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^(-1) (-2 + (3 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 1], Rational[1, 4]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43408284670531*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 2\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 2\\\\) - \\\\@\\\ \\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) - 2\\\\)\\\\)\\\\/\\\\(x - 2\\\\)\\\\)\\\"\ \\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-2 + $CellContext`x)^(-1) ((2 + $CellContext`x)^ Rational[1, 2] - (-2 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 2], Rational[-1, 2]], Editable->False]}], SequenceForm[6, ") ", StringForm["`1` = `2`", analyse`Limite[(-2 + $CellContext`x)^(-1) ((2 + $CellContext`x)^ Rational[1, 2] - (-2 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 2], Rational[-1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082846800173*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(2 - \\\\@\\\\(x + \ 3\\\\)\\\\)\\\\/\\\\@\\\\(x - 1\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^Rational[-1, 2] ( 2 - (3 + $CellContext`x)^Rational[1, 2]), $CellContext`x, 1], 0], Editable->False]}], SequenceForm[7, ") ", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x)^Rational[-1, 2] ( 2 - (3 + $CellContext`x)^Rational[1, 2]), $CellContext`x, 1], 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082846857769*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(x + 2\\\\) - \\\\@\\\ \\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 1\\\\)\\\\)\\\\/\\\\(\\\\@\\\\(x + \ 3\\\\) - \\\\@\\\\(\\\\(\\\\(3\\\\\\\\ x\\\\)\\\\) + \ 1\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/\\@3\\)\"\>", StringForm["`1` = `2`", analyse`Limite[((2 + $CellContext`x)^Rational[1, 2] - (1 + 2 $CellContext`x)^Rational[1, 2])/((3 + $CellContext`x)^ Rational[1, 2] - (1 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 1], 3^Rational[-1, 2]], Editable->False]}], SequenceForm[8, ") ", StringForm["`1` = `2`", analyse`Limite[((2 + $CellContext`x)^Rational[1, 2] - (1 + 2 $CellContext`x)^Rational[1, 2])/((3 + $CellContext`x)^ Rational[1, 2] - (1 + 3 $CellContext`x)^ Rational[1, 2]), $CellContext`x, 1], 3^Rational[-1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082847074588*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 0\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`x\\\\/\\\\(\\\\@\\\\(x + 1\\\\) - 1\ \\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`2\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x/(-1 + (1 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 0], 2], Editable->False]}], SequenceForm[9, ") ", StringForm["`1` = `2`", analyse`Limite[$CellContext`x/(-1 + (1 + $CellContext`x)^ Rational[1, 2]), $CellContext`x, 0], 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4340828471582947`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@x - 1\\\\)\\\\/\\\\(x - 1\ \\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\/2\\)\"\>", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x^ Rational[1, 2])/(-1 + $CellContext`x), $CellContext`x, 1], Rational[1, 2]], Editable->False]}], SequenceForm[10, ") ", StringForm["`1` = `2`", analyse`Limite[(-1 + $CellContext`x^ Rational[1, 2])/(-1 + $CellContext`x), $CellContext`x, 1], Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.434082847218224*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{915, 928}, WindowMargins->{{128, Automatic}, {Automatic, 3}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 36, 0, 44, "Section"], Cell[CellGroupData[{ Cell[651, 27, 52, 0, 39, "Subsection"], Cell[CellGroupData[{ Cell[728, 31, 7030, 236, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[7783, 271, 718, 17, 48, "Print"], Cell[8504, 290, 776, 19, 48, "Print"], Cell[9283, 311, 777, 19, 50, "Print"], Cell[10063, 332, 705, 17, 48, "Print"], Cell[10771, 351, 754, 19, 48, "Print"], Cell[11528, 372, 864, 20, 48, "Print"], Cell[12395, 394, 766, 18, 53, "Print"], Cell[13164, 414, 1024, 23, 53, "Print"], Cell[14191, 439, 707, 17, 45, "Print"], Cell[14901, 458, 711, 17, 47, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15673, 482, 31, 0, 39, "Subsection"], Cell[CellGroupData[{ Cell[15729, 486, 372, 10, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[16126, 500, 887, 19, 48, "Print"], Cell[17016, 521, 953, 20, 48, "Print"], Cell[17972, 543, 962, 20, 50, "Print"], Cell[18937, 565, 871, 19, 48, "Print"], Cell[19811, 586, 916, 20, 48, "Print"], Cell[20730, 608, 1076, 22, 48, "Print"], Cell[21809, 632, 897, 18, 53, "Print"], Cell[22709, 652, 1236, 23, 53, "Print"], Cell[23948, 677, 834, 17, 45, "Print"], Cell[24785, 696, 881, 19, 47, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)