Présentation de pbm_010.jps

-1 10 setxrange
tracerepere
marks
/f {
   setxvar
   x neg Exp
   -2 Exp sub
   x 1 sub ln add
} def

mixte
1 ymin 1 ymax droite

/hstep 2 def
continu
2 3 {f} Hachcourbe
1.5 setlinewidth
1.001 xmax {f} Courbe

setTimesItalic
   (C) 8 dup f uctext
setSymbol
   (D) 1 4 crtext