/xmin -5 def
/xmax 12 def
/ymin -10 def
/ymax 7 def
/xmkstep 2 def		% les marques sur Ox
/ymkstep 2 def		% les marques sur Oy
/xtkstep 2 def		% les ticks sur Ox
/ytkstep 2 def		% les ticks sur Oy
/xsubtkstep 1 def	% les subticks sur Ox
/ysubtkstep 1 def	% les subticks sur Oy

gsave
   %% les deux droites
   /courbelinewidth verythin def
   mixtefin
   /f {neg} def
   tracecourbe
   /Symbol findfont fontcorps scalefont setfont
      (D) .8 Xmax mul dup f uprighttext

   /f {neg 5 add} def
   tracecourbe
   /Times-Italic findfont fontcorps scalefont setfont
      (D) .8 Xmax mul dup f uprighttext
grestore

/f {
   dup neg 5 add exch
   neg Exp sub   
}  def

/f' {
   neg Exp -1 add
}  def

/xA 5 ln neg def
/xB 1 def
/yA xA f def
/yB xB f def

gsave
newpath
   traceaxes
   unites
   tracecourbe
   xticks
   yticks
   xsubticks
   ysubticks
   xmarks
   ymarks
   axesarrow   
   /Xmin 0 def
   /Xmax 2 def
   hachurecourbe
stroke
newpath
   pointilles
   2 dup f smoveto
   2 0 slineto
stroke
grestore

/Xmin xmin def
/Xmax xmax .9 mul def

/tailletangente 3 def
0 tracetangente
/tailletangente 7 def
xA tracetangente

/Times-Italic findfont fontcorps scalefont setfont
   (O) 0 0 downlefttext
   (A) xA yA .5 sub lefttext