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