% 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
$\epsilon_{it}$
W uctexlabel
/V4 {0 0.2} def
$f\left((\gamma+1)log(S_{it})\right)$
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
0
3 -0.1 uctexlabel
$(\gamma+1)log(S_{it}^{*})$
2 -0.15 uctexlabel