-1 7 setxrange
-4 8 setyrange
/f {
setxvar
x 3 x div add 1 x dup mul div sub
} def
/f' {pop 0} def
tracerepere
marks
gsave
mixte
{} courbe
grestore
medium setlinewidth
.1 xmax {f} Courbe
1.8 settailletangente
1 (f) tangente
1 3 div dup point
setSymbol
(D) 5 dup drtext
setTimesItalic
(C) 3 dup f ultext
(f) indice
(K) 1 3 div dup .2 add drtext
|