The equation of the Dark Knight

I think you will agree this is a nice equation.

((x/7)² Sqrt[Abs[Abs[x] – 3]/(Abs[x] – 3)] + (y/3)² Sqrt[Abs[y + (3 Sqrt[33])/7]/(y + (3 Sqrt[33])/7)] – 1)(Abs[x/2] – ((3 Sqrt[33] – 7)/112) x² – 3 + Sqrt[1 - (Abs[Abs[x] – 2] – 1)² ] – 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)² ] – y) == 0

But a picture paints a thousand words, they say, so if you graph this equation it becomes a little clearer (and for a nice video explaining it see here):

About these ads