Mathematica计数问题2

这篇博客来源于 Stack-Exchange,但这个计数问题就很简单了，物体之间无粘连，基本上

一个函数就能解决，这里主要学习如何快速实现标记。为方便理解，这里把原代码作了一下拆分。

图片如下,

附上代码以及结果，

img = Import["C:/Users/USER/Desktop/gz.jpg"]
data = Values[
   ComponentMeasurements[FillingTransform[ChanVeseBinarize[img]], 
    "Centroid"]];
number = data // 
   MapIndexed[Inset[Style[First@#2, 18, Yellow], num = #1] &, #] &;
Show[img, Graphics[{number, Opacity[.6], Red, Disk[num, 20]}]]

最后作一点说明，图中有红色标记的瓜子表示最后一粒瓜子，代码中用num最终的赋值标记，而这恰好就是

最后一粒瓜子。