(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     22243,        819]
NotebookOptionsPosition[     17569,        642]
NotebookOutlinePosition[     19198,        700]
CellTagsIndexPosition[     19155,        697]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["R\[EAcute]ciproque d'une fonction", "Subtitle"],

Cell[CellGroupData[{

Cell["Exercice 1", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"2", "-", 
    RowBox[{"5", "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<On consid\[EGrave]re la fonction f :\>\"", "]"}],
   ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<f(x) = \>\"", ",", 
    RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<D\[EAcute]terminer la relation r\[EAcute]ciproque et pr\[EAcute]ciser \
si cette relation est une fonction.\>\"", "]"}], ";"}]}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"On consid\[EGrave]re la fonction f :\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329858900703*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{"2", "-", 
     RowBox[{"5", " ", "x"}]}]}],
   SequenceForm["f(x) = ", 2 - 5 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298589044657`*^9}],

Cell[BoxData[
 FormBox["\<\"D\[EAcute]terminer la relation r\[EAcute]ciproque et \
pr\[EAcute]ciser si cette relation est une fonction.\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298589080057`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"f", "[", "y", "]"}]}], ",", "y"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", ">", "1"}], ",", 
       RowBox[{"Print", "[", "\"\<ou\>\"", "]"}]}], "]"}], ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<y = \>\"", ",", 
       RowBox[{"y", "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "sol", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Length", "[", "sol", "]"}], ">", "1"}], ",", 
   RowBox[{
   "Print", "[", "\"\<cette relation n'est pas une fonction\>\"", "]"}], ",", 
   
   RowBox[{"Print", "[", "\"\<cette relation est une fonction\>\"", "]"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"y = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"2", "-", "x"}], "5"]}],
   SequenceForm["y = ", Rational[1, 5] (2 - $CellContext`x)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859017126*^9}],

Cell[BoxData[
 FormBox["\<\"cette relation est une fonction\"\>", TraditionalForm]], "Print",\

 CellChangeTimes->{3.461329859022352*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercice 2", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{"4", "-", 
    RowBox[{"x", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<On consid\[EGrave]re la fonction f :\>\"", "]"}],
   ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<f(x) = \>\"", ",", 
    RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<D\[EAcute]terminer la relation r\[EAcute]ciproque et pr\[EAcute]ciser \
si cette relation est une fonction.\>\"", "]"}], ";"}]}], "Input",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"On consid\[EGrave]re la fonction f :\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859062559*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{"4", "-", 
     SuperscriptBox["x", "2"]}]}],
   SequenceForm["f(x) = ", 4 - $CellContext`x^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859069895*^9}],

Cell[BoxData[
 FormBox["\<\"D\[EAcute]terminer la relation r\[EAcute]ciproque et \
pr\[EAcute]ciser si cette relation est une fonction.\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859073346*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"f", "[", "y", "]"}]}], ",", "y"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", ">", "1"}], ",", 
       RowBox[{"Print", "[", "\"\<ou\>\"", "]"}]}], "]"}], ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<y = \>\"", ",", 
       RowBox[{"y", "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "sol", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "sol", "]"}], ">", "1"}], ",", 
    RowBox[{
    "Print", "[", "\"\<cette relation n'est pas une fonction\>\"", "]"}], ",", 
    RowBox[{"Print", "[", "\"\<cette relation est une fonction\>\"", "]"}]}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"y = \"\>", "\[InvisibleSpace]", 
    RowBox[{"-", 
     SqrtBox[
      RowBox[{"4", "-", "x"}]]}]}],
   SequenceForm["y = ", -(4 - $CellContext`x)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859134674*^9}],

Cell[BoxData[
 FormBox["\<\"ou\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298591595716`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"y = \"\>", "\[InvisibleSpace]", 
    SqrtBox[
     RowBox[{"4", "-", "x"}]]}],
   SequenceForm["y = ", (4 - $CellContext`x)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859195899*^9}],

Cell[BoxData[
 FormBox["\<\"cette relation n'est pas une fonction\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859225628*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercice 3", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "x"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"x", "+", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<On consid\[EGrave]re la fonction f :\>\"", "]"}],
   ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<f(x) = \>\"", ",", 
    RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<D\[EAcute]terminer la relation r\[EAcute]ciproque et pr\[EAcute]ciser \
si cette relation est une fonction.\>\"", "]"}], ";"}]}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"On consid\[EGrave]re la fonction f :\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298592772837`*^9}],

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

