(* 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[     53751,       1595]
NotebookOptionsPosition[     50987,       1508]
NotebookOutlinePosition[     51682,       1533]
CellTagsIndexPosition[     51639,       1530]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Domaine de d\[EAcute]finition", "Subsubtitle"],

Cell[TextData[{
 "Le domaine de d\[EAcute]finition d\[CloseCurlyQuote]une fonction \
r\[EAcute]elle f est l\[CloseCurlyQuote]ensemble \n\ndom f = { x \[Element] \
",
 StyleBox["\[DoubleStruckCapitalR]",
  FontSize->16],
 " : f(x) \[Element] ",
 StyleBox["\[DoubleStruckCapitalR]",
  FontSize->16],
 "}\n\nD\[EAcute]terminer le domaine de d\[EAcute]finition des fonctions \
suivantes:"
}], "Text",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"i", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"16", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"2", "x"}], "+", "8"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"5", "x"}], "+", "6"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"3", "x"}], "-", "10"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", "6"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "+", 
      RowBox[{"5", "x"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"4", "x"}], "-", 
     RowBox[{"x", "^", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"3", "x"}], "-", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"5", "x"}], "+", "3"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"5", "x"}], "+", "6"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "-", 
     RowBox[{"3", "x"}], "-", "18"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"5", "x"}], "+", "15"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "+", 
      RowBox[{"6", "x"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", "x"}], "-", 
      RowBox[{"x", "^", "3"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "-", "x"}], "]"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"5", "x"}], "-", "1"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "-", 
      RowBox[{"3", "x"}], "+", 
      RowBox[{"x", "^", "2"}]}], "]"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", "x"}], "-", "1"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", "x", "-", "1"}], ")"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"3", "x"}], "+", "1"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"x", "+", "7"}], "]"}], "+", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"3", "x"}], "-", "9"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"x", "+", "4"}], "]"}], "+", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"3", "x"}], "-", "10"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"5", "x"}], "-", "3"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"2", "x"}], "-", "3"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"5", "x"}], "-", "7"}], ")"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"x", "^", "2"}]}], "+", 
      RowBox[{"3", "x"}], "-", "2"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"3", "-", "x"}], "]"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"4", "x"}], "-", "1"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", "5"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"x", "+", "1"}], "]"}], "+", 
    FractionBox["1", 
     RowBox[{"8", "-", 
      SuperscriptBox["x", "3"]}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "-", 
       RowBox[{"5", "x"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "-", 
       RowBox[{"6", "x"}], "+", "5"}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fct", "[", "i", "]"}], "=", 
    RowBox[{"f", "[", "x", "]"}]}], ";", 
   RowBox[{
    RowBox[{"dom", "[", "i", "]"}], "=", 
    RowBox[{"Presente", "[", 
     RowBox[{"\"\<dom f\>\"", ",", 
      RowBox[{"Domaine", "[", 
       RowBox[{
        RowBox[{"fct", "[", "i", "]"}], ",", "x"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"n", ",", "\"\<) f(x) =\>\"", ",", 
     RowBox[{"fct", "[", "n", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.4160227165134077`*^9, 3.416022845734178*^9}, {
   3.4160231765048647`*^9, 3.4160232104898243`*^9}, {3.416023272499535*^9, 
   3.4160232831794167`*^9}, {3.4160234956695433`*^9, 3.41602350134533*^9}, {
   3.416023539337515*^9, 3.416023547675846*^9}, {3.4160235929940367`*^9, 
   3.416023621676281*^9}, 3.416023653782394*^9, {3.416023980111047*^9, 
   3.41602406329572*^9}, {3.416024095405097*^9, 3.4160241398416986`*^9}, {
   3.416024262544937*^9, 3.4160242627263107`*^9}},
 FontSize->12,
 FontColor->RGBColor[0., 0.5019607843137255, 0.5019607843137255]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "1", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"16", " ", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"2", " ", "x"}], "+", "8"}], 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"5", " ", "x"}], "+", "6"}]]}],
   SequenceForm[
   1, ") f(x) =", (6 + 5 $CellContext`x + $CellContext`x^2)^(-1) (8 - 
     2 $CellContext`x + 16 $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024263731347*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "2", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"3", " ", "x"}], "-", "10"}]]}],
   SequenceForm[
   2, ") f(x) =", (-10 + 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2]],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024263751116*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "3", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"x", "+", "6"}], 
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"5", " ", "x"}]}]]}],
   SequenceForm[
   3, ") f(x) =", (6 + $CellContext`x)/(5 $CellContext`x + $CellContext`x^3)],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024263787055*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "4", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    SqrtBox[
     RowBox[{
      RowBox[{"4", " ", "x"}], "-", 
      SuperscriptBox["x", "3"]}]]}],
   SequenceForm[
   4, ") f(x) =", (4 $CellContext`x - $CellContext`x^3)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.4160242638243847`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "5", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    SqrtBox[
     RowBox[{
      RowBox[{"3", " ", "x"}], "-", "2"}]]}],
   SequenceForm[5, ") f(x) =", (-2 + 3 $CellContext`x)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024263857286*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "6", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"8", " ", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"5", " ", "x"}], "+", "3"}], 
     RowBox[{
      SuperscriptBox["x", "2"], "-", 
      RowBox[{"5", " ", "x"}], "+", "6"}]]}],
   SequenceForm[
   6, ") f(x) =", (6 - 5 $CellContext`x + $CellContext`x^2)^(-1) (3 - 
     5 $CellContext`x + 8 $CellContext`x^2)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.4160242638905363`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "7", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "2"], "-", 
      RowBox[{"3", " ", "x"}], "-", "18"}]]}],
   SequenceForm[
   7, ") f(x) =", (-18 - 3 $CellContext`x + $CellContext`x^2)^Rational[1, 2]],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.41602426393617*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "8", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"5", " ", "x"}], "+", "15"}], 
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"6", " ", "x"}]}]]}],
   SequenceForm[
   8, ") f(x) =", (15 - 5 $CellContext`x + 4 $CellContext`x^2)/(
    6 $CellContext`x + $CellContext`x^3)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024263973652*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "9", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox["1", 
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", "x"}], "-", 
       SuperscriptBox["x", "3"]}]]]}],
   SequenceForm[
   9, ") f(x) =", (2 $CellContext`x - $CellContext`x^3)^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024264007181*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "10", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     SqrtBox[
      RowBox[{"2", "-", "x"}]], 
     SqrtBox[
      RowBox[{
       RowBox[{"5", " ", "x"}], "-", "1"}]]]}],
   SequenceForm[
   10, ") f(x) =", (2 - $CellContext`x)^
     Rational[1, 2] (-1 + 5 $CellContext`x)^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.416024130570795*^9, 3.416024140859112*^9}, 
   3.416024264039014*^9},
 FontSize->12]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"n", ",", "\"\<) f(x) =\>\"", ",", 
      RowBox[{"fct", "[", "n", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "11", ",", "20"}], "}"}]}], "]"}]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{3.416024276372632*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "11", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "-", 
       RowBox[{"3", " ", "x"}], "+", "2"}]], 
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", "x"}], "-", "1"}]]]}],
   SequenceForm[
   11, ") f(x) =", (-1 + 2 $CellContext`x)^
     Rational[-1, 2] (2 - 3 $CellContext`x + $CellContext`x^2)^
     Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602427673387*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "12", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      SuperscriptBox["x", "2"], "+", "x", "-", "1"}], 
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"3", " ", "x"}], "+", "1"}]]]}],
   SequenceForm[
   12, ") f(x) =", (-1 + $CellContext`x + $CellContext`x^2) (1 - 
      3 $CellContext`x + 2 $CellContext`x^2)^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4160242767375603`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "13", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox[
      RowBox[{"x", "+", "7"}]], "+", 
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"3", " ", "x"}], "-", "9"}]]}]}],
   SequenceForm[
   13, ") f(x) =", (7 + $CellContext`x)^
     Rational[1, 2] + (-9 - 3 $CellContext`x + 2 $CellContext`x^2)^
     Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4160242767419853`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "14", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox[
      RowBox[{"x", "+", "4"}]], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "-", 
       RowBox[{"3", " ", "x"}], "-", "10"}]]}]}],
   SequenceForm[
   14, ") f(x) =", (4 + $CellContext`x)^
     Rational[1, 2] + (-10 - 3 $CellContext`x + $CellContext`x^2)^
     Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.416024276745833*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "15", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}], "-", 
       RowBox[{"5", " ", "x"}], "-", "3"}]], 
     RowBox[{
      SuperscriptBox["x", "2"], "-", 
      RowBox[{"2", " ", "x"}], "-", "3"}]]}],
   SequenceForm[
   15, ") f(x) =", (-3 - 2 $CellContext`x + $CellContext`x^2)^(-1) (-3 - 
      5 $CellContext`x + 2 $CellContext`x^2)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4160242767662153`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "16", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"5", " ", "x"}], "-", "7"}], 
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"3", " ", "x"}], "-", "2"}]]]}],
   SequenceForm[
   16, ") f(x) =", (-7 + 
     5 $CellContext`x + $CellContext`x^2) (-2 + 3 $CellContext`x + 
      2 $CellContext`x^2)^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.416024276805997*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "17", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     SqrtBox[
      RowBox[{"3", "-", "x"}]], 
     SqrtBox[
      RowBox[{
       RowBox[{"4", " ", "x"}], "-", "1"}]]]}],
   SequenceForm[
   17, ") f(x) =", (3 - $CellContext`x)^
     Rational[1, 2] (-1 + 4 $CellContext`x)^Rational[-1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.416024276864987*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "18", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    FractionBox[
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "-", "5"}]], 
     RowBox[{"x", "+", "1"}]]}],
   SequenceForm[
   18, ") f(x) =", (1 + $CellContext`x)^(-1) (-5 + $CellContext`x^2)^
     Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4160242769037247`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "19", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox[
      RowBox[{"x", "+", "1"}]], "+", 
     FractionBox["1", 
      RowBox[{"8", "-", 
       SuperscriptBox["x", "3"]}]]}]}],
   SequenceForm[
   19, ") f(x) =", (1 + $CellContext`x)^
     Rational[1, 2] + (8 - $CellContext`x^3)^(-1)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602427696574*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{
   "20", "\[InvisibleSpace]", "\<\") f(x) =\"\>", "\[InvisibleSpace]", 
    SqrtBox[
     FractionBox[
      RowBox[{"2", "-", 
       RowBox[{"5", " ", "x"}]}], 
      RowBox[{
       SuperscriptBox["x", "2"], "-", 
       RowBox[{"6", " ", "x"}], "+", "5"}]]]}],
   SequenceForm[
   20, ") f(x) =", ((2 - 5 $CellContext`x)/(5 - 
     6 $CellContext`x + $CellContext`x^2))^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.416024277005662*^9},
 FontSize->12]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection",
 CellChangeTimes->{{3.4160234506380377`*^9, 3.416023453640642*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"n", ",", "\"\<) \>\"", ",", 
      RowBox[{"dom", "[", "n", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "20"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.416023468766181*^9, 3.416023508579756*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\*TagBox[\\\\\\\"\\\\[\
DoubleStruckCapitalR]\\\\\\\", Function[List[], Reals]]\\\\) \\\\\\\\ \
{\\\\!\\\\(TraditionalForm\\\\`\\\\(-3\\\\)\\\\),\\\\!\\\\(TraditionalForm\\\\\
`\\\\(-2\\\\)\\\\)}\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < -3, 
        Inequality[-3, Less, $CellContext`x, 
         Less, -2], $CellContext`x > -2], $CellContext`x]],
     Editable->False]}],
   SequenceForm[1, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < -3, 
       Inequality[-3, Less, $CellContext`x, 
        Less, -2], $CellContext`x > -2], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085212816*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-5\\\\\\\\)\\\\\\\\)]\\\\\\\
\"\\\\)\\\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\
\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x <= -5, $CellContext`x >= 2], $CellContext`x]],
     Editable->False]}],
   SequenceForm[2, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x <= -5, $CellContext`x >= 2], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240852705803`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\*TagBox[\\\\\\\"\\\\[\
DoubleStruckCapitalR]\\\\\\\", Function[List[], Reals]]\\\\) \\\\\\\\ \
{\\\\!\\\\(TraditionalForm\\\\`0\\\\)}\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < 0, $CellContext`x > 0], $CellContext`x]],
     Editable->False]}],
   SequenceForm[3, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < 0, $CellContext`x > 0], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240853149643`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-2\\\\\\\\)\\\\\\\\)]\\\\\\\
