-2.5 5 setxrange
-0.8 3 setyrange
1 setxyrapport
60 setxunit
7.5 setborder
90 setangle_repere
-0.7 4 setxrange
-0.7 3 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
%ticks
%subticks
%marks
traceaxes
axesarrow
%unites
/f {setxvar
#rpn# (7/10*x^2-41/20*x+37/20)
} def
/g {setxvar
#rpn# 5
} def
/M {0.5 0} def
/P {0.5 1} def
/N {3 0} def
/Q {3 2} def
/E {1.5 0} def
/F {1.5 0.35} def
/K {2.25 0} def
/L {2.25 0.78125} def
/S2 {P F milieu} def
/S3 {1.5 0.71041} def
/S4 {1.875 1.0328125} def
setTimesItalic
(O) O [1.8 dup] drtext
(x) 3.7 0 [1.8 dup] drtext
(y) 0 2.7 [1.8 dup] ultext
$P_1$
P [1.5 dup] cltexlabel
$P_2$
F [1.5 dup] dltexlabel
$P_3$
L [1.5 dup] crtexlabel
$P_4$
Q [1.5 dup] crtexlabel
gsave
pointilles
[M P] ligne
[N Q] ligne
[E F] ligne
[K L] ligne
grestore
[P F Q L S2 S3 S4] points
[P F] ligne
[S2 L] ligne
[S3 Q] ligne
gsave
noir
1 setlinewidth
continu
0.15 3.5 {f} Courbe
grestore
$x_1$
M [1.8 dup] dctexlabel
$x_2$
E [1.8 dup] dctexlabel
$x_3$
K [1.8 dup] dctexlabel
$x_4$
N [1.8 dup] dctexlabel
$S_2$
S2 [1.5 dup] uctexlabel
$S_3$
S3 [1.5 dup] uctexlabel
$S_4$
S4 [1.5 dup] uctexlabel
$f$
%boxit
3.4 2.8 [1.8 dup] dctexlabel
$\rm{Abb}.\,12$
-1.3 1.2 [2.0 dup] ultexlabel