% auteur : Stéphane Leblanc
% Pays : Canada

-.4 6 setxrange
-.2 .7 setyrange


50 setxunit
.3 setxyrapport


/sigma 1 def
/m 3 def
/t 2 def

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

traceaxes
axesarrow
xmax t {f} Hachcourbe


/W {5.5 -.1} def
<tex>
   $\epsilon_{it}$
</tex>
W uctexlabel


/V4 {0 0.2} def
<tex>
$f\left((\gamma+1)log(S_{it})\right)$
</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

.5 setlinewidth

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

/E1 {2 0.01} def
/E2 {3 0.6} def

pointilles
E2 3 0 (-) line

pointilles
E1 2 -0.05 (->) line

<tex>
   0
</tex>
3 -0.1 uctexlabel

<tex>
   $(\gamma+1)log(S_{it}^{*})$
</tex>
2 -0.15 uctexlabel