(* 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[ 42862, 1276] NotebookOptionsPosition[ 41038, 1216] NotebookOutlinePosition[ 41374, 1231] CellTagsIndexPosition[ 41331, 1228] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ D\[EAcute]terminer le domaine de d\[EAcute]finition des fonctions suivantes\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"q", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"7", "x"}], "-", "8"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"3", "x"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"4", "-", RowBox[{"x", "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"5", "x"}], "-", "6"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"5", "-", RowBox[{"x", "^", "2"}]}], ")"}]}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"Abs", "[", RowBox[{"x", "-", "6"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{ RowBox[{"Sqrt", "[", "x", "]"}], "/", RowBox[{"(", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], "]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"5", "x"}], "-", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "+", "7"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}], "^", "2"}]}], "]"}], "]"}], "/", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "-", "x", "+", "12"}], "]"}], "/", RowBox[{"(", RowBox[{"2", "-", RowBox[{"Abs", "[", RowBox[{"x", "+", "1"}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "2"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"4", "x"}]}], "]"}], "-", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", " ", RowBox[{"Sqrt", "[", RowBox[{"5", "-", RowBox[{"3", RowBox[{"Abs", "[", "x", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", "4"}], "]"}], "-", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"2", "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"6", "x"}]}], "]"}], "-", "9"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Abs", "[", "x", "]"}]}], ")"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "q"}], "]"}], ":=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "^", "2"}]}], ")"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.399179476501251*^9, 3.3991796047121696`*^9}, 3.39917974695795*^9}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ RowBox[{"3", " ", "x"}], "-", "1"}], RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"7", " ", "x"}], "-", "8"}]]}], SequenceForm[ 1, ". f(x) = ", (-1 + 3 $CellContext`x)/(-8 + 7 $CellContext`x + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.3991797472614937`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", SqrtBox[ RowBox[{"1", "-", RowBox[{"3", " ", "x"}]}]]}], SequenceForm[2, ". f(x) = ", (1 - 3 $CellContext`x)^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747263793*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox["1", SqrtBox[ RowBox[{"4", "-", SuperscriptBox["x", "2"]}]]]}], SequenceForm[3, ". f(x) = ", (4 - $CellContext`x^2)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.39917974726609*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"5", " ", "x"}], "-", "6"}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"5", "-", SuperscriptBox["x", "2"]}], ")"}]}]]]}], SequenceForm[ 4, ". f(x) = ", ((-1 + $CellContext`x)^(-1) ( 5 - $CellContext`x^2)^(-1) (-6 - 5 $CellContext`x + $CellContext`x^2))^ Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.3991797472685757`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox["1", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"\[LeftBracketingBar]", RowBox[{"x", "-", "6"}], "\[RightBracketingBar]"}]}]]}], SequenceForm[ 5, ". f(x) = ", ($CellContext`x^2 - Abs[-6 + $CellContext`x])^(-1)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747271158*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ SqrtBox["x"], RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"8", " ", "x"}], "+", "3"}]]}], SequenceForm[ 6, ". f(x) = ", $CellContext`x^Rational[1, 2]/(3 - 8 $CellContext`x + 3 $CellContext`x^2 + 2 $CellContext`x^3)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747273662*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", SqrtBox[ RowBox[{ RowBox[{"5", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"27", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"40", " ", "x"}], "-", "12"}]]}], SequenceForm[ 7, ". f(x) = ", (-12 + 40 $CellContext`x - 27 $CellContext`x^2 + 5 $CellContext`x^3)^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747276307*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"12", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"16", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"25", " ", "x"}], "+", "7"}]], "x"]}], SequenceForm[ 8, ". f(x) = ", $CellContext`x^(-1) (7 - 25 $CellContext`x + 16 $CellContext`x^2 + 12 $CellContext`x^3)^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747296247*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", "x", "+", "12"}]], RowBox[{"2", "-", RowBox[{"\[LeftBracketingBar]", RowBox[{"x", "+", "1"}], "\[RightBracketingBar]"}]}]]}], SequenceForm[ 9, ". f(x) = ", (12 - $CellContext`x - $CellContext`x^2)^Rational[1, 2]/( 2 - Abs[1 + $CellContext`x])], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747325698*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{ RowBox[{"3", " ", "x"}], "-", "2"}], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}]}], "\[RightBracketingBar]"}], "-", "4"}]]}], SequenceForm[ 10, ". f(x) = ", (-2 + 3 $CellContext`x)/(-4 + Abs[(-4) $CellContext`x + $CellContext`x^2])], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747356821*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", SqrtBox[ RowBox[{"5", "-", RowBox[{"3", " ", RowBox[{"\[LeftBracketingBar]", "x", "\[RightBracketingBar]"}]}]}]]}], SequenceForm[11, ". f(x) = ", (5 - 3 Abs[$CellContext`x])^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747392332*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "12", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", SqrtBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"x", "-", "4"}], "\[RightBracketingBar]"}], "-", "3"}]]}], SequenceForm[ 12, ". f(x) = ", (-3 + Abs[-4 + $CellContext`x])^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747423753*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "13", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox["2", SqrtBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"6", " ", "x"}]}], "\[RightBracketingBar]"}], "-", "9"}]]]}], SequenceForm[ 13, ". f(x) = ", 2 (-9 + Abs[(-6) $CellContext`x + $CellContext`x^2])^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747459687*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "14", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", SqrtBox[ FractionBox[ RowBox[{"x", "-", "1"}], RowBox[{ RowBox[{"\[LeftBracketingBar]", "x", "\[RightBracketingBar]"}], "+", "1"}]]]}], SequenceForm[ 14, ". f(x) = ", ((-1 + $CellContext`x)/(1 + Abs[$CellContext`x]))^ Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.399179747491184*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "15", "\[InvisibleSpace]", "\<\". f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"5", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"16", " ", "x"}], "+", "12"}]], RowBox[{"1", "-", SuperscriptBox["x", "2"]}]]}], SequenceForm[ 15, ". f(x) = ", (1 - $CellContext`x^2)^(-1) (12 - 16 $CellContext`x - 5 $CellContext`x^2 + 3 $CellContext`x^3)^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39917952810423*^9, 3.399179536796651*^9}, 3.3991796051243143`*^9, 3.3991797475254*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"q", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "+=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"q", ",", "\"\<. Dom f = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "q"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "+=", "1"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.3991796260361023`*^9, 3.399179654032357*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\[DoubleStruckCapitalR] \\\\ \ {\\!\\(TraditionalForm\\`\\(-8\\)\\),\\!\\(TraditionalForm\\`1\\)}\"\>", StringForm["`3` \\ {`1`,`2`}", -8, 1, "\[DoubleStruckCapitalR]"], Editable->False]}], SequenceForm[1, ". Dom f = ", StringForm["`3` \\ {`1`,`2`}", -8, 1, "\[DoubleStruckCapitalR]"]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749375778*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\[LongLeftArrow], \ \\!\\(TraditionalForm\\`1\\/3\\)]\"\>", StringForm["\[LongLeftArrow], `1`]", Rational[1, 3]], Editable->False]}], SequenceForm[2, ". Dom f = ", StringForm["\[LongLeftArrow], `1`]", Rational[1, 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749404442*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-2\\)\\) , \ \\!\\(TraditionalForm\\`2\\)[\"\>", StringForm["]`` , ``[", -2, 2], Editable->False]}], SequenceForm[3, ". Dom f = ", StringForm["]`` , ``[", -2, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749434147*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\@5\\\\)\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\ \\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-1\\\\\\\\)\\\\\\\\) , \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\)[\\\\\\\"\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\ \\`\\\\\\\\@5\\\\\\\\) , \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`6\\\\\\\\)]\\\\\\\"\\\\)\\\"\\)\"\>\ ", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`[", -5^Rational[1, 2]], StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", -1, 1], StringForm["]`` , ``]", 5^Rational[1, 2], 6]]], Editable->False]}], SequenceForm[4, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`[", -5^Rational[1, 2]], StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", -1, 1], StringForm["]`` , ``]", 5^Rational[1, 2], 6]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749471394*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\[DoubleStruckCapitalR] \\\\ \ {\\!\\(TraditionalForm\\`\\(-3\\)\\),\\!\\(TraditionalForm\\`2\\)}\"\>", StringForm["`3` \\ {`1`,`2`}", -3, 2, "\[DoubleStruckCapitalR]"], Editable->False]}], SequenceForm[5, ". Dom f = ", StringForm["`3` \\ {`1`,`2`}", -3, 2, "\[DoubleStruckCapitalR]"]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749500642*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`0\\\\) , \ \\\\!\\\\(TraditionalForm\\\\`1\\\\/2\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\ \\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\/2\\\\\\\\) , \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\)[\\\\\\\"\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\ \\`1\\\\\\\\), \\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\"\\)\"\>", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", 0, Rational[1, 2]], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", Rational[1, 2], 1], StringForm["]`1`, \[LongRightArrow]", 1]]], Editable->False]}], SequenceForm[6, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", 0, Rational[1, 2]], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", Rational[1, 2], 1], StringForm["]`1`, \[LongRightArrow]", 1]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749537307*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`2\\\\/5\\\\) , \ \\\\!\\\\(TraditionalForm\\\\`2\\\\)]\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\\`3\\\\), \ \\\\[LongRightArrow]\\\"\\)\"\>", StringForm["`1` \[Union] `2`", StringForm["[`` , ``]", Rational[2, 5], 2], StringForm["[`1`, \[LongRightArrow]", 3]], Editable->False]}], SequenceForm[7, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["[`` , ``]", Rational[2, 5], 2], StringForm["[`1`, \[LongRightArrow]", 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749567593*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`\\\\(-\\\\(\\\\(7\\\\/3\\\\)\\\\)\\\\)\\\\) , \ \\\\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\\`0\\\\), \ \\\\[LongRightArrow]\\\"\\)\"\>", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", Rational[-7, 3], 0], StringForm["]`1`, \[LongRightArrow]", 0]], Editable->False]}], SequenceForm[8, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", Rational[-7, 3], 0], StringForm["]`1`, \[LongRightArrow]", 0]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749604013*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`\\\\(-4\\\\)\\\\) , \\\\!\\\\(TraditionalForm\\\\`\\\\(-3\ \\\\)\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\ \\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-3\\\\\\\\)\\\\\\\\) , \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\)[\\\\\\\"\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\ \\`1\\\\\\\\) , \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`3\\\\\\\\)]\\\\\\\"\ \\\\)\\\"\\)\"\>", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", -4, -3], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", -3, 1], StringForm["]`` , ``]", 1, 3]]], Editable->False]}], SequenceForm[9, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", -4, -3], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", -3, 1], StringForm["]`` , ``]", 1, 3]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749634853*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(2 - \\\\(\\\\(2\\\\\\\\ \\\\@2\\\\)\\\\)\\\ \\)\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\ \\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(2 - \\\\\\\\(\\\\\\\\(2\\\\\\\\\\\\\\\ \\ \\\\\\\\@2\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\\) , \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\)[\\\\\\\"\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\ \\`\\\\\\\\\\\\\\\"]\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\ \\\\\\\\`2\\\\\\\\\\\\\\\\) , \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(2 + \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\@2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\)[\\\\\\\\\\\\\\\"\\\\\\\\) \\\\\\\\[Union] \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"]\\\\\\\\\\\\\\\\!\\\ \\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\(2 + \ \\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\@2\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\ \\\\\\\\), \ \\\\\\\\\\\\\\\\[LongRightArrow]\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\"\\\\)\\\"\\)\ \"\>", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`[", 2 - 2 2^Rational[1, 2]], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", 2 - 2 2^Rational[1, 2], 2], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", 2, 2 + 2 2^Rational[1, 2]], StringForm["]`1`, \[LongRightArrow]", 2 + 2 2^Rational[1, 2]]]]], Editable->False]}], SequenceForm[10, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`[", 2 - 2 2^Rational[1, 2]], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", 2 - 2 2^Rational[1, 2], 2], StringForm["`1` \[Union] `2`", StringForm["]`` , ``[", 2, 2 + 2 2^Rational[1, 2]], StringForm["]`1`, \[LongRightArrow]", 2 + 2 2^Rational[1, 2]]]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.3991797496712627`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-\\(\\(5\\/3\\)\\)\\)\\\ ) , \\!\\(TraditionalForm\\`5\\/3\\)]\"\>", StringForm["[`` , ``]", Rational[-5, 3], Rational[5, 3]], Editable->False]}], SequenceForm[11, ". Dom f = ", StringForm["[`` , ``]", Rational[-5, 3], Rational[5, 3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749705586*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "12", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`1\\\\)]\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\\`7\\\\), \ \\\\[LongRightArrow]\\\"\\)\"\>", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`]", 1], StringForm["[`1`, \[LongRightArrow]", 7]], Editable->False]}], SequenceForm[12, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`]", 1], StringForm["[`1`, \[LongRightArrow]", 7]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749737075*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "13", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"\\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(3 - \\\\(\\\\(3\\\\\\\\ \\\\@2\\\\)\\\\)\\\ \\)\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\\`\\\\(3 + \ \\\\(\\\\(3\\\\\\\\ \\\\@2\\\\)\\\\)\\\\)\\\\), \\\\[LongRightArrow]\\\"\\)\"\ \>", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`[", 3 - 3 2^Rational[1, 2]], StringForm["]`1`, \[LongRightArrow]", 3 + 3 2^Rational[1, 2]]], Editable->False]}], SequenceForm[13, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["\[LongLeftArrow], `1`[", 3 - 3 2^Rational[1, 2]], StringForm["]`1`, \[LongRightArrow]", 3 + 3 2^Rational[1, 2]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.3991797497735662`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "14", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1\\), \[LongRightArrow]\"\ \>", StringForm["[`1`, \[LongRightArrow]", 1], Editable->False]}], SequenceForm[14, ". Dom f = ", StringForm["[`1`, \[LongRightArrow]", 1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.3991797498099947`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "15", "\[InvisibleSpace]", "\<\". Dom f = \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`\\\\(-2\\\\)\\\\) , \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\ \\\\)\\\\)[\\\"\\) \[Union] \ \\!\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\ \\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-1\\\\\\\\)\\\\\\\\) , \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\/3\\\\\\\\)]\\\\\\\"\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\ \\`3\\\\\\\\), \\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\"\\)\"\>", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", -2, -1], StringForm["`1` \[Union] `2`", StringForm["]`` , ``]", -1, Rational[2, 3]], StringForm["[`1`, \[LongRightArrow]", 3]]], Editable->False]}], SequenceForm[15, ". Dom f = ", StringForm["`1` \[Union] `2`", StringForm["[`` , ``[", -2, -1], StringForm["`1` \[Union] `2`", StringForm["]`` , ``]", -1, Rational[2, 3]], StringForm["[`1`, \[LongRightArrow]", 3]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.399179629670436*^9, 3.399179654712181*^9}, 3.399179749840398*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{702, 870}, WindowMargins->{{462, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 105, 2, 34, "Subsection"], Cell[CellGroupData[{ Cell[720, 29, 9875, 332, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[10620, 365, 579, 16, 43, "Print"], Cell[11202, 383, 439, 11, 32, "Print"], Cell[11644, 396, 466, 12, 50, "Print"], Cell[12113, 410, 772, 22, 59, "Print"], Cell[12888, 434, 560, 14, 44, "Print"], Cell[13451, 450, 661, 18, 47, "Print"], Cell[14115, 470, 630, 17, 31, "Print"], Cell[14748, 489, 680, 18, 49, "Print"], Cell[15431, 509, 678, 18, 51, "Print"], Cell[16112, 529, 675, 18, 47, "Print"], Cell[16790, 549, 517, 13, 32, "Print"], Cell[17310, 564, 521, 13, 32, "Print"], Cell[17834, 579, 640, 18, 50, "Print"], Cell[18477, 599, 577, 16, 46, "Print"], Cell[19057, 617, 740, 20, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19846, 643, 34, 0, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[19905, 647, 6173, 198, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[26103, 849, 604, 13, 23, "Print"], Cell[26710, 864, 549, 15, 41, "Print"], Cell[27262, 881, 509, 13, 23, "Print"], Cell[27774, 896, 1362, 29, 32, "Print"], Cell[29139, 927, 604, 13, 23, "Print"], Cell[29746, 942, 1343, 32, 40, "Print"], Cell[31092, 976, 882, 22, 41, "Print"], Cell[31977, 1000, 915, 22, 41, "Print"], Cell[32895, 1024, 1300, 29, 23, "Print"], Cell[34198, 1055, 2446, 45, 32, "Print"], Cell[36647, 1102, 609, 17, 41, "Print"], Cell[37259, 1121, 836, 19, 23, "Print"], Cell[38098, 1142, 1024, 21, 32, "Print"], Cell[39125, 1165, 513, 13, 23, "Print"], Cell[39641, 1180, 1345, 30, 41, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)