runlength.m

在matlab环境下实现dtc变换

function [series,k]=runlength(q,series,k) 
%游程编码函数
%% 函数体
series(k,1)=q(1);
for i=2:1:64 
    if (q(i-1)==q(i))
        series(k,2)=series(k,2)+1;
    else 
        k=k+1; 
        series(k,2)=1;
        series(k,1)=q(i);
    end  
end