Présentation de normale_01.jps

-3.5 4 setxrange
-.1 .5 setyrange

20 setxunit
.2 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

/hstep 3 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
   (t) t 0 dctext

/fillstyle {blanc fill} def
/linearc .03 def
/dx_boxit .2 def
/dy_boxit .2 def
0 setlinewidth
<tex>
$\Pi (t)$
</tex>

boxit
-.5 dup f 
-.5 0
milieu  cctexlabel