runlength.m

来自「在matlab环境下实现dtc变换」· M 代码 · 共 13 行

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