60 setxunit
18 setfontsize
-4 4 setxrange
-4 4 setyrange

tracerepere
marks

/f {
   tanh
} def

/g {
  setxvar 1 x tanh div
} def

/h1 {
   setxvar
   1
} def

/h2 {
   setxvar
   -1
} def

/f' {  setxvar
  1
} def


noir
2 settailletangente           %% taille de la tangente
0 (f) tangente                  %% trace d'une tangente
{h1} courbe
{h2} courbe

2 setlinewidth
bleu
{f} courbe
rouge
xmin -0.1 {g} Courbe
0.1 xmax {g} Courbe

noir

setTimesItalic
   (O) O drtext
   (coth) 3 1 urtext
   (th) 3.1 0.6 urtext