图像融合评价指标源码

图像的质量评价，平均梯度，边缘强度，信息熵以及方差

function outval = avg_gradient（img） 
% OUTVAL = AVG_GRADIENT（IMG） 
 
if nargin == 1 
    img = double（img）; 
    % Get the size of img 
    [rcb] = size（img）; 
     
    dx = 1; 
    dy = 1; 
    for k = 1 : b 
        band = img（::k）; 
        [dzdxdzdy] = gradient（banddxdy）; 
        s = sqrt（（dzdx .^ 2 + dzdy .^2） ./ 2）; 
        g（k） = sum（sum（s）） / （（r - 1） * （c - 1））; 
    end 
    outval = mean（g）; 
else 
    error（‘Wrong number of input!‘）; 
end

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

     文件        485  2009-10-02 10:10  图像质量评价\avg_gradient.m

     文件        621  2009-10-02 10:10  图像质量评价\edge_intensity.m

     文件       1017  2009-10-02 10:11  图像质量评价\shannon.m

     文件        240  2009-10-02 10:11  图像质量评价\variance.m

     目录          0  2009-10-02 10:14  图像质量评价

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

                 2363                    5