-3.5 4 setxrange
-.1 .7 setyrange

50 setxunit
.3 setxyrapport

/sigma 1 def
/m 0 def
/t 1.2 def

/f {
   m sub sigma div
   dup mul
   -2 div
   Exp
   1
   2 pi mul sqrt sigma mul   
   div mul
}  def

traceaxes
axesarrow
xmin t {f} Hachcourbe
t xtick

t dup f point

gsave
newpath
   pointilles
   [t dup f dupp projx] ligne
stroke
grestore

1.2 setlinewidth
{f} courbe

setTimesItalic
   (O) 0 0 dltext
   (t) t 0 dctext

/dx_boxit 2 def
/dy_boxit 2 def
<tex>
$P (T \leq t) = \Pi (t)$
</tex>

boxit
xmax .75 mul ymax .75 mul cctexlabel

<tex>
$\Pi (t)$
</tex>

.5 setlinewidth

/fillstyle {blanc fill} def
/linearc .05 def
boxit
-.5 .15 cctexlabel