Source
%% 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