%%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

/M {7 6.92} def
/A {7 0} def
/A' {7 3.5} def
/B {3.5 6.92} def

gsave

pointilles
/arrowscale {2 3} def
[A A'] (->) ligne
[M B] (->) ligne

grestore


M dashpoint

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#${x}$
7 0 [2.5 2.5]  dctexlabel
#latex#${f(x)}$
0 6.92 [2.5 2.5]  cltexlabel
#latex#${M\Big(x;f(x)\Big)}$
7 6.92 [2.5 2.5]  urtexlabel

grestore