% =========================================================================
% Copyright (c)2006， 東南大學移動通信國家重點實驗室
% All rights reserved.
%
% 文件名稱：IntegralGene.m
% function描述：最優折中曲線搜索過程中的吞吐量積分因子

% 當前版本： 1.0
% 作    者：梁浩
% 完成日期： 2007年6月
%==========================================================================

function  y = IntegralGene(SNR, N, ww, mean, sigma, i)

y = log2 (1 + 10.^(SNR./10)) .* normpdf(SNR, mean(i), sigma(i));
for j= 1:N
    if j == i
        y = y;
    else
        if ww(i) < 10.^(-12)
            ww(i) = ww(i) + eps;
        end
        if ww(j) < 10.^(-12)
            ww(j) = ww(j) + eps;
        end
        if real(SNR+10.*log10(ww(i))-10.*log10(ww(j))) ~= SNR+10.*log10(ww(i))-10.*log10(ww(j))
            y = y .* normcdf(real(SNR+10.*log10(ww(i))-10.*log10(ww(j))), mean(j), sigma(j));
        else
            y = y .* normcdf(SNR+10.*log10(ww(i))-10.*log10(ww(j)), mean(j), sigma(j));
        end
    end
end