8-3

> restart;

> r:=3+cos(t):

> x:=r*cos(s):y:=r*sin(s):z:=sin(t):

> p:=plot3d([x,y,z],s=0..2*Pi,t=0..2*Pi,scaling=constrained):p;

> with(plottools):

> vrml(p,"c:/program files/maple 6/beauty/8-3.wrl",background_color=white);

>