用MATLAB做的基于霍夫曼编码的图像压缩

用MATLAB做的基于霍夫曼编码的图像压缩，里面有个文件时专门的霍夫曼编码函数，自己写的。

clear all;
clc;
I=imread（‘lena2.bmp‘）;
x=isrgb（I）;
if x==1
    I=rgb2gray（I）;
else
end
i=double（I）;
[mn]=size（I）;
len=m*n;
for p=1:256;
    j=find（i==p-1）;
    u（p）=length（j）;
end
stem（u）;
r=find（u>0）;
k=length（r）;
F（1:）=r-1;
v=u（r）;
A=v/sum（v）;
F（2:）=A;
B=F‘;
B=sortrows（B2）;
B=B‘;
B=fliplr（B）;
A=B（2:）;
[avlenENDHPL]=huffenco（A）;
B=sym（B）;
B（3:）=END;
q=double（1/（sum（L.*（sum（v）*B（2:）））/len/8））;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       7498  2009-03-29 18:38  我的图像压缩\baby.JPG

     文件     113923  2009-03-29 19:06  我的图像压缩\bottle.jpg

     文件     196662  2009-05-09 14:44  我的图像压缩\boy.bmp

     文件     196662  2009-03-29 18:19  我的图像压缩\child.bmp

     文件     339010  2007-06-14 23:25  我的图像压缩\cloud.tif

     文件     262571  2001-01-15 18:18  我的图像压缩\crowd.tif

     文件        437  2009-06-19 12:33  我的图像压缩\huffeimage.m

     文件       1094  2009-06-19 12:36  我的图像压缩\huffenco.m

     文件        690  2009-06-06 20:25  我的图像压缩\huffexample1.asv

     文件      66614  2009-03-18 21:04  我的图像压缩\lena.BMP

     文件      12342  2009-05-05 12:02  我的图像压缩\lena1.BMP

     文件        246  2009-05-05 12:04  我的图像压缩\lena2.BMP

     文件     136566  2009-05-09 00:20  我的图像压缩\noname.bmp

     文件       5174  2009-05-09 00:38  我的图像压缩\noname2.bmp

     文件     196662  2009-03-29 18:22  我的图像压缩\panda.bmp

     目录          0  2009-08-16 22:20  我的图像压缩

----------- ---------  ---------- -----  ----

              1536151                    16