数字图像处理腐蚀与膨胀小程序4页.doc

%下面为用于处理的样本圆%R=8;%半径RS=zeros(2*R);for x1=-R:R-1; for y1=-R:R-1; if round(sqrt(x12+y12)=R%圆心在原点的圆的表达函数 %对圆心在原点的圆进行平移，使x,y都为非负数 x=R+x1+1; y=R+y1+1; S(x,y)=1; end endendfigure(1),imshow(S);%下面为要处理的图形%W=256;L=512; %定义边界X=zeros(W,L);for i=1:128 for