rle.m

二值图像 游程编码 自己测试过。。。绝对可用

%函数 RLE.m: 游程长度编码%   

function [CR,distortion]=RLE(X,map) %CR: 压缩率；distortion: 编解码的失真 
Image1=X(1:100,1:100);              %X为输入的图像 
Image2=Image1'; 
image_1D=Image2(:);                 %将原始图像写成一维的数据并设为