with(plots); -1 

`:=`(P1, plot3d([x, y, 
sqrt(`+`(1, `-`(`*`(`^`(x, 2)))))], x = -1 .. 1, y = `+`(`-`(sqrt(`+`(1,
 `-`(`*`(`^`(x, 2))))))) .. sqrt(`+`(1, `-`(`*`(`^`(x, 2))))))) 

PLOT3D(MESH([[[-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 
0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], 
[-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., ... (1)
 

`:=`(P2, plot3d([x, y, 
`+`(`-`(sqrt(`+`(1, `-`(`*`(`^`(x, 2)))))))], x = -1 .. 1, y = 
`+`(`-`(sqrt(`+`(1, `-`(`*`(`^`(x, 2))))))) .. sqrt(`+`(1, 
`-`(`*`(`^`(x, 2))))))) 

PLOT3D(MESH([[[-1., 0., -0.], [-1., 0., -0.], [-1., 0., -0.], [-1.,
 0., -0.], [-1., 0., -0.], [-1., 0., -0.], [-1., 0., -0.], [-1., 0., 
-0.], [-1., 0., -0.], [-1., 0., -0.], [-1., 0., -0.], [-1., 0., ... (2)
 

`:=`(P3, plot3d([x, sqrt(`+`(1, 
`-`(`*`(`^`(x, 2))))), z], x = -1 .. 1, z = `+`(`-`(sqrt(`+`(1, 
`-`(`*`(`^`(x, 2))))))) .. sqrt(`+`(1, `-`(`*`(`^`(x, 2))))))) 

PLOT3D(MESH([[[-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 
0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], 
[-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., 0., 0.], [-1., ... (3)
 

`:=`(P4, plot3d([x, 
`+`(`-`(sqrt(`+`(1, `-`(`*`(`^`(x, 2))))))), z], x = -1 .. 1, z = 
`+`(`-`(sqrt(`+`(1, `-`(`*`(`^`(x, 2))))))) .. sqrt(`+`(1, 
`-`(`*`(`^`(x, 2))))))) 

PLOT3D(MESH([[[-1., -0., 0.], [-1., -0., 0.], [-1., -0., 0.], [-1.,
 -0., 0.], [-1., -0., 0.], [-1., -0., 0.], [-1., -0., 0.], [-1., -0., 
0.], [-1., -0., 0.], [-1., -0., 0.], [-1., -0., 0.], [-1., -0.,... (4)
 

`:=`(P5, 
implicitplot3d(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))) = 1, x = -1 .. 1, y =
 -1 .. 1, z = -2 .. 2, color = grey, style = surface, transparency = 
.5)) 

PLOT3D(ISOSURFACE(Array(1..10, 1..10, 1..10, 1..4, {(1, 1, 1, 1) = 
-1.0, (1, 1, 1, 2) = -1.0, (1, 1, 1, 3) = -1.0, (1, 1, 1, 4) = -1.0, (1,
 1, 2, 1) = -1.0, (1, 1, 2, 2) = -1.0, (1, 1, 2, 3) = -1.0, (... (5)
 

`:=`(P6, 
implicitplot3d(`+`(`*`(`^`(x, 2)), `*`(`^`(z, 2))) = 1, x = -1 .. 1, y =
 -2 .. 2, z = -1 .. 1, color = blue, style = surface, transparency = 
.5)) 

PLOT3D(ISOSURFACE(Array(1..10, 1..10, 1..10, 1..4, {(1, 1, 1, 1) = 
-1.0, (1, 1, 1, 2) = -1.0, (1, 1, 1, 3) = -1.0, (1, 1, 1, 4) = -1.0, (1,
 1, 2, 1) = -1.0, (1, 1, 2, 2) = -1.0, (1, 1, 2, 3) = -1.0, (... (6)
 

display(P5, display(P5, P6), 
display(P1, P2, P5, P6), display(P1, P2, P3, P4, P5, P6), insequence = 
true, scaling = constrained, lightmodel = light2)
display(P5, display(P5, P6), 
display(P1, P2, P5, P6), display(P1, P2, P3, P4, P5, P6), insequence = 
true, scaling = constrained, lightmodel = light2)
 

Plot
 

display(P1, P2, P3, P4, axes = 
boxed) 

Plot