rle.m

来自「这是RLE压缩MATLAB算法,可实现的.希望有帮助」· M 代码 · 共 14 行

clear
I=imread('cameraman.tif');
%I=im2bw(I,0.4);
[zipped,info]=RLEencode(I);%调用RLE编码程序进行压缩
unzipped=RLEdecode(zipped,info);%调用解码程序进行解码
%显示原始图象与经解码后的图象，显示压缩比，并计算均方根误差得erms=0,表示是Hufffman是无失真编码
subplot(121);imshow(I);
subplot(122);imshow(unzipped);
%unzipped=logical(unzipped);
erms=compare(I(:),unzipped(:))
cr=info.ratio
whos data unzippped zippped