Cell[BoxData[
 FormBox["\<\"D\[EAcute]terminer la relation r\[EAcute]ciproque et \
pr\[EAcute]ciser si cette relation est une fonction.\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298592818527`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"f", "[", "y", "]"}]}], ",", "y"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", ">", "1"}], ",", 
       RowBox[{"Print", "[", "\"\<ou\>\"", "]"}]}], "]"}], ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<y = \>\"", ",", 
       RowBox[{"y", "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "sol", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "sol", "]"}], ">", "1"}], ",", 
    RowBox[{
    "Print", "[", "\"\<cette relation n'est pas une fonction\>\"", "]"}], ",", 
    RowBox[{"Print", "[", "\"\<cette relation est une fonction\>\"", "]"}]}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"y = \"\>", "\[InvisibleSpace]", 
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"3", " ", "x"}]}], 
     RowBox[{"x", "+", "1"}]]}],
   SequenceForm["y = ", (1 - 3 $CellContext`x)/(1 + $CellContext`x)],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298593273563`*^9}],

Cell[BoxData[
 FormBox["\<\"cette relation est une fonction\"\>", TraditionalForm]], "Print",\

 CellChangeTimes->{3.461329859328505*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercice 4", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "-", 
      RowBox[{"3", "x"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", "x"}], "+", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<On consid\[EGrave]re la fonction f :\>\"", "]"}],
   ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<f(x) = \>\"", ",", 
    RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<D\[EAcute]terminer la relation r\[EAcute]ciproque et pr\[EAcute]ciser \
si cette relation est une fonction.\>\"", "]"}], ";"}]}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"On consid\[EGrave]re la fonction f :\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859378461*^9}],

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

Cell[BoxData[
 FormBox["\<\"D\[EAcute]terminer la relation r\[EAcute]ciproque et \
pr\[EAcute]ciser si cette relation est une fonction.\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298593839827`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"f", "[", "y", "]"}]}], ",", "y"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", ">", "1"}], ",", 
       RowBox[{"Print", "[", "\"\<ou\>\"", "]"}]}], "]"}], ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<y = \>\"", ",", 
       RowBox[{"y", "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "sol", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "sol", "]"}], ">", "1"}], ",", 
    RowBox[{
    "Print", "[", "\"\<cette relation n'est pas une fonction\>\"", "]"}], ",", 
    RowBox[{"Print", "[", "\"\<cette relation est une fonction\>\"", "]"}]}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox["\<\"cette relation est une fonction\"\>", TraditionalForm]], "Print",\

 CellChangeTimes->{3.46132985942943*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercice 5", "Section"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "-", 
    RowBox[{"4", "x"}], "+", "6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<On consid\[EGrave]re la fonction f :\>\"", "]"}],
   ";", " ", 
  RowBox[{"Print", "[", 
   RowBox[{"\"\<f(x) = \>\"", ",", 
    RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<D\[EAcute]terminer la relation r\[EAcute]ciproque et pr\[EAcute]ciser \
si cette relation est une fonction.\>\"", "]"}], ";"}]}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"On consid\[EGrave]re la fonction f :\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859460074*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SuperscriptBox["x", "2"], "-", 
     RowBox[{"4", " ", "x"}], "+", "6"}]}],
   SequenceForm["f(x) = ", 6 - 4 $CellContext`x + $CellContext`x^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859461907*^9}],

Cell[BoxData[
 FormBox["\<\"D\[EAcute]terminer la relation r\[EAcute]ciproque et \
pr\[EAcute]ciser si cette relation est une fonction.\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.461329859467155*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solution", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"f", "[", "y", "]"}]}], ",", "y"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", ">", "1"}], ",", 
       RowBox[{"Print", "[", "\"\<ou\>\"", "]"}]}], "]"}], ";", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<y = \>\"", ",", 
       RowBox[{"y", "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "sol", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "sol", "]"}], ">", "1"}], ",", 
    RowBox[{
    "Print", "[", "\"\<cette relation n'est pas une fonction\>\"", "]"}], ",", 
    RowBox[{"Print", "[", "\"\<cette relation est une fonction\>\"", "]"}]}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellOpen->False],

