Tecnometro

En reddit un usuario publicó una ecuación que supuestamente le enseñó su profesor de matemáticas, vaya que es una muy buena forma de motivar a los estudiantes a que aprendan matemáticas:

Haz clic en la imagen para agrandarla

Puedes hacer la prueba si tienes Wolfram Mathematica, Matlab o Maple, solo tienes que tratar de escribir la ecuación en dichos programas y graficarla.

(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=0 ABS(x/2)-((3*SQRT(33)-7)/112)*x^2-3+SQRT(1-(ABS(ABS(x)-2)-1)^2)-y=0 9*SQRT(ABS((ABS(x)-1)*(ABS(x)-0.75))/((1-ABS(x))*(ABS(x)-0.75)))-8*ABS(x)-y=0 3*ABS(x)+0.75*SQRT(ABS((ABS(x)-0.75)*(ABS(x)-0.5))/((0.75-ABS(x))*(ABS(x)-0.5)))-y=0 2.25*SQRT(ABS((x-0.5)*(x+0.5))/((0.5-x)*(0.5+x)))-y=0 (6*SQRT(10))/7+(1.5-0.5*ABS(x))*SQRT(ABS(ABS(x)-1)/(ABS(x)-1))-((6*SQRT(10))/14)*SQRT(4-(ABS(x)-1)^2)-y=0

((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