%% auteur : 30 setxunit 30 setyunit 7.5 setborder 90 setangle_repere -5 5 setxrange -5 5 setyrange [1 1 .5 .5 .1 .1] {orange} Quadrillage .5 .5 setsubtkstep 1 1 setmkstep ticks subticks marks traceaxes axesarrow unites /f {setxvar #rpn# 1/x } def setTimes boxit (f(x) = 1/x) 2 4 cctext /A {-2 -.5} def /A' {2 .5} def /B {-2 0} def /C {2 0} def [A A'] points pointilles [B A A' C] ligne (A) A dltext (A') A' urtext (O) O drtext setTimesItalic (X) 4.5 -0.5 crtext (Y) -0.5 4.5 urtext gsave bleu .75 setlinewidth continu {f} courbe grestore