\"\\\\)\\\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\
\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`0\\\\\\\\), \\\\\\\\!\\\
\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\)]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x <= -2, 
        Inequality[
        0, LessEqual, $CellContext`x, LessEqual, 2]], $CellContext`x]],
     Editable->False]}],
   SequenceForm[4, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x <= -2, 
       Inequality[
       0, LessEqual, $CellContext`x, LessEqual, 2]], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085379974*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"[\\\\!\\\\(TraditionalForm\\\\`2\\\\/3\\\\), \
\\\\[LongRightArrow]\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[$CellContext`x >= Rational[2, 3], $CellContext`x]],
     Editable->False]}],
   SequenceForm[5, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[$CellContext`x >= Rational[2, 3], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.41602408542726*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\*TagBox[\\\\\\\"\\\\[\
DoubleStruckCapitalR]\\\\\\\", Function[List[], Reals]]\\\\) \\\\\\\\ \
{\\\\!\\\\(TraditionalForm\\\\`2\\\\),\\\\!\\\\(TraditionalForm\\\\`3\\\\)}\\\
\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < 2, 
        Inequality[2, Less, $CellContext`x, Less, 3], $CellContext`x > 
        3], $CellContext`x]],
     Editable->False]}],
   SequenceForm[6, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < 2, 
       Inequality[2, Less, $CellContext`x, Less, 3], $CellContext`x > 
       3], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085484262*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-3\\\\\\\\)\\\\\\\\)]\\\\\\\
