-.4 6 setxrange
-.2 .7 setyrange

50 setxunit
.3 setxyrapport

.4 ymark

/sigma 1 def
/m 3 def
/t 2.8 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



/W {5.5 -.1} def
<tex>
   $\epsilon (S|\kappa)$
</tex>
W uctexlabel

<tex>
     $\kappa_2 > \kappa_1$
</tex>
2.9 0.54 uctexlabel

2.9 0.53 2.8 0.42 (->) line


/V4 {0 0.5} def
<tex>
   $P(obs)$
</tex>
V4 {90} urtexlabel


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