4517.sagews

x=var('x');y=var('y') 
f1(x,y)=(x/7)^2*sqrt(abs(abs(x)-3)/(abs(x)-3))+(y/3)^2*sqrt(abs(y+3*sqrt(33)/7)/(y+3*sqrt(33)/7))-1
p1=implicit_plot(f1==0,(-8,8),(-3,3),plot_points=200, color="yellow") 
f2(x,y)=(abs(x/2)-((3*sqrt(33)-7)/112)*x^2-3+sqrt(1- (abs(abs(x)-2)-1)^2)- y)-.3
p2=implicit_plot(f2==0,(-8,8),(-3,3),plot_points=100, color="yellow") 
f3(x,y)=(9*sqrt(abs((abs(x)-1)*(abs(x)-3/4))/((1- abs(x))*(abs(x)-3/4)))-8*abs(x)-y-.3) + .5 
p3=implicit_plot(f3==0,(-8,8),(-3,3),plot_points=300, color="yellow") 
f4(x,y)=(3*abs(x)+.75*sqrt(abs((abs(x)-3/4)*(abs(x)-1/2))/((3/4- abs(x))*(abs(x)-1/2)))- y)
p4=implicit_plot(f4==0,(-8,8),(-3,3),plot_points=500, color="yellow") 
f5(x,y)=(9/4*sqrt(abs((x-2/3)*(x+2/3))/((2/3-x)*(2/3+x)))-y)+.1
p5=implicit_plot(f5==0,(-8,8),(-3,3),plot_points=100, color="yellow") 
f6(x,y)=((6*sqrt(10))/7+(3/2-abs(x)/2)*sqrt(abs(abs(x)-1)/(abs(x)-1))-(6*sqrt(10))/14*sqrt(4-(abs(x)-1)^2)-y)+ .3
p6=implicit_plot(f6==0,(-8,8),(-3,3),plot_points=100, color="yellow") 
p7=ellipse((0,0),8.5,4, color="yellow") 
p8=text("NANANANA NANANANA", (0,7), fontsize=20, rgbcolor=(1,1,1))
p9=text("BATMAN!",(0,-7), fontsize=40, rgbcolor=(1,1,1))
Bg = region_plot((x<9,x>-9 , y<9,y>-9) , (x,-9,9) , (y,-9,9) , incol="black")
show(Bg+p1+p2+p3+p4+p5+p6+p7+p8+p9)