Présentation de normale7.jps

-3.5 4 setxrange
-.1 .7 setyrange

40 setxunit
.3 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

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
setTimes
   (-1, 67) t 0 dctext

/dx_boxit 2 def
/dy_boxit 2 def
<tex>
$P (T \leq -1, 67) = 1 - \Pi (1, 67)$
</tex>

boxit
xmax .5 mul ymax .75 mul cctexlabel