5
ฉันจะค้นหา Waldo ด้วย Mathematica ได้อย่างไร
นี่เป็นช่วงเวลาที่ฉันปิดเทอมในช่วงสุดสัปดาห์: อะไรคือวิธีที่ดีในการแก้ปัญหาของ Where's 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 …