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

tracerepere
marks

/id { setxvar x } def

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

   /g {
      sinh
   } def

pointilles
{g} courbe


continu
2 setlinewidth
bleu

 {f} courbe


noir


setTimesItalic 
   (Argsh) 2 dup f drtext
   (sh) 1.4 dup g ultext 
   (O) O drtext