17-1.m

来自「MATLAB数字图象处理的主要源码.包括图象去噪变换增强恢复识别压缩的各种算法」· M 代码 · 共 26 行

I = checkerboard(10,2);
%棋盘图像
[m n]=size(I);
J=[];
for i=1:m
    value=I(i,1);
    num=1;
    for j=2:n
        if I(i,j)==value
            num=num+1;
        else
            J=[J num value];
            num=1;
            value=I(i,j);
        end
    end    
    J=[J num value 0 0];
    %添加的行判断位 0 0
end
disp('原图像大小：')
whos('I');
disp('压缩图像大小：')
whos('J');
disp('图像的压缩比：')
disp(m*n/length(J))