例6.2-1&6.2-2

例6.2-1：

clear

%读入图像并进行灰度转换

I=imread('pears.png');

imshow(I)

IGRAY=rgb2gray(I);

[m n]=size(IGRAY);

%建立数组RLEcode,其中元素排列形式为[行程起始行坐标、行程列坐标、灰度值]

c=I(1,1);RLEcode(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

 

例6.2-2：

clear

%读入图像并转换为二值图像

I=imread('pears.png');

imshow(I)

IBW=im2bw(I);

[m n]=size(IBW);

%建立数组RLEcode,其中元素排列形式为[行程起始行坐标、行程列坐标、灰度值]

c=I(1,1);RLEcode(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(IBW(k,j)==c))

RLEcode(t,1:3)=[k j IBW(k,j)];

c=IBW(k,j);

t=t+1;

end

end

end

end