500 setwidth
500 setheight
18 setfontsize
-5 5 setxrange
-5 5 setyrange

/f {
   sinh
} def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      {f} courbe
   grestore

   setTimesItalic
      (O) O drtext
      (Sinus hyperbolique : y = ) -4.9 1.5 text
   setTimes
      (sh ) show
   setTimesItalic
      (x) show
   
} def

{dessin} relief