Describe how 4 identical pipes are joined together symmetrically.

>

> restart;

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

> x:=cos(t):

> y:=sin(t):

> k:=1/2:

> z1:=2:

> z2:=x*k:

> z:=(1-s)*z1+s*z2:

> a1:=plot3d([x,y,z],t=-Pi/3..Pi/3,s=0..1,scaling=constrained,grid=[30,8]):

> a2:=rotate(a1,0,0,2*Pi/3):

> a3:=rotate(a1,0,0,4*Pi/3):

> a:=display(a1,a2,a3):

> b1:=reflect(a,[[0,0,0],[1,0,k],[1,1,k]]):

> b2:=rotate(b1,0,0,2*Pi/3):

> b3:=rotate(b1,0,0,4*Pi/3):

> h:=display(a,b1,b2,b2,b3):

> with(plottools):

> vrml(h,"c:/87138/ex11/11-14.wrl",background_color=white);

> display(h);

>