/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
|