30 setxunit
-1 6 setxrange
-1 4 setyrange

traceaxes
axesarrow
marks

/id { setxvar x } def

mixte
xmin xmax {id} Courbe

   /f {
      setxvar
      x 2 exp
      1 sub
      .5 exp
      x add
      ln
   } def

   /g {
      cosh
   } def

continu
2 setlinewidth
bleu

1.0001 xmax {f} Courbe


noir

pointilles
0 xmax {g} Courbe