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) .3 2.5 drtext 2 setlinewidth bleu .0001 xmax {f} Courbe rouge .0001 xmax {g} Courbe noir