Présentation de etud_001.jps

/syracuse/texpng/jpv/database/btsmai/analyse/exp/etud_001.jpg
/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