(* 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[     22556,        584]
NotebookOptionsPosition[     21252,        536]
NotebookOutlinePosition[     21589,        551]
CellTagsIndexPosition[     21546,        548]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["2. Image d'une fonction", "Subsubsection",
 CellChangeTimes->{{3.399729575530548*^9, 3.399729576360353*^9}, {
  3.3997296072742453`*^9, 3.399729610464183*^9}}],

Cell[TextData[{
 StyleBox["D\[EAcute]finition",
  FontVariations->{"Underline"->True}],
 " : soit f, une fonction r\[EAcute]elle\n\n",
 StyleBox["im f = {y \[Element] \[DoubleStruckCapitalR] : y = f(x) et x \
\[Element] dom f }",
  FontColor->RGBColor[0, 0, 1]]
}], "Text",
 CellChangeTimes->{{3.3997249401964607`*^9, 3.3997250285122423`*^9}, {
  3.399730477970831*^9, 3.3997305195686617`*^9}}],

Cell["\<\
D\[EAcute]terminer l'image d'une fonction, c'est trouver les r\[EAcute]els y \
qui sont image d'une r\[EAcute]el par f, c'est-\[AGrave]-dire l'ensemble de \
toutes les images.


Il n'est pas possible, \[AGrave] ce stade du cours, de trouver l'image d'une \
fonction alg\[EAcute]brique quelconque.\[LineSeparator]Nous nous contentons \
donc des fonctions connues telles que les fonctions \
\[EAcute]l\[EAcute]mentaires (1/x, |x|, ...) et les fonctions du 1er et 2nd \
degr\[EAcute]. Sans oublier les fonctions obtenues par manipulation du graphe \
cart\[EAcute]sien des fonctions \[EAcute]l\[EAcute]mentaires.
En fait, il est surtout facile de d\[EAcute]terminer l'image si l'on connait \
le graphe cart\[EAcute]sien de la fonction.
\
\>", "Text",
 CellChangeTimes->{{3.399725060135434*^9, 3.399725199583449*^9}, {
  3.399725260880971*^9, 3.3997252869915743`*^9}, {3.399725424121127*^9, 
  3.3997255499594727`*^9}, {3.399725586881123*^9, 3.3997256679848747`*^9}, {
  3.399725716202712*^9, 3.39972571767274*^9}, {3.399725919114477*^9, 
  3.399725920227268*^9}, {3.399730533546055*^9, 3.3997305882498827`*^9}, {
  3.399730619481679*^9, 3.3997307601284323`*^9}, {3.399731302955265*^9, 
  3.399731304513795*^9}, {3.3997318213301992`*^9, 3.399731856128849*^9}}],

Cell[TextData[{
 "exemple:\td\[EAcute]terminer l'image d'une fonction du second degr\[EAcute]\
\n\n\tf(x) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "-", 
    RowBox[{"3", "x"}], "+", "2"}], TraditionalForm]]],
 "\[LineSeparator]Le coefficient a de ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], TraditionalForm]]],
 "\[EAcute]tant positif, la parabole tourne sa concavit\[EAcute] vers le \
haut.\[LineSeparator]"
}], "Text",
 CellChangeTimes->{{3.399730822403512*^9, 3.399730827712171*^9}, {
  3.399731310528861*^9, 3.399731394073675*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gf", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"3", "x"}], "+", "2"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "gf", "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.399731403254314*^9, 3.399731469963975*^9}}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1lwk0VG8fxwdjKykpbSq0jRKyU/ndaF8VSSqGtCOpRJbGvpf4U7YaoYWK
