xingchengbianma.m

来自「将一幅图像转化为二值图像」· M 代码 · 共 25 行

function[zipped,info]=Xingchengbianma(vector)
[m,n]=size(vector);
vector=vector(:)';
vector=uint8(vector(:));
L=length(vector);
c=vector(1);
e(1,1)=c;
e(1,2)=0;
t1=1;
for j=1:L
    if((vector(j)==c))
        e(t1,2)=double(e(t1,2))+1;
    else
        c=vector(j);
        t1=t1+1;
        e(t1,1)=c;
        e(t1,2)=1;
    end
end
zipped=e;
info.rows=m;
info.cols=n;
[m,n]=size(e);
info.ratio=m*n/(info.rows*info.cols);