For comparison with other CAS choose from: Axiom Derive Maple Mathematica Reduce
plotsurf([[sin(v), sin(2*v)*sin(u), sin(2*v)*cos(u)]], u, 0, 2*%pi, v, -%pi/2, %pi/2);