\"\\\\)\\\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\
\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`6\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x <= -3, $CellContext`x >= 6], $CellContext`x]],
     Editable->False]}],
   SequenceForm[7, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x <= -3, $CellContext`x >= 6], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.41602408553305*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\*TagBox[\\\\\\\"\\\\[\
DoubleStruckCapitalR]\\\\\\\", Function[List[], Reals]]\\\\) \\\\\\\\ \
{\\\\!\\\\(TraditionalForm\\\\`0\\\\)}\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < 0, $CellContext`x > 0], $CellContext`x]],
     Editable->False]}],
   SequenceForm[8, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < 0, $CellContext`x > 0], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085591639*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\\\\\\\\@2\\\\\\\\)\\\\\\\
\\)[\\\\\\\"\\\\)\\\\) \\\\[Union] \
\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\
\\\\(TraditionalForm\\\\\\\\`0\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\@2\\\\\\\\)[\\\\\\\"\\\\)\\\
\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < -2^Rational[1, 2], 
        Inequality[
        0, Less, $CellContext`x, Less, 2^Rational[1, 2]]], $CellContext`x]],
     Editable->False]}],
   SequenceForm[9, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < -2^Rational[1, 2], 
       Inequality[
       0, Less, $CellContext`x, Less, 2^Rational[1, 2]]], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085640882*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"]\\\\!\\\\(TraditionalForm\\\\`1\\\\/5\\\\), \\\\!\\\\(TraditionalForm\
\\\\`2\\\\)]\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Inequality[
        Rational[1, 5], Less, $CellContext`x, LessEqual, 2], $CellContext`x]],
     
     Editable->False]}],
   SequenceForm[10, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Inequality[
       Rational[1, 5], Less, $CellContext`x, LessEqual, 2], $CellContext`x]]],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240856975822`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\
