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