Source
-2.5 5 setxrange
-0.8 3 setyrange

1 setxyrapport
60 setxunit
7.5 setborder
90 setangle_repere
0 3.5 setxrange
-0.7 3 setyrange

traceOx
%axeOxarrow

0 xtick
3.5 xtick

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

/P1 {0.5 0} def
/P {0.5 1} def
/P2 {0.75 0.6625} def
/R {1.5 0.35} def
/R1 {1.5 0} def
/Q {3 2} def
/Q1 {3 0} def
/Q2 {2.75 1.4625} def
setTimesItalic
(L) P [1.5 dup] dltext
(P) R [1.5 dup] drtext
(R) Q [1.5 dup] crtext
(u) P1 [1.8 dup] dctext
(v) Q1 [1.8 dup] dctext

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

<latex>
$I$
</latex>
1.8 -0.25 [1.8 dup] dctexlabel


[P Q R] points
gsave
   noir
   1 setlinewidth
   continu
0.15  3.2 {f} Courbe
grestore

gsave
1.5 setlinewidth
[P R] ligne
[R Q] ligne
[P P2] (->) ligne
[Q Q2] (->) ligne
grestore

gsave
pointilles
[P P1] ligne
[R R1] ligne
[Q Q1] ligne
[P Q] ligne
grestore

<latex>
$\rm{Abb}.\,8$
</latex>
-1.3 1.2 [2.0 dup] ultexlabel