-3 6 setxrange
tracerepere
marks

/f {
   setxvar
   x dup mul 
   x 4 mul sub
   1 sub
} def

medium setlinewidth
{f} courbe