> with(plots):

> A:=implicitplot3d(z = -6, x = -3..3, y = -3..3, z = -10..2, style = PATCHNOGRID, numpoints = 5000): B:=implicitplot3d(x^3 - y = 0, x = -3..3, y = -3..3, z = -6.1..-5.5, style = PATCHNOGRID, color = black, numpoints = 5000):C:=implicitplot3d(z*(x^3 - y) = 1, x = -3..3, y = -3..3, z = -4..4, style = patchcontour, numpoints = 5000):

>

> display(A, B, C, orientation = [53, 72]);

> A:=implicitplot3d(z = -8, x = -3..3, y = -3..3, z = -10..2, style = PATCHNOGRID, numpoints = 5000): B:=implicitplot3d(x^3 - y = 0, x = -3..3, y = -3..3, z = -8.1..-7.8, style = PATCHNOGRID, color = black, numpoints = 5000):C:=implicitplot3d(z*(x^3 - y) = 1, x = -3..3, y = -3..3, z = -4..6, style = patchcontour, numpoints = 5000):G:=implicitplot3d(x - y = 0, x = -3..3, y = -3..3, z = -8.1..-7.8, style = PATCHNOGRID, color = blue):H:=implicitplot3d(x - y = 0, x = -3..3, y = -3..3, z = -4..6, style = PATCHNOGRID, color = blue):

> display(A, B, C, G, H, orientation = [68, 73]);

>