Source
-2.5 5 setxrange
-0.8 3 setyrange

1 setxyrapport
60 setxunit
7.5 setborder
90 setangle_repere
-0.3 4 setxrange
-0.7 3 setyrange

traceOx
%axeOxarrow

/f {setxvar
#rpn#   (7/10*x^2-41/20*x+37/20)
} def

/g {setxvar
#rpn#   (0.5*x)
} def

/P1 {1 0} def
/P {1 0.5} def
%/Q {1.9285 0.5} def
%/Q1 {1.9285 0.9642} def
/Q {2.3 0.838} def
/Q1 {2.3 1.15} def

setTimesItalic
(P) P [1.5 dup] uctext
(Q') Q1 [1.5 dup] uctext
(Q) Q [1.5 dup] drtext

<tex>
$x_0$
</tex>
P1 [1.8 dup] dctexlabel

<tex>
$x_1$
</tex>
2.3 0 [1.8 dup] dctexlabel

<latex>
$f$
</latex>
0.3 1.2 [1.8 dup] dctexlabel

<latex>
$g$
</latex>
0.5 0.6 [1.8 dup] dctexlabel


[P Q Q1] points
gsave
   noir
   1 setlinewidth
   continu
0.3  3 {f} Courbe
0.3 3 {g} Courbe
grestore

gsave
pointilles
[P P1] ligne
%[1.9285 0 Q1] ligne
[2.3 0 Q1] ligne
[P Q] ligne
grestore


<latex>
$\rm{Abb}.\,9$
</latex>
-1.1 0.8 [2.0 dup] ultexlabel