This will do it for any Maple users out there: 
 
batman:=((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) *(abs(x/2) 
- ((3*sqrt(33) - 7)/112)*x^2 - 3 +sqrt(1 - (abs(abs(x) - 2) - 1)^2 ) - y)
*(9*sqrt(abs((abs(x) - 1) *(abs(x) - 3/4))/((1 - abs(x))*(abs(x) - 3/4))) 
- 8*abs(x) - y) *(3*abs(x) + 3/4*sqrt(abs((abs(x) - 3/4)*(abs(x) - 1/2))
 /((3/4 - abs(x))*(abs(x) - 1/2))) - y)*(9/4*sqrt(abs((x - 1/2) *(x + 1/2))
/((1/2 - x)*(1/2 + 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); 
plots:-implicitplot(batman, x=-7..7, y=-3..3, factor=true, scaling=constrained, grid=[100,100], gridrefine=4);
 

Batman Equations

font: http://www.reddit.com/r/pics/comments/j2qjc/do_you_like_batman_do_you_like_math_my_math/

Batsigns