在臉書上看到的 LoL
http://stackoverflow.com/questions/8479058/how-do-i-find-waldo-with-mathematica/8479757#8479757
原本代碼用的威利圖片網址已失效，可以另外估狗
加上其中pos代碼裡有個系數(.12)要手動調，太小找不到，太大會找到太多假威利
所以稍做更改的代碼是:
waldo = Import["http://i.imgur.com/b28ih.jpg" (* 找威利圖 *)];
red = Fold[ImageSubtract, #[[1]], Rest[#]] &@ColorSeparate[waldo];
corr = ImageCorrelate[red,
Image@Join[ConstantArray[1, {2, 4}], ConstantArray[0, {2, 4}]],
NormalizedSquaredEuclideanDistance
(*這個屬性MMA 8之後才有*)];
adjust = Manipulate[
ImageMultiply[waldo,
ImageAdd[
ColorConvert[
Dilation[ColorNegate[Binarize[corr, index (* 此係數是關鍵門檻*)]],
DiskMatrix[30]], "GrayLevel"], .5]], {index, 0, 1, 0.02}]
試玩後感覺是，這個方法辨識的是威利紅白相間的衣服，只對一些假威利比較少，比較
benign的圖有用。
google到的圖有些根本沒有威利另當別論~~HAHA。