-5 12 setxrange
-10 7 setyrange

/f {
   setxvar
   5 x sub
   x neg Exp sub
} def
/f' {pop 0} def

/unites {} def
gsave 
   .25 setlinewidth 
   tracerepere 
   3.8 settailletangente
   0 (f) tangente
   5.8 settailletangente
/f' {pop 4} def
   5 ln neg (f) tangente
grestore

2 2 setmkstep
marks

{neg} courbe
1.2 setlinewidth
{f} courbe

/hangle 30 def
/hstep 4 def
0 2 {f} Hachcourbe

mixte
.8 setlinewidth
{neg 5 add} courbe

pointilles
[2 0 2 dup f] ligne

<tex>
$\cal C$
</tex>
-2.5 dup f [1.5 dup] ultexlabel

setTimesItalic
   (O) O dltext
   (D) -1 6 dltext
   (A) 5 ln neg dup neg dltext
setSymbol
   (D) -4 4 urtext