6.17 Saving a plot as eps

Plot3D[Sin[x y], {x, -3, 3}, {y, -3, 3}] 
Export["plot.eps", %]