For comparison with other CAS choose from: Derive Macsyma Maple Mathematica Reduce
draw(surface(sin(v), sin(2*v)*sin(u), sin(2*v)*cos(u)), _ u = 0..2*%pi, v = -%pi/2..%pi/2)
u = 0..2*%pi, v = -%pi/2..%pi/2)