%clear all;

%figure

%I=rgb2gray(imread(''));

%% 转化为二值图像

coin1 = im2bw(imread(''));

%% 填充图像区域和空洞

coin2 = imfill(coin1,'holes');

%% 连通区域标记和计数

[L Ne]=bwlabel(double(coin2));

%%图像区域的度量属性

prop=regionprops(L,'Area','Centroid');

%% 计数

total=0;

%% 显示图像

imshow(imread(''));hold on

%% 基于硬币面积的硬币数目

for n=1:size(prop,1)

cent=prop(n).Centroid;

X=cent(1);Y=cent(2);

if prop(n).Area>2000

text(X-10,Y,'5 C')

total=total+5;

else

total=total+10;

text(X-10,Y,'10 C')

end

end

hold on

title(['The number of coins: ',num2str(Ne),' Total of money: ',num2str(total),' Cents'])