Source
%auteur : Peric
14.225  setxunit
1.4225 setyunit
-1.9 50 setxrange
-10 200 setyrange
2 20 settkstep
2 20 setmkstep
ticks
marks
traceaxes


/f {setxvar
#rpn# (x^2-6*x+144)/(x-6)+Cos(4*x)
} def
/g{30} def
/h {setxvar
#rpn# x
} def

gsave
   bleu
   2 setlinewidth
   continu
   6.1 100 {f} Courbe
grestore
gsave
   rouge
   .75 setlinewidth
   continu
   {g} courbe
   {h} courbe
18 30 point
[6 -20 6 300] ligne
<latex>
$x=6$
</latex>
5.3 100 [1.5 dup] {90}  cltexlabel

<latex>
$y=30$
</latex>
2 dup g [1.5 dup]  {0} uctexlabel

<latex>
$y=x$
</latex>
10 dup h  [1.5 dup] {0.1 1 atan} uctexlabel


grestore