【Mathematica入门】用聚类法分离图像

1、两类不够，不能很好的分离色彩：ClusteringComponents[img,2]//Colorize

2、分三类就好多了：ClusteringComponents[img,3]//Colorize

3、分类之后，再做二值处理：mask=ClusteringComponents[img,3]//Colorize //Binarize[#,0.5]&这是一个掩膜，或者叫做蒙板。

4、对掩膜进行膨胀处理，再检测边界：mask0=Dilation[mask,3]//EdgeDetect

5、对掩膜进行腐蚀处理，再检测边界：mask1=Erosion[mask,3]//EdgeDetect

6、提取红色花瓣部分：c=GrowCutComponents[img,{mask0,mask1}];SetAlphaChannel[img,Image[c-1]]