-2.5 5 setxrange -0.5 3 setyrange 1 setxyrapport 60 setxunit 7.5 setborder 90 setangle_repere -0.5 5 setxrange -0.5 3 setyrange 1 1 settkstep .5 .5 setsubtkstep 2 2 setmkstep traceaxes axesarrow setTimesItalic (x) 4.7 0 [1.8 dup] drtext (y) 0 2.7 [1.8 dup] ultext (O) O [1.8 dup] drtext %unites /f {setxvar #rpn# (x^3+3*x^2+3*x-4)/(x^2+2*x-3)-4 } def /g {setxvar #rpn# 5 } def /M {1.15 5} def /P {1.15 0} def /R {4 0} def /N {4 5} def /Q {4 0} def gsave pointilles [M P] ligne [N Q] ligne grestore 1.5 setlinewidth [P R] ligne gsave noir 1 setlinewidth continu 1.01 4 {f} Courbe grestore noir /hwidth .5 def /hstep 4 def 1.01 4 {f} {g} Hachcourbes $a$ 1 0 [1.8 dup] dctexlabel $b$ 4 0 [1.8 dup] dctexlabel $\bf{\it{E_f(I)}}$ 2.5 2 [2.1 dup] dctexlabel $I$ 2.5 0 [1.8 dup] dctexlabel $f$ %boxit %4.4 2 [1.8 dup] dctexlabel 3.2 1 [1.8 dup] dctexlabel $\rm{Abb}.\,1$ -1.3 1.2 [2.0 dup] ultexlabel