dd:=pi/10;
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; . Axiom . Derive . Macsyma . Maple . Mathematica