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
Like this:
Like Loading...
Related