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