%实验八
%1.使用函数imread打开一幅灰度图像(fig0906.tif)；
%对图像进行膨胀运算，分别使用半径为5的结构元素
f1=imread('C:\Documents and Settings\Administrator\桌面\实验八\fig0906.tif');
%B = strel('disk',5); %半径为5
%B=strel('rectangle',[5 5])
B=ones(5);
F=imdilate (f1,B);
figure
subplot(121);imshow(f1);title('原图');
subplot(122);imshow(F);title('膨胀结果（半径为5）');
%使用函数imread打开一幅灰度图像(fig0908.tif)；
%对图像进行腐蚀运算，分别使用半径为5，10，20的结构元素，观察三种的结果的差异；f2=imread('C:\Documents and Settings\Administrator\桌面\实验八\fig0908.tif');
B1=ones(5);
B2=ones(10);
B3=ones(20);
F1=imerode (f2,B1);
F2=imerode (f2,B2);
F3=imerode (f2,B3);
figure
subplot(221);imshow(f2);title('原图');
subplot(222);imshow(F1);title('腐蚀（半径为5）');
subplot(223);imshow(F2);title('腐蚀（半径为10）');
subplot(224);imshow(F3);title('腐蚀（半径为20）');
%3.使用函数imread打开一幅灰度图像(fig0910.tif)；
%使用半径为10的结构元素，分别对图像进行开运算和闭运算，观察两种运算结果之间的差异；
f3=imread('C:\Documents and Settings\Administrator\桌面\实验八\fig0910.tif');
B4=ones(10);
F4=imopen (f3,B4);
F5=imclose (f3,B4);
F6=imopen(F5,B4);
figure
subplot(221);imshow(f3);title('原图');
subplot(222);imshow(F4);title('开运算');
subplot(223);imshow(F5);title('闭运算');
subplot(224);imshow(F6);title('先闭后开');
%使用函数imread打开一幅灰度图像(fig0926bw.tif)；
%这是一张米粒的照片，设计一种方法，使用前面介绍的函数计算米粒的个数f4=imread('C:\Documents and Settings\Administrator\桌面\实验八\fig0926bw.tif'); [L, n] = bwlabel(f4,4);
L = bwlabel(f4,4)
原图膨胀结果（半径为5）
原图腐蚀（半径为5）
腐蚀（半径为10）腐蚀（半径为20）
原图开运算
闭运算先闭后开。