-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 $x_0$ R1 [1.8 dup] dctexlabel $I$ 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 $\rm{Abb}.\,8$ -1.3 1.2 [2.0 dup] ultexlabel