Najbardziej superbohaterskie równanie świata

Mówi się, że matematyka to uniwersalny język, w którym można zapisać praktycznie wszystko. Jednak dopiero patrząc na ten wykres, naprawdę łatwo w to uwierzyć...

Panie i panowie, poznajcie Równanie Batmana. Tak, to równanie generuje ponoć wykres będący idealną kopią klasycznego logo Batmana. Niestety, nie udało się znaleźć wersji z "Mrocznego rycerza", ale zapewne to tylko kwestia czasu. Nie wierzycie? Kalkulatory graficzne/oprogramowanie w dłoń i liczcie - koniecznie podzielcie się wynikami w komentarzach!

Oto zapis, który powinien działać np. w Mathematice:

((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] + .75 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) == 0

Źródło: techeblog