In[1]:=

F[x_, y_] := -x y ^(-x^2 - y^2) For[t = 0, t<2π, Plot3D[F[x, y], {x, -2, 2}, { ... 150, PlotRangeAll, ViewPoint-> {3Cos[t], 3Sin[t], -3Sin[t]}] ; t += π/32]

[Graphics:HTMLFiles/bumps_66.gif]


Created by Mathematica  (November 22, 2005)