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

tracerepere
marks

/id { setxvar x } def

mixte
xmin xmax {id} Courbe
   /f {
      setxvar
      x 1 add
      1 x sub
      div
      ln
      2 div
   } def

   /g {
      tanh
   } def

/h1 { setxvar 1 } def
/h2 { setxvar -1 } def
/d1 {-1 -4 -1 4} def
/d2 {1 -4 1 4} def

continu
{h1} courbe
{h2} courbe
d1 droite
d2 droite

pointilles
 {g} courbe


continu
2 setlinewidth
bleu

-0.9999 0.9999 {f} Courbe

noir

setTimesItalic 
   (Argth) 1 3.4 urtext
   (th) 3.4 1 urtext 
   (O) O drtext