%3ème cas de limite : lim(x0)=+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 1} def
/B {5 1} def
[A B] ligne
setSymbol
(D) 4.5 1.5 drtext
setTimesItalic
(M) 0 1 cltext
/l {0 2.6} def
/m {0 3.4} def
/n {4.5 2.6} def
/p {4.5 3.4} def
%[l m](]-[) ligne
pointilles
%[l n] ligne
%[m p] ligne
/g {setxvar
#rpn# 1/(x-2)
} def
gsave
   rouge
   .75 setlinewidth
   continu
 2.01 5  {g} Courbe
grestore
/M {2 5} def
/P {2 0} def
pointilles
[M P] ligne
(x) P dctext
(0) indice
/R {3 5} def
/T {3 0} def
[R T] ligne
(b) T dctext

setTimesItalic
(C) 1 4 drtext
(f) indice