Source
-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

<latex>
$a$
</latex>
1 0 [1.8 dup] dctexlabel

<latex>
$b$
</latex>
4 0 [1.8 dup] dctexlabel

<latex>
$\bf{\it{E_f(I)}}$
</latex>
2.5 2 [2.1 dup] dctexlabel

<tex>
  $I$
</tex>
2.5 0 [1.8 dup] dctexlabel

<latex>
$f$
</latex>
%boxit
%4.4 2 [1.8 dup] dctexlabel
3.2 1 [1.8 dup] dctexlabel

<latex>
$\rm{Abb}.\,1$
</latex>
-1.3 1.2 [2.0 dup] ultexlabel