%% auteur : Péric
28.45 setxunit
-6.5 8 setxrange
-4 6 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+10*x-7)/(x^2-2*x+5)
} def
/f' {setxvar
#rpn# 0
} def
/g {setxvar
#rpn# -(9/25)*x+26/5
} def
/h {setxvar
#rpn# -(9/25)*x-62/25
} def

/A {5 dup f} def
/B {-3 dup f} def


gsave
   bleu
   2 setlinewidth
   continu
   -5 7 {f} (*-*) Courbe
grestore
gsave
   rouge
<latex>
$y=-\frac{9}{25}x+\frac{26}{5}$
</latex>
1 dup g [1.5 dup] {-9 25 div 1 atan}dltexlabel
<latex>
$y=-\frac{9}{25}x-\frac{62}{25}$
</latex>
4.5 dup h [1.5 dup] {-9 25 div 1 atan}ultexlabel
2 settailletangente
3 (f)tangente
-1 (f) tangente

-1 dup f point
3 dup f point
A point
B point
(A) A [1.5 dup] urtext
(B) B [1.5 dup] dltext

   .75 setlinewidth
   continu
   {g} courbe
   {h} courbe
grestore