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