For comparison with other CAS choose from: Axiom Derive Macsyma Maple Mathematica
w:=for u:=0 step dd until 2*pi collect
for v:=-pi/2 step dd until pi/2 collect
sin v, sin(2*v)*sin u, sin(2*v)*cos u$
plot w;
dd:=pi/10;