ParametricPlot3D[Sin[2 phi] Cos[2 theta] {Sin[theta] Sin[phi], Cos[theta] Sin[phi], Cos[phi]}, {theta, 0, 2 Pi}, {phi, 0, Pi}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.