Это подшучивало над выходными: что это хороший способ решить эти Где Waldo? ['Wally' за пределами Северной Америки] головоломки, используя Mathematica (обработка изображений и другие функции)?
Вот что у меня есть до сих пор, функция, которая немного уменьшает визуальную сложность путем затемнения некоторые из некрасных цветов:
whereIsWaldo[url_] := Module[{waldo, waldo2, waldoMask},
waldo = Import[url];
waldo2 = Image[ImageData[
waldo] /. {{r_, g_, b_} /;
Not[r > .7 && g < .3 && b < .3] :> {0, 0,
0}, {r_, g_, b_} /; (r > .7 && g < .3 && b < .3) :> {1, 1,
1}}];
waldoMask = Closing[waldo2, 4];
ImageCompose[waldo, {waldoMask, .5}]
]
И пример URL-адреса, где это "работает":
whereIsWaldo["http://www.findwaldo.com/fankit/graphics/IntlManOfLiterature/Scenes/DepartmentStore.jpg"]
(Waldo находится в кассе):