pA31jKWxz5Ut+4x997cMM8b23vc9573n3HPP53ye7/c+z3mec+65ira3z1wR
JpFItcT932dlGs3qOvQj0v+uFZh6fyNXLbEH0R8W/DR/uBzbn9MsOWfOQTSN
um1656Qxp3cZfBnZGpS8EFYi0yqOmV/dlFTt8QMpdMlnkFyFseKKxhBN0+/w
cj0k2UTPgMHO/CyTZzXQtbao6wxrHLRr62N+ldbAmP8ac6PMcVB3H3qoMlsD
XLc3qQcix2Fr6SpjCZtaaJ61Zweaj4PsFccatL0OVB1f/BSwx2AoYR1X9Vc9
9M7HbY6bGoWXUi7aS7obweLTpP6jKyMg7LKyxW4NB7hNaY5HK3vBkppW/V2L
A6uv+Op2x/RC1lEolTLhwHjBvQ8fqb1gu/HG1+wADlRPJ9EruT1QUJIXQeZy
QN1sa8rujT3gu87uQAqrHRxz6zc2eHQBOT/rY6dvJ/BN6/uXX2iHi+mHUnVf
doL82dKzvtvbITu6JT40pxMEynWOSgIO2N0UC9Yc64SWk7pvh2I58FvW8rKv
VRfQFh1zsv3GhoCrQqs36XeDwhHT2Em8BcSlTLxtR3rA1TIpYuOhv2CxzZKh
I9kLHFEDbYOJekgzsltYtLkXSD63aj6+rIeTbq6en8/3guvQ89nU6TqI6aG7
kX/3gkTIeuGKT7WwNX/szuv4PljRV9k4pVENB1yibAcODwBmHfPgyVgZxDxN
TPp1eQDoXTNbjall0Pf+DSfSawAsFkeVpuGlENaZa7U7ewDU95r3RWeWQK1J
l2XYxkGw0FAPa37IBLsd2qaqU4NAtdVw2LyrAHw59cbOycNA+symnD+SDW0/
jjm45hG8fFZXz+4zGEQxYrzqhkGhXtfGhJYFowfS+kPER4DxeImwSl4mWKV7
Pkm+NQLUR5cFCv5pYOCyublW818g+d67ok+Jg2lR/R/rbEeB5EG6EDz6DL12
nqh84UjwuRZpWl8cMmN/6FB0HwVagoFlZHMiyvyuJEX5h/BaqNmvMQldvSVl
rcUkmCbDTIp6g2qr2OQT28cAk3Lt1TvyCWXGB5h4jY8B7U2ZhfalXFQuG9C7
lDQOVMGxxl+kPNQT6u+VtGQcSAlBig2v8pC8h9/7IgrhyzUlczp+oqCLPhKL
rcdBYfhtXCKFgajrvRjPyolzftGcFnuvALlHe55TbiS8+x2vlpwCFLPEcySn
h8jvu0m9RipEFXPu8m1CE8Ap5OJmwYVIr83NdbPeBJCSHC49jixCy17eV/+U
MgG03JFdHj5MtGPV/WKjrAmoOtXlsPcnEx18cs+qFhE+9Fv4QR4TeTy6G8Zr
Ivr4U67qN4pRn/Wdvr0yXGCkN87Z7i9BIg1Oj/ANBD/Ms7jsVoI2mDjJ2ahw
QWHM41n6hxJkht3e73eIC6TaGIbsilLEUHCgl3lygX5HNd+ooRQ1P7fXvRjK
Bar7vIGPeBmaWmbPGn7OBZrK++eSOmVIRejW7LJsot+PvvBvRBl63n7d4twA
F7Alw+7rDMvR7Vd2y7rMJyHCa6Xq8P0K9NgtNuHxZYJF/cRNnlWgjyYsir7T
JNBWqjkv/16BRuZ19z0OnoRR3GDmC68C2V9Y7KyXNwlYBqXlwe1KFKaBzXeU
EOzpDn9DK9F7yfsh4XWTsKx2kVbMm0o0+K3tVcfIJJjIs6s0WivRzRVZNWGK
U0BdZdXYg7FQyGCPta7qFGAq0UwjCxZKK1g31G4wBaQyiQPzjizU7+RP1jWb
AgV66mRUHAtJHM6JaKcS+QbWNscMFqJs/Fc+zGEK6LFag28KWeh6pYV2e8AU
ZH79ssVggIWCUsLzQ6OmgLb8T0LkLAu9dS84oUOfAnUeJfWoNI56lVWuhv4g
+i88vtGohiMxIZtxbSbR3xS/JRNwtLUh2otTTeQ7up17TuLoasBCjPYQ4cPV
8u/cwlHAJa1NxF6DgrpaAdMVR6+1bmSEiPKAceGWmbs/jro7qovZG3hAPxGr
IpKII3KOuFnIDh5UyYY617/B0eanezhaejzg2P44IpmFIzt4zQ8+TYyPL08P
L8KRn1yzn5YVDzD/DB12BY5ShpfKsG8SeR5+JqIWR0VF+xODH/BAfUKFlNSM
o854N2UtPx44PWAaynTgSPjuxy9tEUSfX4J0ey+OlI527gtOJHhtxu1lwzgy
UlzN0kzjAU1/3ublGI5s+cct274Sfe3B3eGTOPLBvXuCCon1yJwRNPNx9Or1
V2fNKsKXm9ODZ3BU4Dk439pC5Jc8/xszh6N2M4XQoH4eZDaspIss4IikcnaV
5hTBKlXTOMEKIiHJrcJ8oEsWd80QjDX9UgtaygfqbQE1kGDqp4lcDXk+kKxu
OjrP44gWRDncSuEDrU5uyc9ZHNGtL9UGavOBU7ew55oARwydSKqGER8UrLfM
O/FwxF5SPNRykg/qdwJNmiZwNN814xp4gfBSW7WS/8XRhjx1UY3rfBhVE3pX
PoAjw6grT1vuEfNpWZ1h2o0jq5tx6wO9ifxyh4O72TiaaZRkjYXzgVFymp3a
gKPnR9y8LsYR73fRPubyB0daP/pUi1/zIVN+dcj7Uhz9oViwd30m8jnT8Yfz
ceT4vPhJAiL4VBPt6HccLZLQxcQriPm0/NDL+oij/b0rk1q6iPW13Ff8HIsj
jrn/6UNjfMBMzpw5/hhHnkyuUNYc0Z+70/yYD46+ptbYBspNg4lbe/3D6zgy
XWksO640DZnlP0zTLXE06pdVeFGN4JVPk/cdx5Gy3dPNGocJjtiT93Injpg1
pLoEs2mIyF/mf209sd/GTv7iNkTfQKdCtBSOEpRO9bS4TYOTUuAfxX4Wkm6X
ehuYPg101Xw5oXgWSjfxsBj/Ng1V8uEPeP4sdJgxKHGpiOgXtkg3dWIh75dl
NzRap4H6ZSB0rzELcS8F7WiVFkDEV5Fdf9srUUQlr/nQOgGM2hQrzxZXop17
r4VlbRPAMtGQyYAPleiq/MHhQEwAChpSYiyXStTYJJKh4SwAEwp5sZJwJXI5
etc60UsAnAgUf7+zAi3P6VgqEUr4MbcF1aIKdDw236k1WQBVzwehxrcC/Tr3
SCOojmDfgpT2mXJ0oXikY7xdAIx39ysvN5Qjvo5V1KURIl+8rfRYdjnaJbeX
qyE+A079QfonbpajlFrBl1a9GaCWGs6vxMtQ8GkXfc2EGWDwXVch91IUWbHd
/v27GciMFlNlHC1FCYfYL7Z8I/LdUnmL15SizL2HyaurZ4CW6Gvo87kENSiv
xWfFZ2H09prWIXYxogj/smPenQV6Yg/tuxwTaXg6PwPvWcCuL0jbNP1Ge/hb
y74/noWI7ogVZom/kcnIE7X0d7PE92V9wBrF3+hBk43gCXsWMr05wkoKRYiZ
JRpx/tgcqMuLX1aezUdVO3MKqi3mgLoi/bpbdj5qeus4eezqHDih4m5Z+3w0
8uKvpaH3HHB23jpIaWQgudB3WzZ9mwOsKdso8SxCVy6fyB1SmgesP9t9k0UO
Iq+I7nkkIDjO5wAz9iNaPuIlvVx8AUgLMw6v9D8gxZLrOimyC0Dz/OYm9jcd
GXrsCShRWQBGKdfg6qJ3yK2rc4uMNTGeHmTnZ5qMRrI1rrwqJJhvZjKcF46G
tvfdsT1Iwmg5ey/Ya74C7qpW//TjBEt6l0V1JMMMuTqWe4ZgQx9zzX9SYRE7
Nz/AmoSRzv8qapp/C9uinsikuxL+9HpB2VgG2M7ofJpIIzxlt93qbd/gb7n/
qN9SIYym0O2xX68Q/jFMPHBWTghjhIpOPy4ohDOfsuO2rBfCsB7jHVEnioAV
07mfuZ3g62uzSq78BqbNvljxg0IYKUn1SN+LYvjKm90X4iGE0bsnEqY1KyBm
072oJ/1CmEmrq0MWtxrOutvqxBUKY5wjlxo+MlohJnGFGK9UGHPy4mwYkGuD
esSsM60SxtQPUS66OLSBOXnH/SWtwhgtWjTXex0bLMInPtOmhLG+yBly1l4O
WL7023VNWQRTWHTBZUdqO1ALX6toPRHBgv750/EwsgvsFw8qsSzJWN/qxI7Q
ngEYdMshL7YhY/QdzdV5awfhZl9wz6FrZIzzTPn9ilODcO03JS3/LhlT9+St
0f8+CLaPru76EkbG+A/PdZiFDcH5iXZI+EXGJIwpWxt2j8DB5oaLN5VEsQQf
sZ9iLaOwMZ0ZIzYgilW8vfMuNpIL7t+NTZfGi2OYatfOU++Jc/ba/quOmiQW
VqJzPyhHBJMS1rVV7V6EhRntbyjOlcQOOJhFb4+Swk5ujCx9sWMZtvrH+tsH
Nktjcbopd0eeymJtWxdrJZ+Rxv7/v/Qfa9fw5Q==
      "]]}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesOrigin->{0, 0},
   PlotRange->{{-5, 5}, {-5, 5}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{3.39973147058949*^9}]
}, Open  ]],

