clear
%读入图像并进行转换灰度图像
I=imread('pears.png');
imshow(I)
IGRAY=rgb2gray(I);
[m n]=size(IGRAY);
%建立数组RLEcode,其中元素排列形式为[行程起始行坐标、行程列坐标、灰度值]
c=I(1,1);RLE(1,1:3)=[1,1;c];
t=2;
%进行行编程吗
for k=1:m
for j=1:n
if(not(and(k==1,j==1)))
if(not(I(k,j)==c))
RLEcode(t,1:3)=[k j I(k,j)];
c=I(k,j);
t=t+1;
end
end
end
end
clear
%读入图像并进行转换成二值图像I=imread('pears.png');
imshow(I)
IBW=im2bw(I);
[m n]=size(IBW);