Présentation de hyperbole.jps

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