Cell[TextData[{
 "L'image de la fonction est donc l'ensemble des valeurs r\[EAcute]elles plus \
grandes ou \[EAcute]gale \[AGrave] l'ordonn\[EAcute]e du sommet.\nL'ordonn\
\[EAcute]e du sommet est donn\[EAcute]e par  f(",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"-", "b"}], 
     RowBox[{"2", " ", "a"}]], " "}], TraditionalForm]]],
 ") = ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"-", "\:2206"}], 
    RowBox[{"4", "a"}]], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"-", "1"}], "4"], TraditionalForm]]],
 "\nD\[EGrave]s lors,\n\t\tim f =  [",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"-", "1"}], "4"], TraditionalForm]]],
 ",\[Rule] \n\n"
}], "Text",
 CellChangeTimes->{{3.39973151530968*^9, 3.3997317006334047`*^9}, {
  3.399731783859774*^9, 3.399731784393428*^9}, {3.399731994522505*^9, 
  3.399732117584845*^9}},
 FontSlant->"Italic"],

Cell[TextData[{
 "exemple:\td\[EAcute]terminer l'image d'une fonction \[AGrave] radical\n\n\t\
f(x) =",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{
     RowBox[{"2", "x"}], "-", "5"}]], TraditionalForm]]],
 "\[LineSeparator]Le domaine de d\[EAcute]finition est [",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["5", "2"], ",", "\[Rule]"}], TraditionalForm]]],
 " \nLa valeur minimum de cette racine carr\[EAcute]e est \[EAcute]videmment \
0 (obtenue pour x = ",
 Cell[BoxData[
  FormBox[
   FractionBox["5", "2"], TraditionalForm]]],
 ")"
}], "Text",
 CellChangeTimes->{{3.399730822403512*^9, 3.399730827712171*^9}, {
  3.399731310528861*^9, 3.399731394073675*^9}, {3.399731799594857*^9, 
  3.399731801192484*^9}, {3.399731861603869*^9, 3.3997318676750526`*^9}, {
  3.399731921971032*^9, 3.399731952056609*^9}, {3.399732154964546*^9, 
  3.3997322370010433`*^9}, {3.399732315348795*^9, 3.399732335505096*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gf", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"2", "x"}], "-", "5"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "5"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "gf", "]"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.399731403254314*^9, 3.399731469963975*^9}, {
  3.3997322598686132`*^9, 3.399732295892745*^9}}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0XlYDHgYB/CZ+s3oUKqhe1UapFP2yRXel6yViY1UhEyHbpWlg7JyJHIl
