Mathematica

Navidad. Pavo, villancicos, el discurso del Rey, polvorones, la Misa del Gallo, Papá Noel. Papá Noel va de rojo y blanco. Como el Atleti, la Coca Cola o Wally. Curiosamente este post trata sobre encontrar a Waly usando Mathematica. Así de fino hilvanamos en Genbeta Dev. donde no descansamos ni por Navidad, siempre trayéndote artículos interesantes y/o curiosos como es este caso.

En nuestra amada Stack Overflow alguien preguntaba si sería posible encontrar a Wally (Waldo en el idioma de Shakespeare) en una de sus míticas láminas utilizando el potencial de Mathematica, el popular programa de cálculo matemático y, a su vez, poderoso (muy poderoso) lenguaje de programación. La respuesta no tardó en llegar y era de carácter afirmativo:

waldo = Import["http://www.findwaldo.com/fankit/graphics/ IntlManOfLiterature/Scenes/DepartmentStore.jpg"]; red = Fold[ImageSubtract, #[[1]], Rest[#]] &@ColorSeparate[waldo]; corr = ImageCorrelate[red, Image@Join[ConstantArray[1, {2, 4}], ConstantArray[0, {2, 4}]], NormalizedSquaredEuclideanDistance]; pos = Dilation[ColorNegate[Binarize[corr, .12]], DiskMatrix[30]]; found = ImageMultiply[waldo, ImageAdd[ColorConvert[pos, "GrayLevel"], .5]]

¡Vótalo!

Editores 0

Comunidad 0

Actividad de la comunidad