Présentation de pbm_008b.jps

25 setxunit
-1 14 setxrange
-1.5 6.7 setyrange

/K {1 3} def
/alpha 2 Exp def

/f {
   setxvar
   x 2 add x ln add x div
} def

/g {
   setxvar
   x 2 add x div
} def

/h {pop 1} def

2 setxmkstep
tracerepere
marks
alpha xtick
K dashpoint

.05 xmax {f} Courbe

gsave
   pointilles
   verythin setlinewidth
   [alpha 0 alpha dup f] (-) ligne

   thin setlinewidth
   bleu
   .05 xmax {g} Courbe
grestore

45 sethangle
alpha 1 {f} {g} Hachcourbes

%% l'asymptote
mixte
{h} courbe

setTimesItalic
   (D) Xmin 1 drtext
   (C) Xmax dup f ultext
   (f) indice
   (K) K urtext
   (H) .4 dup g brtext
   (x) xmax 0 dltext
   (y) 0 .98 Ymax mul bltext
#tex# $e^2$
alpha 0 dctexlabel
#tex# $$C_f~: y={x+2+\ln x \over x}$$
6 4 uctexlabel
#tex# $$H~: y={x+2\over x}$$
6 3 uctexlabel