Présentation de 845.jps

/syracuse/bbgraf/tmp/845.jpg
-1 11 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 .05 xmax {f} Courbe gsave pointilles .3 setlinewidth [alpha 0 alpha dup f] ligne .8 setlinewidth bleu .05 xmax {g} Courbe grestore K dashpoint 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 rtext (x) xmax 0 dltext (y) 0 .98 Ymax mul ltext setSymbol (a) alpha 0 dtext