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

[Graphics:HTMLFiles/Curvey_66.gif]


Created by Mathematica  (February 11, 2004)