2 setxyrapport
50 setxunit
7.5 setborder
90 setangle_repere
-2 7 setxrange
-12 8 setyrange
1 2 settkstep
1 2 setmkstep
ticks
marks
traceaxes
axesarrow
unites
/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
   1 setlinewidth
   continu
   -0.99 xmax {f} Courbe
grestore
gsave
   rouge
   1 setlinewidth
   pointilles
   {g} courbe
grestore
gsave
   rouge
   1 setlinewidth
   continu
   {h} courbe
grestore


[-1 ymin -1 ymax] 1 setlinewidth pointilles rouge ligne
#latex# $x=-1$
 -1 6 [1.5 dup ] {90} rouge ultexlabel
#latex# $y=\frac{1}{2}x+3$
 6 dup g [1.5 dup ] {14} rouge ultexlabel
#latex# $y=\frac{9}{4}(x-1)$
 4.2 dup h [1.5 dup ] {45} ultexlabel
#latex# $f(x)=\frac{x^2+7x-8}{2(x+1)}$
 6 dup f [1.5 dup ] {16} bleu dltexlabel
(A) 1 0.2 [2 dup ] noir ultext
(0) 0 0 [2 dup] noir dltext