-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