5
MathematicaでWaldoを見つけるにはどうすればよいですか?
これは週末に私を悩ませていました:Waldoのそれらを解決する良い方法は何ですか? [ 北米以外の「ウォーリー」 ] 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 && …