runlength.m

来自「实现图象,可以直接运行,里面有示例图象,十分便捷的实现图象压缩」· M 代码 · 共 25 行

function [diffDC,valVectorBase,lenVectorBase,valVectorEnhan,lenVectorEnhan]=runLength(baseLayer,enhanLayer)

diffDC(1)=baseLayer(1,1);
for i=2:1024
    diffDC(i)=baseLayer(i,1)-baseLayer(i-1,1);
end
for i=1:1024

    [val len]=rle(baseLayer(i,2:20));
    A=size(val);
    B=size(len);
    valVectorBase(i,1:A(1,2))=val;
    lenVectorBase(i,1:B(1,2))=len;
end

for i=1:1024
    [val len]=rle(enhanLayer(i,1:44));
    C=size(val);
    D=size(len);
    valVectorEnhan(i,1:C(1,2))=val;
    lenVectorEnhan(i,1:D(1,2))=len;
end