matlab图像区域生长

MATLAB编写的图像区域生长函数（附原图像和结果），用于二值图像的分割，由于for循环调用较多，建议先认真阅读，谨慎运行。

%% function 最终腐蚀函数
% 将二值图像腐蚀成互不相连通的像素点
%%
function [imgn]=dilation（img）
[m n]=size（img）;
imgn=zeros（mn）;
preimg=imgn;
%腐蚀矩阵
se=[1 1 1;1 1 1; 1 1 1];
while sum（sum（preimg-img））~=0     %当腐蚀结果不变时跳出
    preimg=img;
    img=img>0;
   
    [imglabel]=bwlabel（img）;      %标记不同区域，label是区域个数
    [imgn]=imerode（imgse）;
    
    %腐蚀之后是否有哪个被标记的区域消失了
    Hist=zeros（1label）;            
    for i=1:m
        for j=1:n
            if imgn（ij）~=0
                Hist（imgn（ij））=imgn（ij）;  
            end
        end
    end

    %统计消失区域的标号
    H=[];
    for i=1:label
        if Hist（i）==0
            H=[H i];       
        end
    end
    
    %如果这个区域消失了，那么再把这个区域恢复过来
    if ~isempty（H）
        l=length（H）;
        for i=1:m
            for j=1:n
              

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        1122  2017-06-04 18:55  dilation.m
     文件      455566  2017-06-04 05:26  Fig1039（a）（polymersomes）.tif
     文件         345  2017-06-04 19:05  Region.m
     文件        1206  2017-06-04 19:01  RegionGrow.m
     文件         861  2017-06-04 18:53  RegionGrowing.m
     文件       61925  2017-06-04 18:46  RegionGrowing.png