Feliz y mathematico Halloween

Esta noche, la del 31 de octubre, en la tradición anglosajona y, desde hace pocos años, en la nuestra, se celebra la fiesta de Halloween: una especie de fiesta de todos los Santos o de los difuntos, pero con un toque más divertido.

Por eso las matemáticas, y este blog, no pueden dejar pasar la oportunidad de celebrar esta nueva fiesta con una bonita imagen creada con el programa Mathematica 8.

Por si queréis reproducirla, aquí os dejo el código utilizado

Show[RegionPlot[ Max[x^2 + y^2 - 16, Min[-x - y - 5/2, x - y + 1/2, y + 2], Min[-x - y - 7/4, x - y - 1/4, y + 2], Min[-x - y - 1, x - y - 1, y + 2], Min[-x - y - 1/4, x - y - 7/4, y + 2], Min[-x - y + 1/2, x - y - 5/2, y + 2], Min[-x - y + 1/2, x - y + 7/2, y - 1], Min[-x - y + 2/3, x - y + 2/3, y + 1/3], Min[-x - y + 7/2, x - y + 1/2, y - 1]] < 0, {x, -5, 5}, {y, -5, 5}, PlotStyle -> Orange, BoundaryStyle -> {Black, Thickness[.005]}], RegionPlot[ Max[Min[-x - y - 5/2, x - y + 1/2, y + 2], Min[-x - y - 7/4, x - y - 1/4, y + 2], Min[-x - y - 1, x - y - 1, y + 2], Min[-x - y - 1/4, x - y - 7/4, y + 2], Min[-x - y + 1/2, x - y - 5/2, y + 2], Min[-x - y + 1/2, x - y + 7/2, y - 1], Min[-x - y + 2/3, x - y + 2/3, y + 1/3], Min[-x - y + 7/2, x - y + 1/2, y - 1]] > 0, {x, -5, 5}, {y, -5, 5}, PlotStyle -> ColorData["Legacy"]["MarsOrange"], BoundaryStyle -> {Black, Thickness[.005]}], Frame -> False]

Esta versión es una ligerísima modificación de la que vi en The Official Tumblr of Wolfram|Alpha.

Tito Eliatron Dixit