autocrop
-.2 5 setxrange
-.5 1.2 setyrange
0 5 setxrange
0 1.2 setyrange
50 setxunit
100 setyunit
/t 1.6 def
/lambda 1 def
/f {
lambda mul neg Exp lambda mul
} def
/fillstyle {.7 setgray fill} def
0 t {f} Fillcourbe
.3 setlinewidth
[t 0 t dup f] ligne
1 setlinewidth
0 xmax {f} Courbe
traceaxes
axesarrow
0 xmark
setTimesItalic
(y) 0 ymax drtext
(x) xmax 0 dltext
(t) t 0 dctext
$y = f (x)$
1.5 dup f urtexlabel
$F (t)$
O t dup f milieu uctexlabel