4644.sagews

x,y,z=var('x,y,z')
y1=implicit_plot3d(6*x^2+6*(y-3)^2-z^2-2,(x,-2,2),(y,0,2),(z,-2,0),color="black")
y2=implicit_plot3d(x^2+z^2-1.65,(x,-2,2),(y,-2,1.75),(z,-2,2),color="tan")
y3=implicit_plot3d(x^2-.4*(y+4)^2+(z-2)^2,(x,-5,5),(y,-3,-4),(z,-5,5),color="black")
y4=implicit_plot3d((x)^2+(y+1.75)^2+(z)^2-1.5,(x,-1.5,1.5),(y,-5,5),(z,-2,5),color="tan")
y5=implicit_plot3d(2*(x-1)^2+2*(y+1.5)^2-.25,(x,-2,2),(y,-2,2),(z,-2,0),color="tan")
y6=implicit_plot3d(2*(x+1)^2+2*(y+1.5)^2-.25,(x,-2,2),(y,-2,2),(z,-2,0),color="tan")
y7=implicit_plot3d((x+1)^2+(y+1.75)^2+1.5*(z+1.75)^2-.25,(x,-5,5),(y,-5,5),(z,-2,5),color="tan")
y8=implicit_plot3d((x-1)^2+(y+1.75)^2+1.5*(z+1.75)^2-.25,(x,-5,5),(y,-5,5),(z,-2,5),color="tan")
y9=implicit_plot3d(2*(x-1)^2+2*(y-1.5)^2-.25,(x,-2,2),(y,-2,2),(z,-2,0),color="tan")
y10=implicit_plot3d(2*(x+1)^2+2*(y-1.5)^2-.25,(x,-2,2),(y,-2,2),(z,-2,0),color="tan")
y11=implicit_plot3d((x+1)^2+(y-1.25)^2+1.5*(z+1.75)^2-.25,(x,-5,5),(y,-5,5),(z,-2,5),color="tan")
y12=implicit_plot3d((x-1)^2+(y-1.25)^2+1.5*(z+1.75)^2-.25,(x,-5,5),(y,-5,5),(z,-2,5),color="tan")
y14=implicit_plot3d(((x)^2+.5*(y+2.25)^2+1.5*(z-2)^2-1),(x,-5,5),(y,-5,5),(z,-2,5),color="tan")
y15=implicit_plot3d((x)^2+(y-1.25)^2+.9*(z)^2-1.65,(x,-1.5,1.5),(y,1.75,5),(z,-1.25,1.25),color="tan")
y16=implicit_plot3d((-(x+1.1)+3*(y+2)^2+.1*(z-1)^2-.05),(x,-1.5,-.8),(y,-5,5),(z,-5,2),color="tan")
y13=implicit_plot3d((x)^2+(y+2)^2-(z-1)^2-.2,(x,-1,1),(y,-5,5),(z,.3,1.5),color="purple")
y17=implicit_plot3d(((x-1.1)+3*(y+2)^2+.1*(z-1)^2-.05),(x,.8,1.5),(y,-5,5),(z,-5,2),color="tan")
y18=implicit_plot3d(((x-.6)^2+(y+2.5)^2+1.5*(z-2.5)^2-.1),(x,-5,5),(y,-5,5),(z,-5,5),color="white")
y19=implicit_plot3d(((x+.6)^2+(y+2.5)^2+1.5*(z-2.5)^2-.1),(x,-5,5),(y,-5,5),(z,-5,5),color="white")
y20=implicit_plot3d(((x-.65)^2+(y+2.55)^2+1.5*(z-2.5)^2-.08),(x,-5,5),(y,-5,5),(z,-5,5),color="black")
y21=implicit_plot3d(((x+.65)^2+(y+2.55)^2+1.5*(z-2.5)^2-.08),(x,-5,5),(y,-5,5),(z,-5,5),color="black")
y22=implicit_plot3d(100*(x)^2+100*(y-1.75)^2+(z-4), (x,-1,2),(y,-5,5),(z,0,5), color= "black")
plane = plot3d((-2 ), (x, -5, 5), (y, -5, 5), color="green")
show(y1+y2+y3+y4+y5+y6+y7+y8+y9+y10+y11+y12+y13+y14+y15+y16+y17+y18+y19+y20+y21+y22+plane)