HardOCP News
[H] News
- Joined
- Dec 31, 1969
- Messages
- 0
The Batman equation, what the hell is the Batm... whoa, wait....what? Blame Ryan North for this one.
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
So who's double checked it?
No need. The graph is clearly piece-wise, but the equation is not. It's faked.
|x| is a piecewise function, and the equation contains 19 of them...The graph is clearly piece-wise, but the equation is not.
No need. The graph is clearly piece-wise, but the equation is not. It's faked.
|x| is a piecewise function, and the equation contains 19 of them...
and I was just about to correct my self and say at x=1 but instead I realized there is a way to change the "order" of the equation using a combination of abs signs in fraction form. It's probably real.
In 1.4 increments too, was this person going for average size or something or does this person just hate life?
ContourPlot[
((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] - .75)]/((1 -
Abs[x]) (Abs[x] - .75))] - 8*Abs[x] -
y)*(3*Abs[x] + .75 Sqrt[
Abs[(Abs[x] - .75) (Abs[x] - .5)]/((.75 -
Abs[x]) (Abs[x] - .5))] -
y)*(2.25 Sqrt[Abs[(x - .5) (x + .5)]/((.5 - x) (.5 + x))] - y)*((
6 Sqrt[10])/
7 + (1.5 - .5*Abs[x]) Sqrt[Abs[Abs[x] - 1]/(Abs[x] - 1)] - (
6 Sqrt[10])/14 Sqrt[4 - (Abs[x] - 1)^2] - y) == 0
, {x, -10, 10}, {y, -10, 10}]
I tried to plot it, but all I get is a blank plot in Mathematica. Maybe I made a typo in translating it, or maybe it's too much for it.
Code:ContourPlot[ ((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] - .75)]/((1 - Abs[x]) (Abs[x] - .75))] - 8*Abs[x] - y)*(3*Abs[x] + .75 Sqrt[ Abs[(Abs[x] - .75) (Abs[x] - .5)]/((.75 - Abs[x]) (Abs[x] - .5))] - y)*(2.25 Sqrt[Abs[(x - .5) (x + .5)]/((.5 - x) (.5 + x))] - y)*(( 6 Sqrt[10])/ 7 + (1.5 - .5*Abs[x]) Sqrt[Abs[Abs[x] - 1]/(Abs[x] - 1)] - ( 6 Sqrt[10])/14 Sqrt[4 - (Abs[x] - 1)^2] - y) == 0 , {x, -10, 10}, {y, -10, 10}]
, or maybe it's too much for it.