(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.2'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     32250,        925]*)
(*NotebookOutlinePosition[     32888,        947]*)
(*  CellTagsIndexPosition[     32844,        943]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[" Compos\[EAcute]e de fonctions - Exercices", "Subtitle",
  ShowCellBracket->False],

Cell[BoxData[{
    \(\(Composee[{a_, b_, c_}] := 
        StringForm["\<`` o `` o ``\>", a, b, c];\)\), "\[IndentingNewLine]", 
    \(\(CompSol[{a_, b_, c_}] := 
        StringForm["\<``(``(``(x))) = ``(``(``)) = ``(``) =  ``\>", a, b, c, 
          a, b, c[x], a, b@c[x], a@\(b@c[x]\)];\)\), "\[IndentingNewLine]", 
    \(\)}], "Input",
  CellOpen->False],

Cell[CellGroupData[{

Cell["Exercice 1", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(f[x_] := \@\(x - 1\);\)\), "\[IndentingNewLine]", 
    \(\(g[x_] := Sin[x];\)\), "\[IndentingNewLine]", 
    \(\(h[x_] := 1\/x + 2;\)\), "\[IndentingNewLine]", 
    \(\(a[1] = {f, g, h};\)\), "\[IndentingNewLine]", 
    \(\(a[2] = {g, f, h};\)\), "\[IndentingNewLine]", 
    \(\(a[3] = {h, f, g};\)\), "\[IndentingNewLine]", 
    \(\(a[4] = {g, h, f};\)\), "\[IndentingNewLine]", 
    \(Print["\<On consid\[EGrave]re les fonctions f, g et h \>"]; \ 
    Print["\<f(x) = \>", f[x]]; Print["\<g(x) = \>", g[x]]; 
    Print["\<h(x) = \>", h[x]];\), "\[IndentingNewLine]", 
    \(\(Print["\<D\[EAcute]terminer les compos\[EAcute]es \
suivantes:\>"];\)\), "\[IndentingNewLine]", 
    \(\(Do[Print[i, "\<) \>", Composee[a[i]]], {i, 4}];\)\)}], "Input",
  CellOpen->False],

Cell[BoxData[
    \(TraditionalForm\`"On consid\[EGrave]re les fonctions f, g et h "\)], \
"Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("f(x) = "\[InvisibleSpace]\@\(x - 1\)\),
        SequenceForm[ "f(x) = ", 
          Power[ 
            Plus[ -1, x], 
            Rational[ 1, 2]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("g(x) = "\[InvisibleSpace]\(sin(x)\)\),
        SequenceForm[ "g(x) = ", 
          Sin[ x]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("h(x) = "\[InvisibleSpace]\(2 + 1\/x\)\),
        SequenceForm[ "h(x) = ", 
          Plus[ 2, 
            Power[ x, -1]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    \(TraditionalForm\`"D\[EAcute]terminer les compos\[EAcute]es \
suivantes:"\)], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`f\\) o \
\\!\\(TraditionalForm\\`g\\) o \\!\\(TraditionalForm\\`h\\)\"\>",
            StringForm[ "`` o `` o ``", f, g, h],
            Editable->False]}],
        SequenceForm[ 1, ") ", 
          StringForm[ "`` o `` o ``", f, g, h]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\) o \
\\!\\(TraditionalForm\\`f\\) o \\!\\(TraditionalForm\\`h\\)\"\>",
            StringForm[ "`` o `` o ``", g, f, h],
            Editable->False]}],
        SequenceForm[ 2, ") ", 
          StringForm[ "`` o `` o ``", g, f, h]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`h\\) o \
\\!\\(TraditionalForm\\`f\\) o \\!\\(TraditionalForm\\`g\\)\"\>",
            StringForm[ "`` o `` o ``", h, f, g],
            Editable->False]}],
        SequenceForm[ 3, ") ", 
          StringForm[ "`` o `` o ``", h, f, g]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\) o \
\\!\\(TraditionalForm\\`h\\) o \\!\\(TraditionalForm\\`f\\)\"\>",
            StringForm[ "`` o `` o ``", g, h, f],
            Editable->False]}],
        SequenceForm[ 4, ") ", 
          StringForm[ "`` o `` o ``", g, h, f]],
        Editable->False], TraditionalForm]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Do[Print[i, "\<) \>", CompSol[a[i]]], {i, 4}]\)], "Input",
  CellOpen->False],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`f\\)(\\!\\(\
TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`h\\)(x))) = \
\\!\\(TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`\\(2 + 1\\/x\\)\\))) = \
\\!\\(TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`\\(sin(\\(\\(2 + \
1\\/x\\)\\))\\)\\)) =  \\!\\(TraditionalForm\\`\\@\\(\\(\\(sin(\\(\\(2 + \
1\\/x\\)\\))\\)\\) - 1\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", f, g, h, f, g, 
              Plus[ 2, 
                Power[ x, -1]], f, 
              Sin[ 
                Plus[ 2, 
                  Power[ x, -1]]], 
              Power[ 
                Plus[ -1, 
                  Sin[ 
                    Plus[ 2, 
                      Power[ x, -1]]]], 
                Rational[ 1, 2]]],
            Editable->False]}],
        SequenceForm[ 1, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", f, g, h, f, g, 
            Plus[ 2, 
              Power[ x, -1]], f, 
            Sin[ 
              Plus[ 2, 
                Power[ x, -1]]], 
            Power[ 
              Plus[ -1, 
                Sin[ 
                  Plus[ 2, 
                    Power[ x, -1]]]], 
              Rational[ 1, 2]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`h\\)(x))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`f\\)(\\!\\(\
TraditionalForm\\`\\(2 + 1\\/x\\)\\))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`\\@\\(1 + 1\\/x\\)\\)) = \
 \\!\\(TraditionalForm\\`\\(sin(\\(\\(\\@\\(1 + 1\\/x\\)\\)\\))\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, f, h, g, f, 
              Plus[ 2, 
                Power[ x, -1]], g, 
              Power[ 
                Plus[ 1, 
                  Power[ x, -1]], 
                Rational[ 1, 2]], 
              Sin[ 
                Power[ 
                  Plus[ 1, 
                    Power[ x, -1]], 
                  Rational[ 1, 2]]]],
            Editable->False]}],
        SequenceForm[ 2, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, f, h, g, f, 
            Plus[ 2, 
              Power[ x, -1]], g, 
            Power[ 
              Plus[ 1, 
                Power[ x, -1]], 
              Rational[ 1, 2]], 
            Sin[ 
              Power[ 
                Plus[ 1, 
                  Power[ x, -1]], 
                Rational[ 1, 2]]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`g\\)(x))) = \
