2011-12-19 13 views
35

इस सूत्र How do I find Waldo with Mathematica?Waldo with R कैसे खोजें?

मैं आर में इमेज प्रोसेसिंग कभी नहीं किया है लेकिन शायद अन्य लोगों को, जो साझा करना चाहते हैं ...

धन्यवाद से प्रेरित होकर!

+2

'EBImage' पैकेज में गणित के उत्तर में कम से कम कुछ फ़ंक्शंस के समकक्ष हैं। http://www.bioconductor.org/packages/release/bioc/html/EBImage.html –

+2

'adimpro' भी उपयोगी हो सकता है। http://cran.r-project.org/web/packages/adimpro/index.html –

+3

ठीक है, यहां दो चीजें चल रही हैं। सबसे पहले, आप किस छवि प्रसंस्करण एल्गोरिदम का उपयोग करना चाहते हैं? पिछली टिप्पणीकारों ने कुछ सुझाव दिया है; मैंने सोबेल और हौफ को आसानी से बदल दिया है, आदि। दूसरा सवाल यह है कि आप किस प्रारूप छवि के साथ खेल रहे हैं? एफआईटीएस और टीआईएफएफ के पास "कच्चे" पिक्सेल डेटा अच्छा है जबकि अन्य प्रारूप गड़बड़ हो सकते हैं। इसके अलावा, आप छविजे बेहतर (एनआईएच से फ्रीवेयर) –

उत्तर

12

raster पैकेज का उपयोग करके यहां एक शुरुआत है। मुझे नहीं पता कि मेरे पास प्रश्न के गणित संस्करण में उपयोग की जाने वाली क्रॉस-सहसंबंध विधि पर काम करने का समय होगा, लेकिन छवि के लाल हिस्सों पर स्थानीय मानक विचलन इस मामले में वाल्डो को दिखाना प्रतीत होता है ...

library(raster) 
waldo = stack("/Users/Benjamin/Desktop/DepartmentStore.jpg") 

r = waldo[[1]] - waldo[[2]] - waldo[[3]] 
r[is.na(r)] = 0 
r_mask = Which(r > 0) 
r_masked = r * r_mask 

focalsd = focal(r_masked, w=3, fun=sd) 
plot(focalsd) 
+4

यदि कोई बेहतर व्यक्ति आता है तो कृपया इस उत्तर को स्वीकार न करने में संकोच न करें। मैं बस उत्तर के प्रवाह शुरू करने की उम्मीद कर रहा था ... – Benjamin

संबंधित मुद्दे