看来是没什么辙了

自己用了个游程编码
function [val,len] = rle(x)

if (size(x,2)==1)
    x = x.';
end


if (size(x,1)~=1)
    error('RLE can only process vectors, not matrices')
end

% Encode
i = [ find(x(1:end-1) ~= x(2:end)), length(x) ];
len = diff([ 0 i ]); 
val = x(i);

解码
function [x] = rld(val,len)
if ~any(size(len)==1) | ~any(size(val)==1)
    error('len and val must be vectors.')
end
if (length(len)~=length(val))
    error('len and val vectors must be the same length.')
end

if (size(len,2)==1)
    len = len.';
end

% Decode
i = cumsum([ 1 len ]);
k = zeros(1, i(end)-1);
k(i(1:end-1)) = 1;
x = val(cumsum(k));