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.6 dup f dltext
   (sh) -1.5 dup g ultext

<tex>
$$
   y = {1\over 2} e^x
$$
</tex>

-2.2 dup h [2 dup] uctexlabel