program_17_03_special.m

这是基于MATLAB系统上开发的,应用于小波分析方面,很有用的程序模块,书名为"MATLAB在小波分析中的应用"

function cC=encode(C)
%初始变量
zeroseq=0;
zerocount=0;
j=1;
compC=[];

for m=1:length(C)
    if (C(m)==0)&(zeroseq==0)
        compC=[compC C(m)];
        j=j+1;
        zeroseq=1;
        zerocount=1;
        if m==length(C)
            compC=[compC zerocount];
        end
    elseif (C(m)==0)&(zeroseq==1)
        zerocount=zerocount+1;
        if m==length(C)
            compC=[compC zerocount];
        end
    elseif (C(m)~=0)&(zeroseq==1)
        compC=[compC zerocount C(m)];
        j=j+2;
        zeroseq=0;
        zerocount=0;
    else
        compC=[compC C(m)];
        j=j+1;
    end
end
cC=compC;