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