5
如何在Mathematica中找到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 …