%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