matlab怎么对图片进行类似游程编码？

function [encoded, lens] = encode(A)
% ENCODE compresses a matrix A using run-length encoding

% Convert A to binary
B = dec2bin(A);

% Get the number of bits for each element
lens = strlength(B);

% Concatenate all the binary numbers into a single string
bin_str = string(B(:)');

% Count the number of consecutive characters and group by value
[vals, counts] = categorical(bin_str, 'Ordinal', true);

% Create encoded string
encoded = string([]);
for ii = 1:numel(vals)
    encoded = [encoded, num2str(counts(ii)), vals(ii)];
end

end

function decoded = decode(encoded, lens)
% DECODE uncompresses an encoded string back into a matrix A

% Separate the encoded string into counts and values
[encoded_num, encoded_char] = separate_metadata(encoded);

% Convert the binary values back into a matrix A
bin_str = repmat(encoded_char, 1, encoded_num);
bin_str = split(bin_str, lens);
A = bin2dec(bin_str);

% Reshape A back into its original form
decoded = reshape(A, size(lens, 1), []);

end

function [counts, chars] = separate_metadata(str)
% Separate an encoded string into counts and values

% Extract counts and characters separately
counts_str = extractBefore(str, 2:2:end);
chars = extractAfter(str, [1, 2:2:end]);

% Convert counts from string to number
counts = str2double(counts_str);
end

% Test on example matrix
A = [20, 52; 1, 25];
[encoded, lens] = encode(A);
decoded = decode(encoded, lens);

% Check if decoded matrix is the same as original matrix
assert(isequal(decoded, A));