runlength.m

本程序的目的是通过变化DCT系数以及寻找可以应用的DCT系数的最小值来进行可扩展的MPEG压缩

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