Présentation de frct_008.jps

%%% les bornes sur les axes
/xmin -2 def
/xmax 18 def
/ymin 4 def
/ymax 20 def
%%% les ticks sur les axes
/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
%%% origine pour le trace des axes
/Ox 0 def
/Oy 6 def

tracerepere
marks

gsave
   %% l'asymptote oblique
   mixte
   /f {2 add} def
   {f} courbe
   %% l'asymptote verticale
   [2 ymin 2 ymax] ligne
grestore


/f {
   dup		%% x x 
   2 sub		%% x x-2
   4 exch div	%% x 4/(x-2)
   add 2 add
}  def

medium setlinewidth
2.01 xmax (f) Courbe
/f' {pop 0} def

2.8 settailletangente
4 (f) tangente

4 8 dashpoint

setTimesItalic
   (C) 3 14 dtext
   (f) indice
setSymbol
   (D) 6 8 drtext