%% auteur : Péric
28.45 setxunit
-1 8 setxrange
-1 13 setyrange
1 1 settkstep
1 1 setmkstep
ticks
marks
traceaxes
axesarrow
unites

/titrait {%le point à marquer puis un point de la droite
4 dict begin 
/b defpoint
/a defpoint
/d {a a b vecteur arg 90 add dir 0.1 mulv translatepoint} def
/e {a a b vecteur arg -90 add dir 0.1 mulv translatepoint} def
[d e] ligne
end
} def

/f {setxvar
#rpn#   (x^2-x+2)/(x-2)
} def
/g {setxvar
#rpn# 7
} def
/h {setxvar
#rpn# -3*x+17
} def

/A {3 dup h} def
/B {4 dup g} def
/C {4.5 dup h} def
/D {4.5 dup g} def

gsave
   bleu
   2 setlinewidth
   continu
   2.5 5 {f} (*-*) Courbe
grestore
gsave
   rouge
<latex>
$y=7$
</latex>
1 dup g [1.5 dup] dctexlabel
<latex>
$y=-3x+17$
</latex>
5 dup h [1.5 dup] {-3 1 atan}ultexlabel

   .75 setlinewidth
   continu
   {g} courbe
   {h} courbe
grestore
A C titrait
B D titrait

pointilles
[2.5 dup f dup 0 exch ] ligne
[5 dup f dup 0 exch ] ligne
<latex>
$\frac{23}{2}$
</latex>
-0.3 2.5 f [1.5 dup] cltexlabel
<latex>
$\frac{22}{3}$
</latex>
-0.3 5 f [1.5 dup] cltexlabel