miércoles, 31 de octubre de 2012

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

No hay comentarios:

Publicar un comentario

Si no comentas, Gauss se comerá una integral.
Y, por favor, respeta a todos con tus opiniones.