function?s?=?shannon（img）
%?S?=?IMG_SHANNON（IMG）

if?nargin?==?1
????img?=?im2uint8（img）;
????
????%?Get?size?of?img
????[rcb]?=?size（img）;
????
????if?b?==?1
????????%s?=?shannon（img）;
????????hspec?=?imhist（img）;
????????idx?=?find（hspec?==?0）;
????????hspec（idx）?=?eps;
????????hspec?=?hspec?./?（r?*?c）;
????????H?=?-（hspec?.*?log2（hspec））;
????????s?=?sum（H（:））;
????elseif?b?==?3
????????band1?=?img（::1）;
????????band2?=?img（::2）;
????????band3?=?img（::3）;
????????outval?=?zeros（256256256）;
????????for?m?=?1?:?r
????????????for?n?=?1?:?c
????????????????i?=?band1（mn）?+?1;
????????????????j?=?band2（mn）?+?1;
????????????????k?=?band3（mn）?+?1;
????????????????outval（ijk）?=?outval（ijk）?+?1;
????????????end
????????end
????????
????????%?將outval歸一化
????????outval?=?outval?./?（r*c）;
????????h?=?-（outval?.*?log2（outval?+?eps））;
????????s?=?sum（sum（sum（h）））;
??????end
else
????error（‘Wrong?number?of?input!‘）;
end

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

?????文件????????927??2008-11-07?17:01??方差\variance1.m

?????文件????????137??2008-11-07?16:46??方差\variance1_test.m

?????文件????????979??2008-11-10?09:48??信息熵\shannon.m

?????文件????????127??2008-11-07?19:04??信息熵\shannon_test.m

?????文件????????528??2008-11-10?09:10??平均梯度\avg_gradient.m

?????文件????????125??2008-11-10?09:10??平均梯度\gradient_test.m

?????文件????????142??2008-11-09?15:26??圖像模糊熵\fuzzyentropy_test.m

?????文件????????322??2008-11-09?23:35??圖像模糊熵\fuzzy_s.m

?????文件????????886??2008-11-10?00:05??圖像模糊熵\fuzzy_s11.m

?????文件????????127??2008-11-09?15:41??圖像模糊熵\specialmax.m

?????文件????????125??2008-11-09?17:20??圖像模糊熵\specialmin.m

?????目錄??????????0??2008-11-07?17:03??方差

?????目錄??????????0??2008-11-10?09:49??信息熵

?????目錄??????????0??2008-11-10?09:47??平均梯度

?????目錄??????????0??2008-11-10?09:46??圖像模糊熵

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

?????????????????4643????????????????????16