500 setwidth 500 setheight 18 setfontsize -1 11 setxrange -8 4 setyrange jpegmode /f { ln } def /val 3.14 2 div def /dessin { tracerepere marks gsave bleu 1.75 setlinewidth .0001 xmax {f} Courbe grestore setTimesItalic (O) O drtext (Logarithme népérien : y = ) 2 -3 text setTimes (ln ) show setTimesItalic (x) show } def {dessin} relief