Question: Increase Acuracy of Plot3d??

The problem i have is this, the plot that i am suppose to recieve is one that looks like the 'pointplot3d' below, yet i recieve something which doesn't. Any suggestions as to how to circumvent this? with(plots):Digits:=15: > Omega[0,1]:=.825352549049169: plot3d(MathieuCE(0,Omega[0,1],r*I)*MathieuCE(0,Omega[0,1],theta),theta=0..2*Pi,r=0..1,coords=ellcylindrical,axes=FRAMED); points1:={seq(seq([T/100,2*Pi*S/100,MathieuCE(0,Omega[0,1],2*Pi*S/100)*MathieuCE(0,Omega[0,1],I*T/100)],T=1..100), S=1..100)}: pointplot3d(points1,coords=ellcylindrical, axes=FRAMED, color=red, style=wireframe);
Please Wait...