fuzzy edge 图象模糊边缘检测

图象模糊边缘检测，用MATLAB实现的，有用户界面和检测结果！

function E=fuzzyedge1（x）
[mn]=size（x）;
max1=max（max（x））;
for i=1:max1+1
    nn（i）=0;
    for j=1:m
        for k=1:n
            if x（jk）==（i-1）
                nn（i）=nn（i）+1;
            end
        end
    end
end

X0=round（max1/2）+1;
k=50;
for j=1:k
    sum1=0;
    for i=1:X0
        sum1=sum1+nn（i）*（i-1）;
    end
    sum2=0;
    for i=X0+1:max1
        sum2=sum2+nn（i）*（i-1）;
    end
    sum3=0;
    for i=1:X0
        sum3=sum3+nn（i）;
    end
    sum4=0;
    for i=X0+1:max1
        sum4=sum4+nn（i）;
    end
    X1=round（1/2*（sum1/sum3+sum2/sum4））+1;
    X0=X1;
end
XT=X0;
for i=1:m
    for j=1:n
        if x（ij）<=XT
           u（ij）=x（ij）/XT;
        else
            u（ij）=x（ij）/max1;
        end
    end
end

uc=0.7;
rou=0.05;
uc=uc+rou;
for k=1:3
for i=1:m
    for j=1:n
        if u（ij）<=uc
            u1（ij）=2*u（ij）*u（ij）;
        else 
            u1（ij）=1-2*（1-u（ij））*（1-u（ij））;
        end
    end
end
u=u1;
end

for i=1:m
    for j=1:n
        if x（ij）<=XT
            x1（ij）=u1（ij）*XT;
        else 
            x1（ij）=u1（ij）*max1;
        end
    end
end

for i=2:m-1
    for j=2:n-1
        tmp=[];
        for k=1:3
            for l=1:3
                tmp=[tmpx1（i+k-2j+l-2）];
            end
        end
        min1=min（tmp）;
        E（ij）=x1（ij）-min1;
     end
end
E=mat2gray（E）;



 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       8828  2006-07-27 17:06  程序\e.jpg

     文件       1426  2007-06-07 15:23  程序\fuzzyedge1.m

     文件       2163  2007-06-07 16:08  程序\fuzzyedge2.m

     文件       1553  2007-06-06 13:22  程序\FuzzyEdgeDetect1.m

     文件       2240  2007-06-06 13:23  程序\FuzzyEdgeDetect2.m

     文件       2007  2007-06-07 15:10  程序\main1.m

     文件        859  2007-06-07 16:02  程序\pal.m

     文件        862  2007-06-06 13:56  程序\palDetect.m

    ..A.SH.     13824  2007-06-07 15:58  程序\Thumbs.db

     目录          0  2008-04-24 22:04  程序

----------- ---------  ---------- -----  ----

                33762                    10