%% auteur : 

-1 9 setxrange
-0.2 1 setyrange
50 setxunit
250 setyunit


.7 setlinewidth
1 1 setsubtkstep
traceaxes
axesarrow
/f {setxvar
#rpn#   0.6* e^(-0.6*x)
} def
/fillstyle {0.9 0.9 0.9 setrgbcolor fill} def 

1 3 {f} Fillcourbe 

.75 setlinewidth
0 7 {f} Courbe

[1 0 1 0.329] ligne
[3 0 3 0.099] ligne



<tex>
$a$
</tex>
1 0 [1.5 dup] dctexlabel

<tex>
$b$ 
</tex>
3 0 [1.5 dup] dctexlabel

setTimesItalic
  (O) O dltext


#latex# $P([a~;~b])$
2 0.02 [2 2]uctexlabel


#latex# $y=\lambda\;exp(-\lambda\;x)$
6 0.02 [1.5 1.5]uctexlabel