%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%?計算一副圖像的信息熵?%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%?作者：劉建華?時間：2008.6.9?%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%讀入圖像
%如需計算多幅圖像，只需修改名稱即可
img=imread（‘gs3r.jpg‘）;


%獲取圖像行列號
[MN]=size（img）;

%生成值為零的初始化數組。其用來統計和存儲對應于每個
%灰度級的頻數（概率），數組的大小根據圖像的大小而定
temp=zeros（MN）;

figureimshow（img）;

%對圖像的灰度值做統計，計算每個灰度級出現的次數
for?m=1:M;
????for?n=1:N;
????????if?img（mn）==0;
???????????i=1;
????????else
???????????i=img（mn）;
????????end
????????temp（i）=temp（i）+1;
????end
end
temp=temp./（M*N）;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%?由熵的定義做計算信息熵?%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%初始化信息熵存儲變量
EntropyResult=0;

for?i=1:length（temp）
????if?temp（i）==0;
???????EntropyResult=EntropyResult;
????else
???????EntropyResult=EntropyResult-temp（i）*log2（temp（

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????976??2009-06-19?11:03??Entropy\entropy.m

?????文件????1058883??2007-11-19?13:56??Entropy\JPEG?Specification\ITU-T.81.pdf

?????文件??????17183??2011-06-03?10:19??Entropy\JPEG?Specification\JPEG?File?Interchange?Format.pdf

?????文件??????????0??2011-06-03?10:43??Entropy\求圖像信息熵?matlab?M文件entropy.txt

?????目錄??????????0??2011-06-03?10:44??Entropy\JPEG?Specification

?????目錄??????????0??2011-06-03?10:44??Entropy

-----------?---------??----------?-----??----

??????????????1077042????????????????????6