1 1 setsubtkstep

quadrillage
tracerepere
marks

/f {
   setxvar
   x 2 add
   1 2 x mul sub
   x Exp mul
   add
} def
/f' {pop 0} def

1.7 setlinewidth
{f} courbe

4 settailletangente
0 (f) tangente