\\!\\(TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`f\\)(\\!\\(\
TraditionalForm\\`\\(sin(x)\\)\\))) = \
\\!\\(TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`\\@\\(\\(\\(sin(x)\\)\\) \
- 1\\)\\)) =  \\!\\(TraditionalForm\\`\\(2 + 1\\/\\@\\(\\(\\(sin(x)\\)\\) - 1\
\\)\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", h, f, g, h, f, 
              Sin[ x], h, 
              Power[ 
                Plus[ -1, 
                  Sin[ x]], 
                Rational[ 1, 2]], 
              Plus[ 2, 
                Power[ 
                  Plus[ -1, 
                    Sin[ x]], 
                  Rational[ -1, 2]]]],
            Editable->False]}],
        SequenceForm[ 3, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", h, f, g, h, f, 
            Sin[ x], h, 
            Power[ 
              Plus[ -1, 
                Sin[ x]], 
              Rational[ 1, 2]], 
            Plus[ 2, 
              Power[ 
                Plus[ -1, 
                  Sin[ x]], 
                Rational[ -1, 2]]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`f\\)(x))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`\\@\\(x - 1\\)\\))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`\\(2 + 1\\/\\@\\(x - \
1\\)\\)\\)) =  \\!\\(TraditionalForm\\`\\(sin(\\(\\(2 + 1\\/\\@\\(x - 1\\)\\)\
\\))\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, f, g, h, 
              Power[ 
                Plus[ -1, x], 
                Rational[ 1, 2]], g, 
              Plus[ 2, 
                Power[ 
                  Plus[ -1, x], 
                  Rational[ -1, 2]]], 
              Sin[ 
                Plus[ 2, 
                  Power[ 
                    Plus[ -1, x], 
                    Rational[ -1, 2]]]]],
            Editable->False]}],
        SequenceForm[ 4, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, f, g, h, 
            Power[ 
              Plus[ -1, x], 
              Rational[ 1, 2]], g, 
            Plus[ 2, 
              Power[ 
                Plus[ -1, x], 
                Rational[ -1, 2]]], 
            Sin[ 
              Plus[ 2, 
                Power[ 
                  Plus[ -1, x], 
                  Rational[ -1, 2]]]]]],
        Editable->False], TraditionalForm]], "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercice 2", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(f[x_] := x^2 - 1;\)\), "\[IndentingNewLine]", 
    \(\(g[x_] := 1/\((x - 1)\);\)\), "\[IndentingNewLine]", 
    \(\(h[x_] := Sqrt[x] + 1;\)\), "\[IndentingNewLine]", 
    \(\(a[1] = {h, g, f};\)\), "\[IndentingNewLine]", 
    \(\(a[2] = {g, f, h};\)\), "\[IndentingNewLine]", 
    \(\(a[3] = {f, g, f};\)\), "\[IndentingNewLine]", 
    \(\(a[4] = {g, h, f};\)\), "\[IndentingNewLine]", 
    \(Print["\<On consid\[EGrave]re les fonctions f, g et h \>"]; \ 
    Print["\<f(x) = \>", f[x]]; Print["\<g(x) = \>", g[x]]; 
    Print["\<h(x) = \>", h[x]];\), "\[IndentingNewLine]", 
    \(\(Print["\<D\[EAcute]terminer les compos\[EAcute]es \
suivantes:\>"];\)\), "\[IndentingNewLine]", 
    \(\(Do[Print[i, "\<) \>", Composee[a[i]]], {i, 4}];\)\)}], "Input",
  CellOpen->False],

