Mathematical Experiment 9

Construct this surface which appear as thus from various angles:
x:=1+cos(t);
y:=sin(t);
a1:=plot3d([x,y,z],t=Pi/2..Pi,z=-x..x,scaling=constrained):
a2:=rotate(a1,0,Pi/2,0):
b1:=display(a1,a2):
b2:=reflect(b1,[[1,1,1],[0,0,1],[0,1,1]]):
c1:=display(b1,b2):
c2:=reflect(c1,[[1,1,1],[1,0,0],[1,1,0]]):
display(c1,c2);
Construct this surface which appear as thus from various angles:
x:=r*cos(t);
y:=r*sin(t);
z:=x^2+y^2;
a:=plot3d([x,y,z],r=cos(t)..1,t=-Pi/2..Pi/2,scaling=constrained):
d:=reflect(a,[[0,0,0],[1,1,1],[1,2,1]]):
c:=display(a,d):
b:=reflect(c,[[0,0,0],[0,1,1],[0,0,2]]):
e:=display(b,c):
f:=reflect(e,[[0,0,0],[1,0,0],[1,1,0]]):
h:=display(e,f):
Construct this surface which appear as thus from various angles:
x:=1+cos(t);
y:=sin(t);
a1:=plot3d([x,y,z],t=Pi/2..Pi,z=-x..x,scaling=constrained):
a2:=rotate(a1,0,Pi/2,0):
b1:=display(a1,a2):
b2:=rotate(b1,0,Pi,0):
c:=display(b1,b2):
Construct this surface which appear as thus from various angles:
x:=r*cos(t);
y:=r*sin(t);
z:=x^2+y^2;
a:=plot3d([x,y,z],r=cos(t)..1,t=-Pi/2..Pi/2,scaling=constrained):
d:=reflect(a,[[0,0,0],[1,1,1],[1,2,1]]):
c:=display(a,d):
b:=reflect(c,[[0,0,0],[0,1,1],[0,0,2]]):
e:=display(b,c):
f:=reflect(e,[[0,0,0],[1,0,0],[1,1,0]]):
h:=display(e,f):
Construct this surface which appear as thus from various angles:
x:=1+cos(t);
y:=sin(t);
a1:=plot3d([x,y,z],t=0..Pi,z=-x..x,scaling=constrained):
a2:=rotate(a1,0,Pi/2,0):
b1:=display(a1,a2):
b2:=rotate(b1,0,Pi,0):
c:=display(b1,b2):