30 setxunit
-3 2 setxrange
-1 6 setyrange

ticks
subticks
marks
traceaxes
axesarrow
/f {
   Exp
} def

/g{ setxvar 
x
.5 ln
mul
Exp
} def

2 setlinewidth

bleu
{f} courbe

rouge
{g} courbe