Cell[BoxData[
    \(TraditionalForm\`"On consid\[EGrave]re les fonctions f, g et h "\)], \
"Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("f(x) = "\[InvisibleSpace]\(x\^2 - 1\)\),
        SequenceForm[ "f(x) = ", 
          Plus[ -1, 
            Power[ x, 2]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("g(x) = "\[InvisibleSpace]1\/\(x - 1\)\),
        SequenceForm[ "g(x) = ", 
          Power[ 
            Plus[ -1, x], -1]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("h(x) = "\[InvisibleSpace]\(\@x + 1\)\),
        SequenceForm[ "h(x) = ", 
          Plus[ 1, 
            Power[ x, 
              Rational[ 1, 2]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    \(TraditionalForm\`"D\[EAcute]terminer les compos\[EAcute]es \
suivantes:"\)], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`h\\) o \
\\!\\(TraditionalForm\\`g\\) o \\!\\(TraditionalForm\\`f\\)\"\>",
            StringForm[ "`` o `` o ``", h, g, f],
            Editable->False]}],
        SequenceForm[ 1, ") ", 
          StringForm[ "`` o `` o ``", h, g, f]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\) o \
\\!\\(TraditionalForm\\`f\\) o \\!\\(TraditionalForm\\`h\\)\"\>",
            StringForm[ "`` o `` o ``", g, f, h],
            Editable->False]}],
        SequenceForm[ 2, ") ", 
          StringForm[ "`` o `` o ``", g, f, h]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`f\\) o \
\\!\\(TraditionalForm\\`g\\) o \\!\\(TraditionalForm\\`f\\)\"\>",
            StringForm[ "`` o `` o ``", f, g, f],
            Editable->False]}],
        SequenceForm[ 3, ") ", 
          StringForm[ "`` o `` o ``", f, g, f]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\) o \
\\!\\(TraditionalForm\\`h\\) o \\!\\(TraditionalForm\\`f\\)\"\>",
            StringForm[ "`` o `` o ``", g, h, f],
            Editable->False]}],
        SequenceForm[ 4, ") ", 
          StringForm[ "`` o `` o ``", g, h, f]],
        Editable->False], TraditionalForm]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Do[Print[i, "\<) \>", CompSol[a[i]]], {i, 4}]\)], "Input",
  CellOpen->False],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`f\\)(x))) = \
