rlc.m

基于MATLAB的图像压缩 能处理10:1的压缩功能 直接就能使用

function [code]=RLC(origin)
[origin_length,origin_width]=size(origin);
code(1,1:2)=[origin_length,origin_width];
code_index=3;
for j=1:64
    for i=1:64
        code(code_index)=origin(i,j);
        code_index=code_index+1;
    end
end
origin_tr(1:64,1:64)=63;
origin(1:64,1:64)=origin_tr;
h=0;
for j=1:origin_width/2;
    h=0;
    for i=1:origin_length/2;
        code_contain=origin(i,j);
        if(1==i)
            code_value=origin(i,j);
            formervalue=code_value;
            codenumber=1;
        else
            if (code_contain==formervalue)
                if(i~=origin_length/2)
                    codenumber=codenumber+1;
                else
                    code(code_index)=codenumber+1;
                    code(code_index+1)=formervalue;
                    code_index=code_index+2;
                end
            else
                if(i~=origin_length/2)
                    code(code_index)=codenumber;
                    code(code_index+1)=formervalue;
                    formervalue=code_contain;
                    codenumber=1;
                    code_index=code_index+2;
                else
                    code(code_index)=codenumber;
                    code(code_index+1)=formervalue;
                    codenumber=1;
                    code_index=code_index+2;
                    code(code_index)=1;
                    code(code_index+1)=code_contain;
                    code_index=code_index+2;
                end
            end
        end
    end
    [m,n]=size(code);
    for k=4099:2:n
        h=h+code(k);
    end
    if (mod(h,256)~=0)
        j
        return;
    end
end