%% auteur : Péric 50 setxunit 7.5 setborder 90 setangle_repere -0.8 5 setxrange -2.9 8 setyrange 1 1 settkstep 1 1 setsubtkstep 2 2 setmkstep ticks subticks 20 setfontsize marks traceaxes axesarrow unites /f {setxvar #rpn# x+3/x-1/x^2 } def /h {setxvar #rpn# x+9/4 } def /g {setxvar #rpn# x } def /f' { setxvar #rpn# (x-1)^2*(x+2)/x^3 } def gsave noir 1 setlinewidth continu 0.1 xmax {f} Courbe grestore gsave noir %rouge .75 setlinewidth pointilles 0 xmax {g} Courbe grestore gsave noir %rouge .75 setlinewidth pointilles 0 xmax {h} Courbe grestore noir %rouge 1.5 settailletangente 1 (f) tangente 2 3 div (f) tangente $y=x$ 3 dup g [1.5 dup] {1 1 atan} drtexlabel $y=x+\frac{9}{4}$ 3 dup h [1.5 dup] {1 1 atan} urtexlabel #latex# $\frac{2}{3}$ 2 3 div 0 [1.5 dup] dctexlabel (1) 1 -0.1 [1 dup] dctext 0.75 setlinewidth dotted [ 2 3 div dup dup f 0 3 1 roll] ligne [ 1 dup dup f 0 3 1 roll] ligne [ 0 2 3 div dup f dup 3 1 roll] ligne #latex# $\frac{35}{12}$ 0 2 3 div f [1.5 dup] cltexlabel