【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]]