%%% les bornes sur les axes
/xmin -10 def
/xmax 11 def
/ymin -6.5 def
/ymax 7.5 def

%%% les ticks sur les axes
/xmkstep 2 def		% les marques sur Ox
/ymkstep 1 def		% les marques sur Oy
/xtkstep 2 def		% les ticks sur Ox
/ytkstep 2 def		% les ticks sur Oy
/xsubtkstep 1 def	% les subticks sur Ox
/ysubtkstep 1 def	% les subticks sur Oy

/f {
   dup dup dup	% x, x, x, x
   mul 3 mul	% x, x, 3x^2
   exch 8 mul	% x, 3x^2, 8x
   add		% x, 3x^2+8x
   3 sub	% x, 3x^2+8x-3
   exch dup mul % 3x^2+8x-3, x^2
   1 add div
}  def

tracerepere
0 dup f point
2 dup f dashpoint
1 dup f dashpoint
marks

1.3 setlinewidth
{f} courbe

setTimesItalic
   (O) O dltext