本程序针对二值化后的分割图像进行感兴趣区域提取,对研究图像分割区域提取有一定的参考价值。
clc
clear
close all
I= imread('gend.bmp');
figure(1);
imshow(I);
I=im2bw(I);
[L, num] = bwlabel(I);
STATS1=regionprops(L,'Perimeter');
ahe=size(STATS1);
figure(2);
imshow(I);
m1=ahe(1,1);
m=zeros(2,m1);
for i=1:m1
% 计算目标区域中心,用于显示编号的位置
[p,q]=find(L==i);
temp=[p,q];
[x,y]=size(temp);
m(1,i)=sum(p)/x;
m(2,i)=sum(q)/x;
end
for i=1:m1
figure(2);
text(m(2,i),m(1,i),int2str(i),'color','red')
end
L(L~=3&L~=2)=0; %%这边进行区域的选择,例如只保留2、3.
figure(3);
imshow(L);