60 setxunit
18 setfontsize
-1 6 setxrange
-2 3 setyrange

tracerepere
marks

/f {
   ln
} def

/g{ setxvar 
x ln
.5 ln
div
} def

setTimesItalic
   (O) O drtext
   (log) 5 1.2 urtext (a) indice 
   (a>1) 5 1.2 drtext
   (log) .3 2.5 urtext (a) indice 
   (0<a<1) .3 2.5 drtext

2 setlinewidth
bleu
.0001 xmax {f} Courbe
rouge
.0001 xmax {g} Courbe

noir