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

<tex>
$y = f (x)$
</tex>
1.5 dup f urtexlabel

<tex>
$F (t)$
</tex>
O t dup f milieu uctexlabel