(* 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[ 41804, 999]
NotebookOptionsPosition[ 39392, 916]
NotebookOutlinePosition[ 39764, 932]
CellTagsIndexPosition[ 39721, 929]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["\<\
Calculer les limites aux bords du domaine de d\[EAcute]finition\
\>", "Section",
CellChangeTimes->{{3.466132282198125*^9, 3.4661322912682867`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"<<", "limites.m"}], ";"}], "\[IndentingNewLine]",
RowBox[{"Limites", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"5", "x"}], "+", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"7", "x"}], "+", "6"}], ")"}]}], ",", "x"}], "]"}]}], "Input",
CellOpen->False,
CellChangeTimes->{{3.466090779017633*^9, 3.466090828121615*^9}, {
3.4660911866021557`*^9, 3.466091187850016*^9}, {3.46609206666354*^9,
3.4660920877102833`*^9}, {3.466132039392255*^9, 3.466132048754236*^9}, {
3.466132561758897*^9, 3.466132563078538*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
FrameBox[
InterpretationBox["\<\"f(x) = \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\
\\)\\) - \\(\\(5\\\\ x\\)\\) + 2\\)\\/\\(x\\^2 - \\(\\(7\\\\ x\\)\\) + \
6\\)\\)\"\>",
StringForm[
"f(x) = `1`", (6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (2 -
5 $CellContext`x + 3 $CellContext`x^2)],
Editable->False],
StripOnInput->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133123861333*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`1\\),\\!\\(TraditionalForm\\`6\\)}\"\>",
StringForm["`1` \\ {`2`,`3`}", Reals, 1, 6],
Editable->False],
TraditionalForm]}],
SequenceForm["Dom f = ",
analyse`Ens[
Or[$CellContext`x < 1,
Inequality[1, Less, $CellContext`x, Less, 6], $CellContext`x >
6], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.4661331238643513`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\
\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - \\(\\(5\\\\ \
x\\)\\) + 2\\)\\/\\(x\\^2 - \\(\\(7\\\\ x\\)\\) + 6\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
1], (6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (2 - 5 $CellContext`x +
3 $CellContext`x^2), 0, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133123895301*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((x - 1)\\)\\)\\\\ \
\\(\\((\\(\\(3\\\\ x\\)\\) - \
2)\\)\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((x - 6)\\)\\)\\\\ \\(\\((x \
- 1)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x -> 1], (-1 + $CellContext`x) (-2 +
3 $CellContext`x), (-6 + $CellContext`x) (-1 + $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133123898628*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\)\\) - 2\\)\\/\\(x \
- 6\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript[
"lim", $CellContext`x -> 1], (-6 + $CellContext`x)^(-1) (-2 +
3 $CellContext`x)],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133123901823*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
1\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(3\\\\\\\\ \
x\\\\)\\\\) - 2\\\\)\\\\/\\\\(x - 6\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/5\\)\\)\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-6 + $CellContext`x)^(-1) (-2 +
3 $CellContext`x), $CellContext`x, 1],
Rational[-1, 5]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133123905531*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 6\
\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - \\(\\(5\\\\ \
x\\)\\) + 2\\)\\/\\(x\\^2 - \\(\\(7\\\\ x\\)\\) + 6\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`80\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
6], (6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (2 - 5 $CellContext`x +
3 $CellContext`x^2), 80, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.4661331239090757`*^9}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
FractionBox["2", "3"], " ", "1", " ", "6", " "},
{
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"5", " ", "x"}], "+", "2"}], "+", "0", "-", "0", "+", "+", "+"},
{
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"7", " ", "x"}], "+", "6"}], "+", "+", "+", "0", "-", "0", "+"},
{
FractionBox[
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"5", " ", "x"}], "+", "2"}],
RowBox[{
SuperscriptBox["x", "2"], "-",
RowBox[{"7", " ", "x"}], "+", "6"}]], "+", "0", "-", "|", "-", "|",
"+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133123984359*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^\
2 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(7\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(5\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(x\\\\\\\\\\\\\\\\^\
2 - \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(7\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) + \
6\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (2 -
5 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, 6, -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (2 -
5 $CellContext`x + 3 $CellContext`x^2), $CellContext`x, 6, 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133124013723*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - \\(\\(5\\\\ x\\)\\) + \
2\\)\\/\\(x\\^2 - \\(\\(7\\\\ x\\)\\) + 6\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(3\\\\ \
x\\^2\\)\\)\\/\\!\\(TraditionalForm\\`x\\^2\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`3\\) = \\!\\(TraditionalForm\\`3\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript["lim", $CellContext`x -> StringForm["+`1`",
DirectedInfinity[1]]], (6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (
2 - 5 $CellContext`x + 3 $CellContext`x^2),
3 $CellContext`x^2, $CellContext`x^2, 3, 3],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.466133124018549*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ \
x\\^2\\)\\) - \\(\\(5\\\\ x\\)\\) + 2\\)\\/\\(x\\^2 - \\(\\(7\\\\ x\\)\\) + 6\
\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(3\\\\ \
x\\^2\\)\\)\\/\\!\\(TraditionalForm\\`x\\^2\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`3\\) = \
\\!\\(TraditionalForm\\`3\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (6 - 7 $CellContext`x + $CellContext`x^2)^(-1) (2 -
5 $CellContext`x + 3 $CellContext`x^2),
3 $CellContext`x^2, $CellContext`x^2, 3, 3],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.46609209367141*^9, 3.466132041280982*^9, 3.466132085812606*^9, {
3.466132192297648*^9, 3.466132217785802*^9}, 3.466132257233183*^9,
3.4661323350735617`*^9, 3.466132371455625*^9, 3.46613240223417*^9,
3.4661325148421173`*^9, 3.466132936785212*^9, 3.4661331240534573`*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Limites", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"4", "x"}], "+", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"2", "x"}], "-", "3"}], ")"}]}], ",", "x"}], "]"}]], "Input",
CellOpen->False,
CellChangeTimes->{{3.466135826356513*^9, 3.4661358418393993`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
FrameBox[
InterpretationBox["\<\"f(x) = \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\
\\)\\) - \\(\\(4\\\\ x\\)\\) + 1\\)\\/\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\)\"\>",
StringForm[
"f(x) = `1`", (-3 + 2 $CellContext`x)^(-1) (1 - 4 $CellContext`x +
3 $CellContext`x^2)],
Editable->False],
StripOnInput->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.4661358424396276`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\
\[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \
{\\!\\(TraditionalForm\\`3\\/2\\)}\"\>",
StringForm["`1` \\ {`2`}", Reals,
Rational[3, 2]],
Editable->False],
TraditionalForm]}],
SequenceForm["Dom f = ",
analyse`Ens[
Or[$CellContext`x < Rational[3, 2], $CellContext`x >
Rational[3, 2]], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.466135842443968*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 3\
\\/2\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - \\(\\(4\\\\ x\
\\)\\) + 1\\)\\/\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`7\\/4\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>\
",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x -> Rational[3, 2]], (-3 + 2 $CellContext`x)^(-1) (1 -
4 $CellContext`x + 3 $CellContext`x^2),
Rational[7, 4], 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.466135842481015*^9}}],
Cell[BoxData[
FormBox[
TagBox[GridBox[{
{"x", " ",
FractionBox["1", "3"], " ", "1", " ",
FractionBox["3", "2"], " "},
{
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"4", " ", "x"}], "+", "1"}], "+", "0", "-", "0", "+", "+", "+"},
{
RowBox[{
RowBox[{"2", " ", "x"}], "-", "3"}], "-", "-", "-", "-", "-", "0", "+"},
{
FractionBox[
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["x", "2"]}], "-",
RowBox[{"4", " ", "x"}], "+", "1"}],
RowBox[{
RowBox[{"2", " ", "x"}], "-", "3"}]], "-", "0", "+", "0", "-", "|",
"+"}
},
GridBoxDividers->{
"Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}},
"RowsIndexed" -> {}}],
DisplayForm], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.466135842545205*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \
\\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\"<\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\
\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\) - \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\[Infinity]\\\\\\\\)\\\\\\\
\\)\\\\\\\"\\\", \\\"\\\\\\\" \\\\\\\"\\\"}, \
{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\
TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\
TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\
\\\\\\\\\\\\\\[Rule] \
3\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\">\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(3\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \
x\\\\\\\\\\\\\\\\^2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) - \\\\\\\\\\\\\\\\(\\\\\
\\\\\\\\\\\\(4\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\
\\\\) + 1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\/\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(\
\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ x\\\\\\\\\\\\\\\\)\\\\\\\\\
\\\\\\\\) - \
3\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\) = \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"+\\\\\\\\\\\\\\\\!\\\
\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\[Infinity]\\\\\
\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \
\\\\\\\"\\\"}}, ColumnAlignments -> {Left}, ColumnSpacings -> 1.2, \
ColumnWidths -> Automatic]\\)\\)\"\>",
StringForm["`1`",
Piecewise[{{
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x)^(-1) (1 - 4 $CellContext`x +
3 $CellContext`x^2), $CellContext`x,
Rational[3, 2], -1],
DirectedInfinity[-1]], " "}, {
StringForm["`1` = `2`",
analyse`Limite[(-3 + 2 $CellContext`x)^(-1) (1 - 4 $CellContext`x +
3 $CellContext`x^2), $CellContext`x,
Rational[3, 2], 1],
StringForm["+`1`",
DirectedInfinity[1]]], " "}}, 0]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.466135842587554*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ x\\^2\\)\\) - \\(\\(4\\\\ x\\)\\) + \
1\\)\\/\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\
\\+\\(x \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\
\\) \\!\\(\\!\\(TraditionalForm\\`\\(3\\\\ \
x\\^2\\)\\)\\/\\!\\(TraditionalForm\\`\\(2\\\\ x\\)\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\(3\\\\ x\\)\\/2\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript["lim", $CellContext`x -> StringForm["+`1`",
DirectedInfinity[1]]], (-3 + 2 $CellContext`x)^(-1) (1 -
4 $CellContext`x + 3 $CellContext`x^2), 3 $CellContext`x^2,
2 $CellContext`x, Rational[3, 2] $CellContext`x,
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.466135842592593*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(\\(\\(3\\\\ \
x\\^2\\)\\) - \\(\\(4\\\\ x\\)\\) + 1\\)\\/\\(\\(\\(2\\\\ x\\)\\) - 3\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(3\\\\ \
x\\^2\\)\\)\\/\\!\\(TraditionalForm\\`\\(2\\\\ x\\)\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(3\\\\ x\\)\\/2\\) = \
\\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `1` `5` = `6`",
Underscript[
"lim", $CellContext`x ->
DirectedInfinity[-1]], (-3 + 2 $CellContext`x)^(-1) (1 -
4 $CellContext`x + 3 $CellContext`x^2), 3 $CellContext`x^2,
2 $CellContext`x, Rational[3, 2] $CellContext`x,
DirectedInfinity[-1]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466135837931407*^9, 3.466135842596496*^9}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Limites", "[",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"4", "x"}], "+", "7"}]], ",", "x"}], "]"}]], "Input",
CellOpen->False,
CellChangeTimes->{{3.466132577309978*^9, 3.466132619477727*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
FrameBox[
InterpretationBox["\<\"f(x) = \\!\\(TraditionalForm\\`\\@\\(x\\^2 - \
\\(\\(4\\\\ x\\)\\) + 7\\)\\)\"\>",
StringForm[
"f(x) = `1`", (7 - 4 $CellContext`x + $CellContext`x^2)^Rational[1, 2]],
Editable->False],
StripOnInput->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466132595156287*^9, 3.466132624173523*^9},
3.4661334667403803`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
TagBox["\[DoubleStruckCapitalR]",
Function[{}, Reals]],
TraditionalForm]}],
SequenceForm["Dom f = ",
analyse`Ens[True, $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466132595156287*^9, 3.466132624173523*^9},
3.466133466744213*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\@\\(x\\^2 - \\(\\(4\\\\ x\\)\\) + 7\\)\\) = \
\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\@\\(x\\^2\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\
\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`x\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` `2` = `1` `3` = `1` `4` = `5`",
Underscript["lim", $CellContext`x -> StringForm["+`1`",
DirectedInfinity[1]]], (7 - 4 $CellContext`x + $CellContext`x^2)^
Rational[1, 2], ($CellContext`x^2)^Rational[1, 2], $CellContext`x,
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466132595156287*^9, 3.466132624173523*^9},
3.466133466774416*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\@\\(x\\^2 - \
\\(\\(4\\\\ x\\)\\) + 7\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\@\\(x\\^2\\)\
\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\(\\(-\[Infinity]\\)\\)\\)\\) \\!\\(TraditionalForm\\`\\(-x\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` `2` = `1` `3` = `1` `4` = `5`",
Underscript[
"lim", $CellContext`x -> DirectedInfinity[-1]], (7 -
4 $CellContext`x + $CellContext`x^2)^Rational[1, 2], ($CellContext`x^2)^
Rational[1, 2], -$CellContext`x,
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{{3.466132595156287*^9, 3.466132624173523*^9},
3.466133466778866*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Limites", "[",
RowBox[{
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"2", "x"}], "-", "3"}]], "+", "x"}], ",", "x"}], "]"}]], "Input",\
CellOpen->False,
CellChangeTimes->{{3.466132577309978*^9, 3.466132644854363*^9}, {
3.4661335377080584`*^9, 3.46613354581252*^9}, {3.466133744504917*^9,
3.466133751241008*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
FrameBox[
InterpretationBox["\<\"f(x) = \\!\\(TraditionalForm\\`\\(x + \\@\\(\\(\\(2\
\\\\ x\\)\\) - 3\\)\\)\\)\"\>",
StringForm[
"f(x) = `1`", $CellContext`x + (-3 + 2 $CellContext`x)^Rational[1, 2]],
Editable->False],
StripOnInput->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.466132647309057*^9, 3.4661329410583677`*^9, 3.46613312698067*^9,
3.466133261356593*^9, {3.4661333805805283`*^9, 3.466133405754774*^9},
3.466133468381315*^9, 3.466133506069376*^9, {3.466133538366641*^9,
3.4661335460594997`*^9}, {3.4661336411849737`*^9, 3.466133663381022*^9}, {
3.466133708688218*^9, 3.4661337543405113`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"[\\!\\(TraditionalForm\\`3\\/2\\), \
\[LongRightArrow]\"\>",
StringForm["[`1`, \[LongRightArrow]",
Rational[3, 2]],
Editable->False],
TraditionalForm]}],
SequenceForm["Dom f = ",
analyse`Ens[$CellContext`x >= Rational[3, 2], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.466132647309057*^9, 3.4661329410583677`*^9, 3.46613312698067*^9,
3.466133261356593*^9, {3.4661333805805283`*^9, 3.466133405754774*^9},
3.466133468381315*^9, 3.466133506069376*^9, {3.466133538366641*^9,
3.4661335460594997`*^9}, {3.4661336411849737`*^9, 3.466133663381022*^9}, {
3.466133708688218*^9, 3.466133754370013*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 3\\\\/2\\\
\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\) - 3\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`3\\/2\\)\"\
\>",
StringForm["`1` = `2`",
analyse`Limite[$CellContext`x + (-3 + 2 $CellContext`x)^
Rational[1, 2], $CellContext`x,
Rational[3, 2]],
Rational[3, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.466132647309057*^9, 3.4661329410583677`*^9, 3.46613312698067*^9,
3.466133261356593*^9, {3.4661333805805283`*^9, 3.466133405754774*^9},
3.466133468381315*^9, 3.466133506069376*^9, {3.466133538366641*^9,
3.4661335460594997`*^9}, {3.4661336411849737`*^9, 3.466133663381022*^9}, {
3.466133708688218*^9, 3.46613375437357*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\\\\"+\
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\\\\\\\"\
\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\\\\(\\\\(\\\\(2\\\\\\\
\\ x\\\\)\\\\) - 3\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\
`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\
\\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`x\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\
\\\"\\)\"\>",
StringForm["`1` = `2` = `3`",
analyse`Limite[$CellContext`x + (-3 + 2 $CellContext`x)^
Rational[1, 2], $CellContext`x,
DirectedInfinity[1]],
analyse`Limite[$CellContext`x, $CellContext`x,
DirectedInfinity[1]],
StringForm["+`1`",
DirectedInfinity[1]]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.466132647309057*^9, 3.4661329410583677`*^9, 3.46613312698067*^9,
3.466133261356593*^9, {3.4661333805805283`*^9, 3.466133405754774*^9},
3.466133468381315*^9, 3.466133506069376*^9, {3.466133538366641*^9,
3.4661335460594997`*^9}, {3.4661336411849737`*^9, 3.466133663381022*^9}, {
3.466133708688218*^9, 3.4661337543787317`*^9}}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(x + \\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\
\\) - 3\\\\)\\\\)\\\\)\\\"\\)\\) \[NotExists]\"\>",
StringForm["`1` `2`",
analyse`Limite[$CellContext`x + (-3 + 2 $CellContext`x)^
Rational[1, 2], $CellContext`x,
DirectedInfinity[-1]], "\[NotExists]"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{
3.466132647309057*^9, 3.4661329410583677`*^9, 3.46613312698067*^9,
3.466133261356593*^9, {3.4661333805805283`*^9, 3.466133405754774*^9},
3.466133468381315*^9, 3.466133506069376*^9, {3.466133538366641*^9,
3.4661335460594997`*^9}, {3.4661336411849737`*^9, 3.466133663381022*^9}, {
3.466133708688218*^9, 3.46613375440554*^9}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Limites", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SqrtBox[
RowBox[{
RowBox[{"2", "x"}], "+", "3"}]], "-", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"2", "x"}]}], ")"}]}], ",", "x"}], "]"}]], "Input",
CellOpen->False,
CellChangeTimes->{{3.4661357377584867`*^9, 3.466135773813313*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
FormBox[
FrameBox[
InterpretationBox["\<\"f(x) = \\!\\(TraditionalForm\\`\\(\\@\\(\\(\\(2\\\\ \
x\\)\\) + 3\\) - 2\\)\\/\\(1 - \\(\\(2\\\\ x\\)\\)\\)\\)\"\>",
StringForm[
"f(x) = `1`", (1 - 2 $CellContext`x)^(-1) (-2 + (3 + 2 $CellContext`x)^
Rational[1, 2])],
Editable->False],
StripOnInput->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774540715*^9}],
Cell[BoxData[
FormBox[
InterpretationBox[
RowBox[{"\<\"Dom f = \"\>", "\[InvisibleSpace]",
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\
\\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(3\\\\/2\\\\)\\\\)\\\\)\\\\), \\\
\\!\\\\(TraditionalForm\\\\`1\\\\/2\\\\)[\\\"\\)\\) \[Union] \
\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\
\\`1\\\\/2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>",
StringForm["`1` \[Union] `2`",
analyse`Ens[
Inequality[
Rational[-3, 2], LessEqual, $CellContext`x, Less,
Rational[1, 2]], $CellContext`x],
analyse`Ens[$CellContext`x > Rational[1, 2], $CellContext`x]],
Editable->False],
TraditionalForm]}],
SequenceForm["Dom f = ",
analyse`Ens[
Or[
Inequality[
Rational[-3, 2], LessEqual, $CellContext`x, Less,
Rational[1, 2]], $CellContext`x > Rational[1, 2]], $CellContext`x]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774566841*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\(\\\\(3\\\\/2\\\\)\\\\)\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) \
+ 3\\\\) - 2\\\\)\\\\/\\\\(1 - \\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \
\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(1 - 2 $CellContext`x)^(-1) (-2 + (3 + 2 $CellContext`x)^
Rational[1, 2]), $CellContext`x,
Rational[-3, 2]],
Rational[-1, 2]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4661357746319427`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] 1\
\\/2\\)\\) \\!\\(TraditionalForm\\`\\(\\@\\(\\(\\(2\\\\ x\\)\\) + 3\\) - 2\\)\
\\/\\(1 - \\(\\(2\\\\ x\\)\\)\\)\\) = \
[\\!\\(\\!\\(TraditionalForm\\`0\\)\\/\\!\\(TraditionalForm\\`0\\)\\)]\"\>",
StringForm["`1` `2` = [\!\(`3`\/`4`\)]",
Underscript[
"lim", $CellContext`x ->
Rational[1, 2]], (1 -
2 $CellContext`x)^(-1) (-2 + (3 + 2 $CellContext`x)^Rational[1, 2]), 0,
0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774657576*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\/2\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\((\\@\\(\\(\\(2\\\\ \
x\\)\\) + 3\\) - 2)\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) + 3\\) + 2)\\)\
\\)\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((1 - \\(\\(2\\\\ \
x\\)\\))\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) + 3\\) + \
2)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript[
"lim", $CellContext`x ->
Rational[1, 2]], (-2 + (3 + 2 $CellContext`x)^Rational[1, 2]) (
2 + (3 + 2 $CellContext`x)^Rational[1, 2]), (1 - 2 $CellContext`x) (
2 + (3 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4661357746755943`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\/2\\)\\) \\!\\(\\!\\(TraditionalForm\\`\\(\\(\\(2\\\\ x\\)\\) - \
1\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\((1 - \\(\\(2\\\\ \
x\\)\\))\\)\\)\\\\ \\(\\((\\@\\(\\(\\(2\\\\ x\\)\\) + 3\\) + \
2)\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` \!\(`2`\/`3`\) ",
Underscript["lim", $CellContext`x -> Rational[1, 2]], -1 +
2 $CellContext`x, (1 - 2 $CellContext`x) (
2 + (3 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774691173*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\" = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] 1\\/2\\)\\) \
\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/\\(\\@\\(\\(\\(2\\\\ x\\)\\) + 3\\) + 2\
\\)\\)\\)\\)\\) \"\>",
StringForm[" = `1` `2` ",
Underscript["lim", $CellContext`x -> Rational[1, 2]], (-1)/(
2 + (3 + 2 $CellContext`x)^Rational[1, 2])],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.4661357747094193`*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 1\\\\/2\\\
\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/\\\\(\\\\@\\\\(\\\
\\(\\\\(2\\\\\\\\ x\\\\)\\\\) + 3\\\\) + 2\\\\)\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) \
= \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/4\\)\\)\\)\\)\"\>",
StringForm["`1` = `2`",
analyse`Limite[(-1)/(
2 + (3 + 2 $CellContext`x)^Rational[1, 2]), $CellContext`x,
Rational[1, 2]],
Rational[-1, 4]],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774742835*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \[Rule] \
\\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(TraditionalForm\\`\\(\\@\\(\\(\\(2\\\\ x\\)\\) + 3\\) - 2\\)\\/\\(1 - \
\\(\\(2\\\\ x\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \
\[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \
\\!\\(\\!\\(TraditionalForm\\`\\(\\@2\\\\ \
\\@x\\)\\)\\/\\!\\(TraditionalForm\\`\\(\\(\\(-2\\)\\)\\\\ x\\)\\)\\) = \
\\!\\(TraditionalForm\\`0\\)\"\>",
StringForm["`1` `2` = `1` \!\(`3`\/`4`\) = `5`",
Underscript["lim", $CellContext`x -> StringForm["+`1`",
DirectedInfinity[1]]], (1 -
2 $CellContext`x)^(-1) (-2 + (3 + 2 $CellContext`x)^Rational[1, 2]),
2^Rational[1, 2] $CellContext`x^Rational[1, 2], (-2) $CellContext`x, 0],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774763055*^9}],
Cell[BoxData[
FormBox[
InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\\
!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \
\\\\(\\\\(-\\\\[Infinity]\\\\)\\\\)\\\\)\\\\) \
\\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\@\\\\(\\\\(\\\\(2\\\\\\\\ x\\\\)\\\\) \
+ 3\\\\) - 2\\\\)\\\\/\\\\(1 - \\\\(\\\\(2\\\\\\\\ \
x\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) \[NotExists]\"\>",
StringForm["`1` `2`",
analyse`Limite[(1 - 2 $CellContext`x)^(-1) (-2 + (3 + 2 $CellContext`x)^
Rational[1, 2]), $CellContext`x,
DirectedInfinity[-1]], "\[NotExists]"],
Editable->False], TraditionalForm]], "Print",
CellChangeTimes->{3.466135774779841*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowToolbars->"EditBar",
WindowSize->{640, 750},
WindowMargins->{{Automatic, -824}, {Automatic, 104}},
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, 158, 3, 44, "Section"],
Cell[CellGroupData[{
Cell[750, 29, 704, 19, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[1479, 52, 713, 15, 59, "Print"],
Cell[2195, 69, 935, 21, 24, "Print"],
Cell[3133, 92, 873, 16, 49, "Print"],
Cell[4009, 110, 850, 16, 46, "Print"],
Cell[4862, 128, 683, 14, 45, "Print"],
Cell[5548, 144, 861, 16, 45, "Print"],
Cell[6412, 162, 877, 16, 49, "Print"],
Cell[7292, 180, 1219, 33, 126, "Print"],
Cell[8514, 215, 3518, 56, 98, "Print"],
Cell[12035, 273, 1352, 23, 49, "Print"],
Cell[13390, 298, 1232, 22, 49, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[14671, 326, 399, 13, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[15095, 343, 450, 10, 58, "Print"],
Cell[15548, 355, 658, 17, 43, "Print"],
Cell[16209, 374, 645, 13, 62, "Print"],
Cell[16857, 389, 928, 28, 122, "Print"],
Cell[17788, 419, 3283, 54, 120, "Print"],
Cell[21074, 475, 1249, 22, 47, "Print"],
Cell[22326, 499, 1060, 19, 47, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[23435, 524, 262, 8, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[23722, 536, 406, 10, 45, "Print"],
Cell[24131, 548, 412, 12, 24, "Print"],
Cell[24546, 562, 1104, 21, 43, "Print"],
Cell[25653, 585, 988, 19, 43, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[26690, 610, 354, 11, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[27069, 625, 677, 14, 45, "Print"],
Cell[27749, 641, 825, 19, 43, "Print"],
Cell[28577, 662, 928, 18, 55, "Print"],
Cell[29508, 682, 1464, 27, 41, "Print"],
Cell[30975, 711, 935, 17, 41, "Print"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[31959, 734, 385, 13, 19, "Input",
CellOpen->False],
Cell[CellGroupData[{
Cell[32369, 751, 412, 10, 59, "Print"],
Cell[32784, 763, 1064, 25, 43, "Print"],
Cell[33851, 790, 745, 15, 60, "Print"],
Cell[34599, 807, 596, 13, 60, "Print"],
Cell[35198, 822, 781, 15, 61, "Print"],
Cell[35982, 839, 616, 12, 55, "Print"],
Cell[36601, 853, 457, 10, 55, "Print"],
Cell[37061, 865, 658, 13, 55, "Print"],
Cell[37722, 880, 941, 16, 48, "Print"],
Cell[38666, 898, 686, 13, 48, "Print"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)