500 setwidth 500 setheight 18 setfontsize -6 6 setxrange -6 6 setyrange /f { setxvar 1 x div } def /dessin { tracerepere marks gsave bleu 1.75 setlinewidth xmin -.001 {f} Courbe .001 xmax {f} Courbe grestore setTimesItalic (O) O drtext (Hyperbole : y = ) -6 2 text setTimes (1/) show setTimesItalic (x) show } def {dessin} relief