\\!\\(TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`\\(x\\^2 - 1\\)\\))) = \
\\!\\(TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`1\\/\\(x\\^2 - 2\\)\\)) \
=  \\!\\(TraditionalForm\\`\\(\\@\\(1\\/\\(x\\^2 - 2\\)\\) + 1\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", h, g, f, h, g, 
              Plus[ -1, 
                Power[ x, 2]], h, 
              Power[ 
                Plus[ -2, 
                  Power[ x, 2]], -1], 
              Plus[ 1, 
                Power[ 
                  Power[ 
                    Plus[ -2, 
                      Power[ x, 2]], -1], 
                  Rational[ 1, 2]]]],
            Editable->False]}],
        SequenceForm[ 1, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", h, g, f, h, g, 
            Plus[ -1, 
              Power[ x, 2]], h, 
            Power[ 
              Plus[ -2, 
                Power[ x, 2]], -1], 
            Plus[ 1, 
              Power[ 
                Power[ 
                  Plus[ -2, 
                    Power[ x, 2]], -1], 
                Rational[ 1, 2]]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`h\\)(x))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`f\\)(\\!\\(\
TraditionalForm\\`\\(\\@x + 1\\)\\))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`\\(\\((\\@x + 1)\\)\\^2 \
- 1\\)\\)) =  \\!\\(TraditionalForm\\`1\\/\\(\\((\\@x + 1)\\)\\^2 - 2\\)\\)\"\
\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, f, h, g, f, 
              Plus[ 1, 
                Power[ x, 
                  Rational[ 1, 2]]], g, 
              Plus[ -1, 
                Power[ 
                  Plus[ 1, 
                    Power[ x, 
                      Rational[ 1, 2]]], 2]], 
              Power[ 
                Plus[ -2, 
                  Power[ 
                    Plus[ 1, 
                      Power[ x, 
                        Rational[ 1, 2]]], 2]], -1]],
            Editable->False]}],
        SequenceForm[ 2, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, f, h, g, f, 
            Plus[ 1, 
              Power[ x, 
                Rational[ 1, 2]]], g, 
            Plus[ -1, 
              Power[ 
                Plus[ 1, 
                  Power[ x, 
                    Rational[ 1, 2]]], 2]], 
            Power[ 
              Plus[ -2, 
                Power[ 
                  Plus[ 1, 
                    Power[ x, 
                      Rational[ 1, 2]]], 2]], -1]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`f\\)(\\!\\(\
TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`f\\)(x))) = \
\\!\\(TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`\\(x\\^2 - 1\\)\\))) = \
\\!\\(TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`1\\/\\(x\\^2 - 2\\)\\)) \
=  \\!\\(TraditionalForm\\`\\(1\\/\\((x\\^2 - 2)\\)\\^2 - 1\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", f, g, f, f, g, 
              Plus[ -1, 
                Power[ x, 2]], f, 
              Power[ 
                Plus[ -2, 
                  Power[ x, 2]], -1], 
              Plus[ -1, 
                Power[ 
                  Plus[ -2, 
                    Power[ x, 2]], -2]]],
            Editable->False]}],
        SequenceForm[ 3, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", f, g, f, f, g, 
            Plus[ -1, 
              Power[ x, 2]], f, 
            Power[ 
              Plus[ -2, 
                Power[ x, 2]], -1], 
            Plus[ -1, 
              Power[ 
                Plus[ -2, 
                  Power[ x, 2]], -2]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`f\\)(x))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`\\(x\\^2 - 1\\)\\))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`\\(\\@\\(x\\^2 - 1\\) + \
1\\)\\)) =  \\!\\(TraditionalForm\\`1\\/\\@\\(x\\^2 - 1\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, f, g, h, 
              Plus[ -1, 
                Power[ x, 2]], g, 
              Plus[ 1, 
                Power[ 
                  Plus[ -1, 
                    Power[ x, 2]], 
                  Rational[ 1, 2]]], 
              Power[ 
                Plus[ -1, 
                  Power[ x, 2]], 
                Rational[ -1, 2]]],
            Editable->False]}],
        SequenceForm[ 4, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, f, g, h, 
            Plus[ -1, 
              Power[ x, 2]], g, 
            Plus[ 1, 
              Power[ 
                Plus[ -1, 
                  Power[ x, 2]], 
                Rational[ 1, 2]]], 
            Power[ 
              Plus[ -1, 
                Power[ x, 2]], 
              Rational[ -1, 2]]]],
        Editable->False], TraditionalForm]], "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercice 3", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(f[x_] := Abs[x];\)\), "\[IndentingNewLine]", 
    \(\(g[x_] := x/\((x + 2)\);\)\), "\[IndentingNewLine]", 
    \(\(h[x_] := x^3;\)\), "\[IndentingNewLine]", 
    \(\(a[1] = {f, g, h};\)\), "\[IndentingNewLine]", 
    \(\(a[2] = {g, h, h};\)\), "\[IndentingNewLine]", 
    \(\(a[3] = {h, g, f};\)\), "\[IndentingNewLine]", 
    \(\(a[4] = {g, h, f};\)\), "\[IndentingNewLine]", 
    \(Print["\<On consid\[EGrave]re les fonctions f, g et h \>"]; \ 
    Print["\<f(x) = \>", f[x]]; Print["\<g(x) = \>", g[x]]; 
    Print["\<h(x) = \>", h[x]];\), "\[IndentingNewLine]", 
    \(\(Print["\<D\[EAcute]terminer les compos\[EAcute]es \
suivantes:\>"];\)\), "\[IndentingNewLine]", 
    \(\(Do[Print[i, "\<) \>", Composee[a[i]]], {i, 4}];\)\)}], "Input",
  CellOpen->False],

Cell[BoxData[
    \(TraditionalForm\`"On consid\[EGrave]re les fonctions f, g et h "\)], \
"Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("f(x) = "\[InvisibleSpace]\[LeftBracketingBar]x\
\[RightBracketingBar]\),
        SequenceForm[ "f(x) = ", 
          Abs[ x]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("g(x) = "\[InvisibleSpace]x\/\(x + 2\)\),
        SequenceForm[ "g(x) = ", 
          Times[ x, 
            Power[ 
              Plus[ 2, x], -1]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[\("h(x) = "\[InvisibleSpace]x\^3\),
        SequenceForm[ "h(x) = ", 
          Power[ x, 3]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    \(TraditionalForm\`"D\[EAcute]terminer les compos\[EAcute]es \
suivantes:"\)], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`f\\) o \
\\!\\(TraditionalForm\\`g\\) o \\!\\(TraditionalForm\\`h\\)\"\>",
            StringForm[ "`` o `` o ``", f, g, h],
            Editable->False]}],
        SequenceForm[ 1, ") ", 
          StringForm[ "`` o `` o ``", f, g, h]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\) o \
