-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