www.pudn.com > Grayfulledge.rar > Grayfulledge.m

function F=Grayfulledge(Y) 
if nargin>1 
    error('error nargin!'); 
end; 
if nargin==1 
    SE=strel('disk',1); 
%     Y1=imclose(Y,SE); 
    Y2=imdilate(Y,SE); 
    Y3=imerode(Y,SE);  
    Y4=imsubtract(Y2,Y3);  
    F=immultiply(Y4,2); 
%     [x,y]=size(Y); 
%     for i=1:x 
%         for j=1:y 
%             if F(i,j)<=10 
%                 F(i,j)=0; 
%             end; 
%         end 
%     end; 
 
 end;