% =========================================================================
% Copyright (c)2006， 東南大學移動通信國家重點實驗室
% All rights reserved.
%
% 文件名稱：RRFair.m
% function描述：RR調度算法，在Jain Index下的公平性計算

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

function RRFair = RRFair(N, aveSNR)
for i = 1:N
    Th(i) = quadl(@RRIntegralGene, 10^(-3), 10^3, 10^(-12), [], N, aveSNR, i);
end
RRFair = (sum(Th)) .^ 2 ./ (N .* sum(Th .^ 2));