图像压缩编码（matleb）——2017.4.10

例6.2-2

I=imread('pears.png');imshow(I);IBW=im2bw(I);[m n]=size(IBW);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 IBW(k,j)];                c=IBW(k,j);                t=t+1;            end        end    endend    

例6.2-1

I=imread('pears.png');imshow(I);IGRAY=rgb2gray(I);[m n]=size(IGRAY);c=I(1,1);RLEcode(1,1:3)=[1 1 c];t=2;ticfor 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    endend toc