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

[Graphics:HTMLFiles/Mountain_66.gif]


Created by Mathematica  (February 11, 2004)