\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\/2\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\)]\\\\\\\"\\\\)\\\\) \
\\\\[Union] \
\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\
\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[
        Inequality[
         Rational[1, 2], Less, $CellContext`x, LessEqual, 1], $CellContext`x >= 
        2], $CellContext`x]],
     Editable->False]}],
   SequenceForm[11, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[
       Inequality[
        Rational[1, 2], Less, $CellContext`x, LessEqual, 1], $CellContext`x >= 
       2], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085748116*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\/2\\\\\\\\)[\\\\\\\"\\\\)\\\
\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\
\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < Rational[1, 2], $CellContext`x > 
        1], $CellContext`x]],
     Editable->False]}],
   SequenceForm[12, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < Rational[1, 2], $CellContext`x > 
       1], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240857962523`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\
\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-7\\\\\\\\)\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\\\\\\\\(\\\\\\\\(3\\\\\\\
\\/2\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\\)]\\\\\\\"\\\\)\\\\) \\\\[Union] \\\\!\
\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(\
TraditionalForm\\\\\\\\`3\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[
        Inequality[-7, LessEqual, $CellContext`x, LessEqual, 
         Rational[-3, 2]], $CellContext`x >= 3], $CellContext`x]],
     Editable->False]}],
   SequenceForm[13, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[
       Inequality[-7, LessEqual, $CellContext`x, LessEqual, 
        Rational[-3, 2]], $CellContext`x >= 3], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085855008*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\
\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-4\\\\\\\\)\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-2\\\\\\\\)\\\\\\\\)]\\\\\\\
\"\\\\)\\\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\
\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`5\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[
        Inequality[-4, LessEqual, $CellContext`x, 
         LessEqual, -2], $CellContext`x >= 5], $CellContext`x]],
     Editable->False]}],
   SequenceForm[14, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[
       Inequality[-4, LessEqual, $CellContext`x, 
        LessEqual, -2], $CellContext`x >= 5], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024085907465*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-1\\\\\\\\)\\\\\\\\)[\\\\\\\
\"\\\\)\\\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\
\\`\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(TraditionalForm\
\\\\\\\\`\\\\\\\\\\\\\\\"]\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\
\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\(-1\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\), \
\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\
\\\\(-\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/2\\\\\\\\\\\\\\\\)\\\
\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)]\\\\\\\\\\\\\\\"\\\\\\\\)\\\
\\\\\\) \\\\\\\\[Union] \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(TraditionalForm\\\\\\\\`\\\
\\\\\\\\\\\\\"]\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\
\\`3\\\\\\\\\\\\\\\\), \\\\\\\\\\\\\\\\[LongRightArrow]\\\\\\\\\\\\\\\"\\\\\\\
\\)\\\\\\\\)\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < -1, 
        Inequality[-1, Less, $CellContext`x, LessEqual, 
         Rational[-1, 2]], $CellContext`x > 3], $CellContext`x]],
     Editable->False]}],
   SequenceForm[15, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < -1, 
       Inequality[-1, Less, $CellContext`x, LessEqual, 
        Rational[-1, 2]], $CellContext`x > 3], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240859588137`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-2\\\\\\\\)\\\\\\\\)[\\\\\\\
\"\\\\)\\\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\
\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\/2\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x < -2, $CellContext`x > 
        Rational[1, 2]], $CellContext`x]],
     Editable->False]}],
   SequenceForm[16, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x < -2, $CellContext`x > 
       Rational[1, 2]], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024086015253*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"17", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"]\\\\!\\\\(TraditionalForm\\\\`1\\\\/4\\\\), \\\\!\\\\(TraditionalForm\
\\\\`3\\\\)]\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Inequality[
        Rational[1, 4], Less, $CellContext`x, LessEqual, 3], $CellContext`x]],
     
     Editable->False]}],
   SequenceForm[17, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Inequality[
       Rational[1, 4], Less, $CellContext`x, LessEqual, 3], $CellContext`x]]],
   
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024086070505*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"18", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\\\\\\\\@5\\\\\\\\)\\\\\\\
\\)]\\\\\\\"\\\\)\\\\) \\\\[Union] \
\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\
\\\\(TraditionalForm\\\\\\\\`\\\\\\\\@5\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x <= -5^Rational[1, 2], $CellContext`x >= 
        5^Rational[1, 2]], $CellContext`x]],
     Editable->False]}],
   SequenceForm[18, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x <= -5^Rational[1, 2], $CellContext`x >= 
       5^Rational[1, 2]], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.416024086119521*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"19", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\