\\!\\(TraditionalForm\\`h\\) o \\!\\(TraditionalForm\\`h\\)\"\>",
            StringForm[ "`` o `` o ``", g, h, h],
            Editable->False]}],
        SequenceForm[ 2, ") ", 
          StringForm[ "`` o `` o ``", g, h, h]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`h\\) o \
\\!\\(TraditionalForm\\`g\\) o \\!\\(TraditionalForm\\`f\\)\"\>",
            StringForm[ "`` o `` o ``", h, g, f],
            Editable->False]}],
        SequenceForm[ 3, ") ", 
          StringForm[ "`` o `` o ``", h, g, f]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\) o \
\\!\\(TraditionalForm\\`h\\) o \\!\\(TraditionalForm\\`f\\)\"\>",
            StringForm[ "`` o `` o ``", g, h, f],
            Editable->False]}],
        SequenceForm[ 4, ") ", 
          StringForm[ "`` o `` o ``", g, h, f]],
        Editable->False], TraditionalForm]], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solutions", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Do[Print[i, "\<) \>", CompSol[a[i]]], {i, 4}]\)], "Input",
  CellOpen->False],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`f\\)(\\!\\(\
TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`h\\)(x))) = \
\\!\\(TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`x\\^3\\))) = \
\\!\\(TraditionalForm\\`f\\)(\\!\\(TraditionalForm\\`x\\^3\\/\\(x\\^3 + \
2\\)\\)) =  \\!\\(TraditionalForm\\`\\(\[LeftBracketingBar] \
\\(\\(x\\^3\\/\\(x\\^3 + 2\\)\\)\\) \[RightBracketingBar]\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", f, g, h, f, g, 
              Power[ x, 3], f, 
              Times[ 
                Power[ x, 3], 
                Power[ 
                  Plus[ 2, 
                    Power[ x, 3]], -1]], 
              Abs[ 
                Times[ 
                  Power[ x, 3], 
                  Power[ 
                    Plus[ 2, 
                      Power[ x, 3]], -1]]]],
            Editable->False]}],
        SequenceForm[ 1, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", f, g, h, f, g, 
            Power[ x, 3], f, 
            Times[ 
              Power[ x, 3], 
              Power[ 
                Plus[ 2, 
                  Power[ x, 3]], -1]], 
            Abs[ 
              Times[ 
                Power[ x, 3], 
                Power[ 
                  Plus[ 2, 
                    Power[ x, 3]], -1]]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`h\\)(x))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`x\\^3\\))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`x\\^9\\)) =  \
