如何在Mathematica中找到Waldo？

作者: 狗头军师
发布时间: 2024-02-29 11:40:05 (3月前)

2 条回复

1#
回复此人
v-star*위위 | 2020-08-21 16-22

我找到沃尔多了！瓦尔多被发现我是如何做到的首先，我要过滤掉所有不是红色的颜色 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]; 我通常Binarize会选择图像中具有足够高相关性的像素，并在它们周围画一个白色圆圈以强调它们Dilation `pos = Dilation[ColorNegate[Binarize[corr, .12]], DiskMatrix[30]];` 我必须和水平玩一些。如果水平太高，则会挑出太多的误报。最后，我将此结果与原始图像结合起来得到上面的结果 `found = ImageMultiply[waldo, ImageAdd[ColorConvert[pos, "GrayLevel"], .5]]`

编辑

登录后才能参与评论