图像质量评价函数

图像质量评价函数，包括信息熵、图像模糊熵、平均梯度、方差，用matlab实现

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