\\!\\(TraditionalForm\\`x\\^9\\/\\(x\\^9 + 2\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, h, g, h, 
              Power[ x, 3], g, 
              Power[ x, 9], 
              Times[ 
                Power[ x, 9], 
                Power[ 
                  Plus[ 2, 
                    Power[ x, 9]], -1]]],
            Editable->False]}],
        SequenceForm[ 2, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, h, g, h, 
            Power[ x, 3], g, 
            Power[ x, 9], 
            Times[ 
              Power[ x, 9], 
              Power[ 
                Plus[ 2, 
                  Power[ x, 9]], -1]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`f\\)(x))) = \
\\!\\(TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`\\(\[LeftBracketingBar] x \[RightBracketingBar]\\)\\))) = \
\\!\\(TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`\\(\[LeftBracketingBar] \
x \[RightBracketingBar]\\)\\/\\(\\(\\(\[LeftBracketingBar] x \
\[RightBracketingBar]\\)\\) + 2\\)\\)) =  \\!\\(TraditionalForm\\`\\(\
\[LeftBracketingBar] x \[RightBracketingBar]\\)\\^3\\/\\((\\(\\(\
\[LeftBracketingBar] x \[RightBracketingBar]\\)\\) + 2)\\)\\^3\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", h, g, f, h, g, 
              Abs[ x], h, 
              Times[ 
                Abs[ x], 
                Power[ 
                  Plus[ 2, 
                    Abs[ x]], -1]], 
              Times[ 
                Power[ 
                  Abs[ x], 3], 
                Power[ 
                  Plus[ 2, 
                    Abs[ x]], -3]]],
            Editable->False]}],
        SequenceForm[ 3, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", h, g, f, h, g, 
            Abs[ x], h, 
            Times[ 
              Abs[ x], 
              Power[ 
                Plus[ 2, 
                  Abs[ x]], -1]], 
            Times[ 
              Power[ 
                Abs[ x], 3], 
              Power[ 
                Plus[ 2, 
                  Abs[ x]], -3]]]],
        Editable->False], TraditionalForm]], "Print"],

Cell[BoxData[
    FormBox[
      InterpretationBox[
        RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", 
          
          InterpretationBox["\<\"\\!\\(TraditionalForm\\`g\\)(\\!\\(\
TraditionalForm\\`h\\)(\\!\\(TraditionalForm\\`f\\)(x))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`h\\)(\\!\\(\
TraditionalForm\\`\\(\[LeftBracketingBar] x \[RightBracketingBar]\\)\\))) = \
\\!\\(TraditionalForm\\`g\\)(\\!\\(TraditionalForm\\`\\(\[LeftBracketingBar] \
x \[RightBracketingBar]\\)\\^3\\)) =  \\!\\(TraditionalForm\\`\\(\
\[LeftBracketingBar] x \[RightBracketingBar]\\)\\^3\\/\\(\\(\
\[LeftBracketingBar] x \[RightBracketingBar]\\)\\^3 + 2\\)\\)\"\>",
            StringForm[ 
            "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, f, g, h, 
              Abs[ x], g, 
              Power[ 
                Abs[ x], 3], 
              Times[ 
                Power[ 
                  Abs[ x], 3], 
                Power[ 
                  Plus[ 2, 
                    Power[ 
                      Abs[ x], 3]], -1]]],
            Editable->False]}],
        SequenceForm[ 4, ") ", 
          StringForm[ 
          "``(``(``(x))) = ``(``(``)) = ``(``) =  ``", g, h, f, g, h, 
            Abs[ x], g, 
            Power[ 
              Abs[ x], 3], 
            Times[ 
              Power[ 
                Abs[ x], 3], 
              Power[ 
                Plus[ 2, 
                  Power[ 
                    Abs[ x], 3]], -1]]]],
        Editable->False], TraditionalForm]], "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"5.2 for Macintosh",
ScreenRectangle->{{4, 1280}, {0, 1002}},
WindowSize->{958, 643},
WindowMargins->{{24, Automatic}, {Automatic, 37}}
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1776, 53, 88, 1, 52, "Subtitle"],
Cell[1867, 56, 356, 7, 19, "Input",
  CellOpen->False],

Cell[CellGroupData[{
Cell[2248, 67, 32, 0, 38, "Subsection"],

Cell[CellGroupData[{
Cell[2305, 71, 788, 14, 19, "Input",
  CellOpen->False],
Cell[3096, 87, 99, 2, 25, "Print"],
Cell[3198, 91, 257, 7, 27, "Print"],
Cell[3458, 100, 200, 5, 25, "Print"],
Cell[3661, 107, 231, 6, 41, "Print"],
Cell[3895, 115, 105, 2, 25, "Print"],
Cell[4003, 119, 489, 11, 25, "Print"],
Cell[4495, 132, 489, 11, 25, "Print"],
Cell[4987, 145, 489, 11, 25, "Print"],
Cell[5479, 158, 489, 11, 25, "Print"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6005, 174, 34, 0, 28, "Subsubsection"],

Cell[CellGroupData[{
Cell[6064, 178, 97, 2, 19, "Input",
  CellOpen->False],
Cell[6164, 182, 1493, 40, 47, "Print"],
Cell[7660, 224, 1475, 39, 50, "Print"],
Cell[9138, 265, 1417, 38, 45, "Print"],
Cell[10558, 305, 1558, 42, 46, "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{
Cell[12177, 354, 32, 0, 38, "Subsection"],

Cell[CellGroupData[{
Cell[12234, 358, 794, 14, 19, "Input",
  CellOpen->False],
Cell[13031, 374, 99, 2, 25, "Print"],
Cell[13133, 378, 231, 6, 27, "Print"],
Cell[13367, 386, 232, 6, 41, "Print"],
Cell[13602, 394, 258, 7, 27, "Print"],
Cell[13863, 403, 105, 2, 25, "Print"],
Cell[13971, 407, 489, 11, 25, "Print"],
Cell[14463, 420, 489, 11, 25, "Print"],
Cell[14955, 433, 489, 11, 25, "Print"],
Cell[15447, 446, 489, 11, 25, "Print"]
}, Open  ]],

Cell[CellGroupData[{
Cell[15973, 462, 34, 0, 28, "Subsubsection"],

Cell[CellGroupData[{
Cell[16032, 466, 97, 2, 19, "Input",
  CellOpen->False],
Cell[16132, 470, 1491, 39, 47, "Print"],
Cell[17626, 511, 1703, 46, 47, "Print"],
Cell[19332, 559, 1360, 35, 43, "Print"],
Cell[20695, 596, 1476, 39, 50, "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{
Cell[22232, 642, 32, 0, 38, "Subsection"],

Cell[CellGroupData[{
Cell[22289, 646, 785, 14, 19, "Input",
  CellOpen->False],
Cell[23077, 662, 99, 2, 25, "Print"],
Cell[23179, 666, 234, 6, 25, "Print"],
Cell[23416, 674, 257, 7, 39, "Print"],
Cell[23676, 683, 199, 5, 27, "Print"],
Cell[23878, 690, 105, 2, 25, "Print"],
Cell[23986, 694, 489, 11, 25, "Print"],
Cell[24478, 707, 489, 11, 25, "Print"],
Cell[24970, 720, 489, 11, 25, "Print"],
Cell[25462, 733, 489, 11, 25, "Print"]
}, Open  ]],

Cell[CellGroupData[{
Cell[25988, 749, 34, 0, 28, "Subsubsection"],

Cell[CellGroupData[{
Cell[26047, 753, 97, 2, 19, "Input",
  CellOpen->False],
Cell[26147, 757, 1577, 42, 46, "Print"],
Cell[27727, 801, 1208, 31, 45, "Print"],
Cell[28938, 834, 1715, 44, 47, "Print"],
Cell[30656, 880, 1542, 39, 47, "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)