数硬币－模式识别[转]

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

这是我写的一篇小短文，以彰显Mathematica在模式识别中的方便功能。
为了更好的阅读效果，请查看原文：http://xianyungu.com/number-of-coins-pattern-recognition-433

图片预览：



核心代码：

1. msize = 200;(*缩小图像，保持比例，宽和高都不超过msize。*)
   
2. itimes = 5;(*迭代次数，区分连在一起的硬币*)
   
3. thresholding = 0.3;(*转化为二值图像，阈值为yz*)
   
4. FileNameSetter[Dynamic[ipath]](*图像地址，以窗口方式选择*)
   
5. 
   
6. im = Import[ipath];(*载入图像*)
   
7. im1 = ImageResize[im, {Min[msize, ImageDimensions[im]]}](*缩小图像*)
   
8. im2 = Binarize[im1, thresholding] // ColorNegate;(*转化为二值图像，并取反色*)
   
9. im3 = FillingTransform[im2];(*填充小"洞"*)
   
10. im4 = Nest[MorphologicalTransform[#, "Min"] &, im3,
    
11. itimes];(*按"Min"方法变换图像，并迭代itimes次*)
    
12. st = "图像中共有(" <> ToString[MorphologicalEulerNumber[im4]] <> ")枚硬币。";
    
13. Style[st, 14, Bold, Blue, "SubSubSection"](*输出结果*)

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：模式识别 Recognition mathematica Dimensions Mathematic 模式识别

thanks