pSQNobQdVgdKYrqmmm5JUbq26bI2IZK0v/3jfd7n8zzf532+z/PquQZs2yfF
YDD4dP7fqeE/nZBiEOzrdM+TdfSGZOOlpdXUFsPLO896JUPgu8RSiTTBhld6
87yT7oNV1mSp9AyCkLlEbLq4AFT9nMt05Qg+DH1WmR5UCENGwrLVCjRvI2vO
134KxSP65U5KBLt/l/WeZ/IcLmWeLg/hEBzfaZaplyYEV9+h8jhVgtpzrMeZ
UmVgYWRT8UCDoMHlCRnBhnKQGcmpqNcmWLOi/LB6aAXc9zlUKaNP8K8Nj1Vk
skVwwvBV5fwFBAsqVz5Nyq8Ch+EVonWLCBoK1asFD6rhu/e0KNyMYMQL5/xj
MWJoWORadW0JwaCBx436h2ohdai86qEFwQ85AXN6bOvA2ju6etSS4PL1DMno
l3q46jVH7L6RoEZu7hU70gTeBqHi4zyCC1MH9aRdmmDV4GtxyhaCvuvO7K5/
0gS9njdr27bTPvHPFiz0awYzT6N6Gxfal9/p4FX0At566wRkuxO08/jkY6vc
Auf9OEqKXgTdVu12rPRogaEDk1sb/Almn/r25pbCS7gdLn65NZwg12G9QbFN
K6jF+nY6JBAc89zpeDOpDSrj9v7xKIlgvLZqemR3GxxKsNNRTyG4625J3r35
7dCUbOnSfocg49q34OfZ7XAuXb5/Vy79zz71ycaC1zBdnPmOX0fwmHl86tGM
Dsh5JrggbCTInoyqvdLfAbtLr5jOayF4T2Ul21SvEwpFYYF9r+k9jcsO3652
wsFm3qd9gwTn5LFnrTn6FgYGRiZ9pFnYpV+SgVrd0KBiLB+0goWNqd9zvfJ7
YM3+/UPXV7Fwi9+XKH1xD+SIckSlwEL5hRmhwp4euBhufkppAwvPmUmc7yn2
go1k6VTmNha2CoejTTx7oaZw7b+9vixkHkgz9uL0QQXf8YVtCgvfiatzG53+
hic5J64bS7NxieZJjfO5EmDb2GsmsNl4NDAvTlQhga1DC68x5djolh3cNdYm
gQH9uqutSmzcc/FkpMa0BDjX1GIj5rJxswPuztw0AL4ns860rGCjub5dBLNr
ALR2tAaFB7JRdm4r33lqEMKYhra1nWyMr+PHFKiOgFzHkY3++TOQr1Cw9L34
PfSn6cUJwmUwYDA/VW1sFOIMNEihvSzG5VkM2x0Zg5gkD5GLrhyeU+fcNKj7
CE5xe+pnDsjhW+7P1nfJZ/i6/u6EoEQen1up6flYjUNf/7rQ0qiZaJYsljuz
5wukrjbXqnNRwAwLzS75418hOzJI2dNEEX8JUC+LjJyAKHs3nvRnRSxy1pc2
C/sGFh23MqLqZmHW3EDGeNgkJC66nl3HU8LMGzUP/d2+w7HnFxJ5hUoYMWy0
dbnDFGzWsr9bw1XGG5t0/jRZ/QPW+ot2KZ9VRnPubVac4jQItF25tZ+V8SNP
t+zyyDRwy9Kvbtmlgo5mpwp+c2JgjEmpYXOJCh5x9nONLWKgx0fSVG3IQV7l
2rQUXSa6PhjTPXuJg4uFw4rPjjKxqkbmZPF3DkYMKqie72ain1VPTDV11T+T
5QnUSsWFKa3U/ra9B29T78j2KRqlVjBNbCqiHrhU+4E7xUFLm3vnh6jZ9jH8
C9Shek7MX3uYaNWltsb5Bwe5iaSf2ctEieMoz5da2eNHrAJ1dGPVzlBqyyuj
qEHdLDwcFEv9h3xJ8mJq1ztvsiqp3YOm7PZSR3gLtMymOVhuqSgspub2hixa
RX2AXPSvoq5ysl1mTW1twtZuoVayYdq5UT8SdAWPUAtM3aITqLmyy4w1+5i4
Lt0y8Q61uOVw+3xqic7stAfUs5kFp82pTZUrhGLqmrDZPRupm8/eaGij3l6z
/OJ26mCp4M5+6uLD9pZ8as2wLSNj1CrRPoO+1CUfF0xMU7tNhsSHUP8HwNy1
xg==
      "]]}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesOrigin->{0, 0},
   PlotRange->{{0, 5}, {-1, 5}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.39973147058949*^9, {3.399732265235036*^9, 3.399732296169888*^9}}]
}, Open  ]],

