600 setwidth
pictpointsOff

%% ces valeurs correspondent a ln (0.01) - qquechose et ln (1)
-4.9 0.1 setxrange
-4.9 0.1 setyrange

2 setxyrapport

%% on passe a l'echelle logarithmique
/xscale {
   ln 
} def
/yscale {
   ln 
} def

.01 1 setxrange
.01 1 setyrange

%% la numerotation
xmin dup setorigine
[.01 .1 .2 1] 
dup {xmark} apply
{ymark} apply
axesarrow

%% legende des axes
setTimesItalic
   (m) 1 .01 (0 -3) dltext
   (d) .01 1 (-3 0) dltext

%% puis on masque
masque


%% le quadrillage
gsave
   [.01 .1 1]
   dup {svrule} apply
   {shrule} apply
   .4 setgray
   .4 setlinewidth
   [-2 0 log_seq] 
   dup {svrule} apply
   {shrule} apply
grestore

%% la fonction a dessiner
/d {
1 dict begin
   /m exch def
   m pi mul neg
   1 m dup mul sub div
   Exp
end
} def

%% la legende TeX
<tex>
$$
   d (m) = e^{-\pi m \over \sqrt {1 - m^2}}
$$
</tex>

.3 .3 [2 dup] dltexlabel

1.5 setlinewidth
bleu
xmin .8 {d} Courbe