60 setxunit
18 setfontsize
-3 3 setxrange
-3 3 setyrange

tracerepere
marks

/f {
   cosh
} def

/g {
   sinh
} def

/h {
   setxvar
   x Exp 2 div
} def

/f' {  setxvar
  0
} def
/g' {  setxvar
  1
} def

noir
1 settailletangente           %% taille de la tangente
0 (f) tangente                  %% trace d'une tangente
2 settailletangente           %% taille de la tangente
0 (g) tangente                  %% trace d'une tangente

2 setlinewidth
bleu
{f} courbe
rouge
{g} courbe
noir pointilles
{h courbe}

noir

setTimesItalic
   (O) O drtext
   (ch) -1.5 dup f dltext
   (sh) -1.5 dup g ultext