Cell[TextData[{
 "L'image de cette fonction est l'ensemble\n\n\tim f =  [",
 Cell[BoxData[
  FormBox["0", TraditionalForm]]],
 " , \[Rule] "
}], "Text",
 CellChangeTimes->{{3.39973151530968*^9, 3.3997317006334047`*^9}, {
  3.399732339626408*^9, 3.399732376971572*^9}},
 FontSlant->"Italic"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Exercices - D\[EAcute]terminer l'image des fonctions suivantes\
\>", "Subsubsection",
 CellChangeTimes->{{3.399732410559823*^9, 3.399732431808721*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"3", "x"}], "+", "4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<1) f(x) = \>\"", ",", 
   RowBox[{"f", "[", "x", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], "=", 
   RowBox[{
    RowBox[{"5", "x"}], "+", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<2) f(x) = \>\"", ",", 
   RowBox[{"f", "[", "x", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], "=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", "x"}], "-", "3"}], "]"}], "+", "1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<3) f(x) = \>\"", ",", 
   RowBox[{"f", "[", "x", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], "=", 
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", "x", "+", "5"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<4) f(x) = \>\"", ",", 
   RowBox[{"f", "[", "x", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Image", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}], ";"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.399732440318192*^9, 3.3997324443775473`*^9}, {
  3.3997324759397373`*^9, 3.399732489128591*^9}, {3.399732782020479*^9, 
  3.3997327970302677`*^9}, {3.39973286889314*^9, 3.399732876276169*^9}, {
  3.399732914989745*^9, 3.399732970030809*^9}, {3.399733065466977*^9, 
  3.399733132902526*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"1) f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["x", "2"]}], "+", 
     RowBox[{"3", " ", "x"}], "+", "4"}]}],
   SequenceForm["1) f(x) = ", 4 + 3 $CellContext`x - $CellContext`x^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.3997331343320103`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"im f = \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"\[LongLeftArrow], \
\\!\\(TraditionalForm\\`25\\/4\\)]\"\>",
     StringForm["\[LongLeftArrow], `1`]", 
      Rational[25, 4]],
     Editable->False]}],
   SequenceForm["im f = ", 
    StringForm["\[LongLeftArrow], `1`]", 
     Rational[25, 4]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.399733134334499*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"2) f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     RowBox[{"5", " ", "x"}], "+", "2"}]}],
   SequenceForm["2) f(x) = ", 2 + 5 $CellContext`x],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.399733134337886*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"im f = \"\>", 
    "\[InvisibleSpace]", "\<\"\[DoubleStruckCapitalR]\"\>"}],
   SequenceForm["im f = ", "\[DoubleStruckCapitalR]"],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.399733134339576*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"3) f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SqrtBox[
      RowBox[{
       RowBox[{"2", " ", "x"}], "-", "3"}]], "+", "1"}]}],
   SequenceForm["3) f(x) = ", 1 + (-3 + 2 $CellContext`x)^Rational[1, 2]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.399733134368973*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"im f = \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1\\), \[LongRightArrow]\"\
\>",
     StringForm["[`1`, \[LongRightArrow]", 1],
     Editable->False]}],
   SequenceForm["im f = ", 
    StringForm["[`1`, \[LongRightArrow]", 1]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.3997331343979*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"4) f(x) = \"\>", "\[InvisibleSpace]", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", "x", "+", "5"}]}],
   SequenceForm["4) f(x) = ", 5 + $CellContext`x + $CellContext`x^2],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.3997331344293756`*^9}],

Cell[BoxData[
 FormBox[
  InterpretationBox[
   RowBox[{"\<\"im f = \"\>", "\[InvisibleSpace]", 
    InterpretationBox["\<\"[\\!\\(TraditionalForm\\`19\\/4\\), \
