-.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
$\epsilon (S|\kappa)$
W uctexlabel
$\kappa_2 > \kappa_1$
2.9 0.54 uctexlabel
2.9 0.53 2.8 0.42 (->) line
/V4 {0 0.5} def
$P(obs)$
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
%
%$P (T \leq t) = \Pi (t)$
%
%boxit
%xmax .75 mul ymax .75 mul cctexlabel
%
%$\Pi (t)$
%
.5 setlinewidth
/fillstyle {blanc fill} def
/linearc .05 def
%boxit
%-.5 .15 cctexlabel