-10 2 setxrange
-2 10 setyrange

tracerepere
marks

/f {
   setxvar
   -1
   1 x 1 sub div
   add
   1
   x 1 sub dup mul 2 mul div
   add
} def
/f' {
   setxvar
   x neg
   x 1 sub 3 exp
   div
} def

1.2 setlinewidth
xmin .9999 {f} Courbe

3 settailletangente
0 (f) tangente

.8 setlinewidth
mixte
{pop -1} courbe
1 ymin 1 ymax droite