%%auteur : Florent Braisaz

1 setxyrapport
25 setxunit
7.5 setborder
90 setangle_repere
-4.8 15.8 setxrange
-3.8 15.8 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
traceaxes
unites
/f {setxvar
#rpn#   0.04*x^3-0.8*x^2+3.2*x+10
} def
gsave
   bleu
   .75 setlinewidth
   continu
   0.5 xmax {f} Courbe
grestore


/A {2.5 5} def
/I {5 5} def
/B {7.94 5} def
/J {7.94 2.5} def
/C {7.94 0} def
/D {13.25 5} def
/K {13.25 2.55} def
/E {13.25 0} def
gsave

pointilles
/arrowscale {2 3} def
[A I] (->) ligne
[B J] (->) ligne
[D K] (->) ligne
[B D] (-) ligne
[E D] (-) ligne
grestore


B dashpoint
D point

gsave
noir
setTimesItalic

#latex#${\overrightarrow{i}}$
1 0 [2 2] dctexlabel
#latex#${\overrightarrow{j}}$
0 1 [2 2] cltexlabel

(O) 0 0 [2 2] dltext

#latex#${\mathcal{C}_f}$
13.5 14 [3 3]  crtexlabel

#latex#${a}$
C [2.5 2.5]  dctexlabel
#latex#${b}$
E [2.5 2.5]  dctexlabel

#latex#${y}$
0 5 [2.5 2.5]  cltexlabel

#latex#${A\Big(a;f(a)\Big)}$
B [2 2]  dltexlabel
#latex#${B\Big(b;f(b)\Big)}$
D [2 2]  ultexlabel

grestore

<latex>
\begin{center}Un antécédent \\de $y$\end{center}
</latex>
boxit
7.94 -1 [1.5 dup] dctexlabel

<latex>
\begin{center}Un antécédent \\de $y$\end{center}
</latex>
boxit
13.25 -1 [1.5 dup] dctexlabel