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

2 2 setmkstep
marks

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