\[LongRightArrow]\"\>",
     StringForm["[`1`, \[LongRightArrow]", 
      Rational[19, 4]],
     Editable->False]}],
   SequenceForm["im f = ", 
    StringForm["[`1`, \[LongRightArrow]", 
     Rational[19, 4]]],
   Editable->False], TraditionalForm]], "Print",
 CellChangeTimes->{{3.3997327853260508`*^9, 3.399732819443578*^9}, {
   3.399732855303228*^9, 3.3997328768304358`*^9}, {3.399732907693694*^9, 
   3.399732916641811*^9}, {3.399732949160178*^9, 3.39973297040338*^9}, {
   3.3997330769563417`*^9, 3.3997330965333347`*^9}, 3.399733134462829*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{842, 745},
WindowMargins->{{316, Automatic}, {Automatic, 46}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 165, 2, 25, "Subsubsection"],
Cell[758, 27, 394, 9, 65, "Text"],
Cell[1155, 38, 1265, 22, 173, "Text"],
Cell[2423, 62, 603, 17, 105, "Text"],
Cell[CellGroupData[{
Cell[3051, 83, 573, 18, 20, "Input",
 CellOpen->False],
Cell[3627, 103, 4833, 85, 238, "Output"]
}, Open  ]],
Cell[8475, 191, 933, 31, 136, "Text"],
Cell[9411, 224, 945, 25, 119, "Text"],
Cell[CellGroupData[{
Cell[10381, 253, 600, 18, 20, "Input",
 CellOpen->False],
Cell[10984, 273, 2466, 47, 244, "Output"]
}, Open  ]],
Cell[13465, 323, 290, 8, 65, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13792, 336, 161, 3, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[13978, 343, 2196, 66, 20, "Input",
 CellOpen->False],
Cell[CellGroupData[{
Cell[16199, 413, 629, 13, 25, "Print"],
Cell[16831, 428, 710, 16, 40, "Print"],
Cell[17544, 446, 549, 11, 23, "Print"],
Cell[18096, 459, 532, 10, 23, "Print"],
Cell[18631, 471, 615, 13, 32, "Print"],
Cell[19249, 486, 665, 14, 23, "Print"],
Cell[19917, 502, 579, 11, 25, "Print"],
Cell[20499, 515, 713, 16, 40, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)