Cell[CellGroupData[{

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

Cell[BoxData[
 FormBox["\<\"ou\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.46132985951311*^9}],

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

Cell[BoxData[
 FormBox["\<\"cette relation n'est pas une fonction\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.4613298595247602`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
PrintingStyleEnvironment->"Working",
WindowSize->{789, 540},
WindowMargins->{{139, Automatic}, {Automatic, 41}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PageHeaders->{{
   Cell[
    TextData[
     CounterBox["Page"]], "Header"], None, 
   Cell[
    TextData[
     ValueBox["FileName"]], "Header"]}, {
   Cell[
    TextData[
     CounterBox["Page"]], "Header"], None, 
   Cell[
    TextData[
     ValueBox["FileName"]], "Header"]}},
PageFooters->{{None, None, 
   Cell["www.macformath.net", "Footer"]}, {None, None, 
   Cell["www.macformath.net", "Footer"]}},
PageHeaderLines->{True, True},
PageFooterLines->{True, True},
PrintingOptions->{"CellBackgroundHalftoneAngle"->Automatic,
"CellBackgroundHalftoneDensity"->Automatic,
"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->True,
"FirstPageHeader"->True,
"GraphicsPrintingFormat"->"Automatic",
"IncludePostScriptResourceDirectives"->True,
"IncludeSpecialFonts"->True,
"Magnification"->1,
"PaperOrientation"->"Portrait",
"PostScriptOutputFile":>"Automatic",
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->True,
"PrintSelectionHighlighting"->False,
"RestPagesFooter"->True,
"RestPagesHeader"->True,
"UnixShellPrintingCommand"->Automatic,
"UsePostScriptOutputFile"->False,
"UseUnixShellPrintingCommand"->False},
CellLabelAutoDelete->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"stylemath.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 53, 0, 38, "Subtitle"],
Cell[CellGroupData[{
Cell[645, 26, 29, 0, 44, "Section"],
Cell[CellGroupData[{
Cell[699, 30, 598, 17, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[1322, 51, 143, 3, 24, "Print"],
Cell[1468, 56, 296, 8, 24, "Print"],
Cell[1767, 66, 216, 4, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2032, 76, 33, 0, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[2090, 80, 1064, 34, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[3179, 118, 301, 8, 44, "Print"],
Cell[3483, 128, 137, 3, 24, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3693, 139, 29, 0, 44, "Section"],
Cell[CellGroupData[{
Cell[3747, 143, 635, 18, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[4407, 165, 143, 3, 24, "Print"],
Cell[4553, 170, 295, 8, 26, "Print"],
Cell[4851, 180, 214, 4, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5114, 190, 33, 0, 28, "Subsubsection"],
Cell[CellGroupData[{
Cell[5172, 194, 1103, 34, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[6300, 232, 315, 9, 35, "Print"],
Cell[6618, 243, 108, 2, 24, "Print"],
Cell[6729, 247, 292, 8, 35, "Print"],
Cell[7024, 257, 144, 3, 24, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7241, 268, 29, 0, 67, "Section"],
Cell[CellGroupData[{
Cell[7295, 272, 680, 20, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[8000, 296, 145, 3, 24, "Print"],
Cell[8148, 301, 339, 9, 44, "Print"],
Cell[8490, 312, 216, 4, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8755, 322, 33, 0, 26, "Subsubsection"],
Cell[CellGroupData[{
Cell[8813, 326, 1103, 34, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[9941, 364, 364, 10, 44, "Print"],
Cell[10308, 376, 137, 3, 24, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10518, 387, 29, 0, 67, "Section"],
Cell[CellGroupData[{
Cell[10572, 391, 724, 22, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[11321, 417, 143, 3, 24, "Print"],
Cell[11467, 422, 397, 11, 44, "Print"],
Cell[11867, 435, 216, 4, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12132, 445, 33, 0, 26, "Subsubsection"],
Cell[CellGroupData[{
Cell[12190, 449, 1103, 34, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[13318, 487, 407, 12, 46, "Print"],
Cell[13728, 501, 136, 3, 24, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13937, 512, 29, 0, 67, "Section"],
Cell[CellGroupData[{
Cell[13991, 516, 633, 18, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[14649, 538, 143, 3, 24, "Print"],
Cell[14795, 543, 350, 9, 26, "Print"],
Cell[15148, 554, 214, 4, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15411, 564, 33, 0, 26, "Subsubsection"],
Cell[CellGroupData[{
Cell[15469, 568, 1103, 34, 19, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[16597, 606, 324, 9, 35, "Print"],
Cell[16924, 617, 105, 2, 24, "Print"],
Cell[17032, 621, 324, 9, 35, "Print"],
Cell[17359, 632, 146, 3, 24, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)