-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