-3.5 4 setxrange
-.1 .7 setyrange

40 setxunit
.3 setxyrapport

10 setfontsize
/sigma 1 def
/m 0 def
/t 1.67 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
setTimes
   (1, 67) t 0 dctext

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

boxit
xmax .65 mul ymax .75 mul cctexlabel