18 setfontsize -6 6 setxrange -6 6 setyrange /f { setxvar 1 x div } def 30 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage tracerepere marks gsave bleu 1.75 setlinewidth xmin -.01 {f} Courbe .01 xmax {f} Courbe grestore setTimesItalic (O) O drtext $$ y = {1\over x} $$ /dx_boxit 2 def /dy_boxit 2 def /fillstyle {jaune fill} def /linearc .05 def boxit -2 2 [2 dup] cctexlabel