%% auteur : Peric 2 setxyrapport 56.90 setxunit 7.5 setborder 90 setangle_repere /xmarkstyle {[1.3 dup] dctext} def /ymarkstyle {[1.3 dup] ultext} def -1.9 6.9 setxrange -11.9 7.9 setyrange 1 1 settkstep 1 1 setmkstep ticks marks traceaxes axesarrow unites /a{2}def /f {setxvar #rpn# (1/2)*x+3-(7/(x+1)) } def /g {setxvar #rpn# (1/2)*x+3 } def /h {setxvar #rpn# (9/4)*(x-1) } def gsave bleu 2 setlinewidth continu -0.99 xmax {f} Courbe grestore gsave bleu 1 setlinewidth pointilles {g} courbe grestore gsave bleu 1 setlinewidth continu {h} courbe grestore [-1 ymin -1 ymax] 1 setlinewidth pointilles bleu ligne #latex# $x=-1$ bleu ultexlabel #latex# $y=\frac{1}{2}x+3$ 6 dup g [a dup ] {14} bleu ultexlabel #latex# $\Delta$ 1.5 dup g [a dup ] {14} bleu ultexlabel #latex# $y=\frac{9}{4}(x-1)$ 4.2 dup h [a dup ] {45} ultexlabel #latex# T -1.3 dup h [a dup ] {45} ultexlabel #latex# $f(x)=\frac{x^2+7x-8}{2(x+1)}$ 6 dup f [a dup ] {16} bleu dltexlabel (A) 1 0.2 [a dup ] noir ultext (0) 0 0 [1.3 dup] noir dltext