\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-1\\\\\\\\)\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\)[\\\\\\\"\\\\)\\\\) \
\\\\[Union] \
\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\
\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\), \
\\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[
        Inequality[-1, LessEqual, $CellContext`x, Less, 2], $CellContext`x > 
        2], $CellContext`x]],
     Editable->False]}],
   SequenceForm[19, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[
       Inequality[-1, LessEqual, $CellContext`x, Less, 2], $CellContext`x > 
       2], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240861761217`*^9},
 FontSize->12],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"20", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"dom f = \\!\\(TraditionalForm\\`\\(TraditionalForm\
\\`\\\"\\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"\\\\\\\\\
[LongLeftArrow], \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\/5\\\\\\\\)]\\\\\\\"\\\\)\\\
\\) \\\\[Union] \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\
\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\), \
\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`5\\\\\\\\)[\\\\\\\"\\\\)\\\\)\\\"\\)\
\\)\"\>",
     StringForm["`1` = `2`", "dom f", 
      analyse`Ens[
       Or[$CellContext`x <= Rational[2, 5], 
        Inequality[1, Less, $CellContext`x, Less, 5]], $CellContext`x]],
     Editable->False]}],
   SequenceForm[20, ") ", 
    StringForm["`1` = `2`", "dom f", 
     analyse`Ens[
      Or[$CellContext`x <= Rational[2, 5], 
       Inequality[1, Less, $CellContext`x, Less, 5]], $CellContext`x]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.41602392380018*^9, 3.4160240862504787`*^9},
 FontSize->12]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{818, 780},
WindowMargins->{{Automatic, 546}, {Automatic, 128}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PageHeaders->{{Inherited, Inherited, Inherited}, {
   Cell[
    TextData["macformath.net"], "Header"], Inherited, Inherited}},
PrintingOptions->{"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->True,
"PrintingMargins"->22.6875},
CellLabelAutoDelete->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 52, 0, 29, "Subsubtitle"],
Cell[645, 25, 411, 12, 105, "Text"],
Cell[CellGroupData[{
Cell[1081, 41, 16356, 533, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[17462, 578, 658, 19, 46, "Print"],
Cell[18123, 599, 495, 15, 31, "Print"],
Cell[18621, 616, 519, 16, 43, "Print"],
Cell[19143, 634, 476, 14, 31, "Print"],
Cell[19622, 650, 428, 12, 32, "Print"],
Cell[20053, 664, 658, 19, 46, "Print"],
Cell[20714, 685, 494, 15, 31, "Print"],
Cell[21211, 702, 638, 19, 46, "Print"],
Cell[21852, 723, 502, 15, 50, "Print"],
Cell[22357, 740, 545, 17, 48, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22951, 763, 357, 10, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[23333, 777, 588, 19, 53, "Print"],
Cell[23924, 798, 613, 18, 53, "Print"],
Cell[24540, 818, 595, 19, 34, "Print"],
Cell[25138, 839, 564, 18, 34, "Print"],
Cell[25705, 859, 647, 19, 52, "Print"],
Cell[26355, 880, 647, 20, 53, "Print"],
Cell[27005, 902, 495, 16, 48, "Print"],
Cell[27503, 920, 471, 15, 49, "Print"],
Cell[27977, 937, 496, 16, 43, "Print"],
Cell[28476, 955, 553, 17, 59, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29078, 978, 102, 1, 27, "Subsubsection"],
Cell[CellGroupData[{
Cell[29205, 983, 377, 11, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[29607, 998, 1014, 23, 23, "Print"],
Cell[30624, 1023, 1019, 21, 23, "Print"],
Cell[31646, 1046, 819, 18, 23, "Print"],
Cell[32468, 1066, 1150, 25, 23, "Print"],
Cell[33621, 1093, 681, 15, 41, "Print"],
Cell[34305, 1110, 982, 23, 23, "Print"],
Cell[35290, 1135, 1016, 21, 23, "Print"],
Cell[36309, 1158, 817, 18, 23, "Print"],
Cell[37129, 1178, 1210, 27, 32, "Print"],
Cell[38342, 1207, 805, 21, 41, "Print"],
Cell[39150, 1230, 1179, 28, 40, "Print"],
Cell[40332, 1260, 1049, 23, 40, "Print"],
Cell[41384, 1285, 1250, 26, 40, "Print"],
Cell[42637, 1313, 1176, 25, 23, "Print"],
Cell[43816, 1340, 1838, 34, 40, "Print"],
Cell[45657, 1376, 1068, 23, 40, "Print"],
Cell[46728, 1401, 803, 21, 40, "Print"],
Cell[47534, 1424, 1116, 24, 32, "Print"],
Cell[48653, 1450, 1145, 26, 23, "Print"],
Cell[49801, 1478, 1134, 24, 41, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)