Hace ya unas semanas apareció por internet una imagen con una ecuación cuyas soluciones tenían como representación gráfica, en teoría, el logo de Batman. Hasta donde yo sé el tema comenzó en Reddit. Blogs de todo el mundo se hicieron eco de este asunto, y durante un tiempo se dudó de la veracidad del mismo: ¿de verdad las soluciones de esa ecuación representaban el logo de Batman?
Copio y pego el comentario de un partidario de hacerlo con Matlab:
Fernando | 15 de September de 2011 | 15:03
Qué grande! Nunca lo había pensado. Me ha encantado.
Por si a alguien le interesa hacerla en Matlab (yo es que el Mathematica no lo uso habitualmente), este es el código. He añadido instrucciones para que salga el fondo negro y las líneas en amarillo (así se aproxima más a la realidad). Pintar el interior de la elipse de amarillo ya es más difícil, ya que la función del murciélago se va pintando por partes.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clc;
clear all;
syms x y;
No vendría mal que se especificara en el título que lo que se hace en el post es representar esa ecuación con el programa Mathematica, más que nada para que no parezca duplicada. Gracias.
Comentarios
Yo con lo que me he quedado con el culo roto es con el enlace que viene en los comentarios del artículo:
http://gaussianos.com/la-formula-autorreferente-de-tupper/
Copio y pego el comentario de un partidario de hacerlo con Matlab:
Fernando | 15 de September de 2011 | 15:03
Qué grande! Nunca lo había pensado. Me ha encantado.
Por si a alguien le interesa hacerla en Matlab (yo es que el Mathematica no lo uso habitualmente), este es el código. He añadido instrucciones para que salga el fondo negro y las líneas en amarillo (así se aproxima más a la realidad). Pintar el interior de la elipse de amarillo ya es más difícil, ya que la función del murciélago se va pintando por partes.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clc;
clear all;
syms x y;
f1 = figure(1);
b1 = ((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);
b2 = (abs(x/2)-((3*sqrt(33)-7)/112)*x^2 -3 + …
sqrt(1-(abs(abs(x)-2)-1)^2) -y);
b3 = (9*sqrt(abs((abs(x)-1)*(abs(x)-0.75))/…
((1-abs(x))*(abs(x)-0.75))) -8*abs(x) -y);
b4 = (3*abs(x) + 0.75*sqrt(abs((abs(x)-0.75)*…
(abs(x)-0.5))/((0.75-abs(x))*(abs(x)-0.5))) -y);
b5 = (2.25*sqrt(abs((x-0.5)*(x+0.5))/…
((0.5-x)*(0.5+x))) -y);
b6 = (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);b7 = (x/8)^2 + (y/3.5)^2 -1;
axes(‘Xlim’, [-8.5 8.5], ‘Ylim’, [-5 5]);
hold on;
h = ezplot(b1, [-8 8 -3*sqrt(33)/7 6-4*sqrt(33)/7]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b2, [-4 4]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b3, [-1 -0.75 -5 5]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b3, [0.75 1 -5 5]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b4, [-0.75 0.75 2.25 5]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b5, [-0.5 0.5 -5 5]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b6, [-3 -1 -5 5]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b6, [1 3 -5 5]);
set(h,’Color’, ‘Yellow’);
h = ezplot(b7, [-8 8 -5 5]);
set(h,’Color’, ‘Yellow’);
set(gca,’Color’,[0 0 0]);
title(”);
xlabel(”);
ylabel(”);
hold off;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
A Sheldon Cooper le gusta esto.
Duplicada: La ecuación de Batman
La ecuación de Batman
zonagente.com#1 No es duplicada, lo que tu pones es la ecuación. Aquí está la solución en Mathematica.
#3 Venga, vale, aquí está mucho más desarrollada y resuelta.
#1 Yo creo que en el momento que una noticia supera en votos a otra igual (o parecida), es un tanto contraproducente hablar de duplicadas.
Esto no es friki, es lo siguiente
No vendría mal que se especificara en el título que lo que se hace en el post es representar esa ecuación con el programa Mathematica, más que nada para que no parezca duplicada. Gracias.
Lo meneo porque es muy útil
#9 ¿Sólo lo meneas? Yo me he impreso la ecuación para llevarla en la cartera.
¡Genial!