![[Maple Plot]](y1211.gif)
>
> restart;
> x:=(1-s)*cos(t):
> y:=s*sin(t):
> z:=2*s:
> c:=plot3d([x,y,z],s=0..1,t=0..2*Pi,scaling=constrained):
> with(plottools):
> vrml(c,"d:/87116/1201.wrl",background_color=white);
> c;
>
>
> restart;
> x1:=cos(t):
> y1:=sin(t):
> z1:=0:
> z2:=sqrt(3)*x1:
> y2:=y1:
> x2:=0:
> x:=(1-s)*x1+s*x2:
> y:=(1-s)*y1+s*y2:
> z:=(1-s)*z1+s*z2:
> a:=plot3d([x,y,z],s=0..1,t=-Pi/2..Pi/2,scaling=constrained):
> with(plottools):with(plots):
Warning, the name changecoords has been redefined> b:=reflect(a,[[0,0,0],[0,1,0],[0,0,1]]):
> c:=display(a,b):
> vrml(c,"d:/87116/1202.wrl",background_color=white);
> c;
![[Maple Plot]](y1212.gif)
>
> restart;
> r:=3+cos(u/2)*sin(v)-sin(u/2)*sin(2*v):
> x:=r*cos(u):
> y:=r*sin(u):
> z:=sin(u/2)*sin(v)+cos(u/2)*sin(2*v):
> c:=plot3d([x,y,z],v=0..2*Pi,u=-Pi/4..3*Pi/2,scaling=constrained,grid=[20,50]):
> with(plottools):
> vrml(c,"d:/87116/1203.wrl",background_color=white);
> c;
![[Maple Plot]](y1213.gif)
>
> restart;
> with(plots):with(plottools):
Warning, the name changecoords has been redefined> x1:=tan(t):
> y:=sec(t):
> z1:=0:
> x:=cos(s)*x1:
> z:=sin(s)*x1:
> a:=plot3d([x,y,z],s=0..2*Pi,t=0..Pi/2-0.5,scaling=constrained):
> b:=plot3d([x,-y,z],s=0..2*Pi,t=0..Pi/2-0.5,scaling=constrained):
> c:=display(a,b):
> vrml(c,"d:/87116/1204.wrl",background_color=white);
> c;
![[Maple Plot]](y1214.gif)
>
> restart;
> with(plots):with(plottools):
Warning, the name changecoords has been redefined> x1:=1:
> y1:=cos(t):
> z1:=sin(t):
> z:=z1:
> x:=cos(s)*x1-sin(s)*y1:
> y:=sin(s)*x1+cos(s)*y1:
> u:=arctan(cos(t)):
> a:=plot3d([x,y,z],s=0..Pi/2-2*u,t=-Pi/2..Pi/2,scaling=constrained,color=yellow):
> b:=rotate(a,0,0,Pi/2):
> c1:=display(a,b):
> d:=rotate(c1,0,0,Pi):
> c:=display(c1,d):
> vrml(c,"d:/87116/1205.wrl",background_color=white);
> c;
![[Maple Plot]](y1215.gif)
>
> restart;
> with(plots):with(plottools):
Warning, the name changecoords has been redefined> r:=cos(t):
> x:=r*cos(s):y:=r*sin(s):z:=sqrt(1-r^2):
> a:=plot3d([x,y,z],s=t..2*Pi-t,t=0..Pi/2,scaling=constrained):
> b:=plot3d([x,y,-z],s=t..2*Pi-t,t=0..Pi/2,scaling=constrained):
> c:=display(a,b):
> vrml(c,"d:/87116/1206.wrl",background_color=white);
> c;
![[Maple Plot]](y1216.gif)
> restart;
> with(plots):
Warning, the name changecoords has been redefined> a:=tubeplot([4*cos(t),4*sin(t),0],t=0..2*Pi,scaling=constrained,radius=0.6,grid=[30,30],color=red):
> b:=tubeplot([4+4*cos(t),0,4*sin(t)],t=0..2*Pi,scaling=constrained,radius=0.6,grid=[30,30],color=blue):
> c1:=tubeplot([2,2+4*cos(t),2+4*sin(t)],t=0..2*Pi,scaling=constrained,radius=0.6,grid=[30,30],color=yellow):
> c:=display(a,b,c1):
> with(plottools):
> vrml(c,"d:/87116/1207.wrl",background_color=white);
> c;
![[Maple Plot]](y1217.gif)
>