Présentation de ch_argch.jps

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

tracerepere
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

setTimesItalic 
   (Argch) 5 dup f drtext
   (ch) 1.8 dup g drtext 
   (O) O drtext

pointilles
0 xmax {g} Courbe