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

tracerepere
marks

/f {
   setxvar
   x 2 exp
   1 sub
   .5 exp
   x add
   ln
} def


1.75 setlinewidth
bleu

1.0001 xmax {f} Courbe

noir

setTimesItalic
   (O) O drtext
   (y = ) 2 -1 urtext
setTimes
   (Argch ) show
setTimesItalic
   (x) show