%2eme cas de limite : lim(+infini)=+infini

25 setxunit
7.5 setborder
90 setangle_repere
-1 5 setxrange
-1 5 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
traceaxes
axesarrow
(O) O drtext
setTimesItalic
(x) 4.5 0 drtext
(y) 0 4.5 ultext
/A {0 3} def
/B {5 3} def
[A B] ligne
setSymbol
(D) 4.5 3.5 drtext
setTimesItalic
(M) 0 3 cltext
/l {0 2.6} def
/m {0 3.4} def
/n {3.61 2.6} def
/p {3.84 3.4} def
[l m](]-[) ligne
pointilles
[l n] ligne
[m p] ligne
/g {setxvar
#rpn#   Exp(x)
} def
gsave
   rouge
   .75 setlinewidth
    continu
 -1 5  {g} Courbe
grestore
/R {3.73 5} def
/P {3.73 0} def
pointilles
[R P] ligne
(x) P dctext
(0) indice
/Z {3.61 0} def
/U {3.84 0} def
pointilles
[n Z] ligne
[p U] ligne
setTimesItalic
(C) 3 4 drtext
(f) indice