%------------------------------------------------------------------
%  Relationship between efficiency bits/sec/Hz/cell and degradation
%  in performance
%------------------------------------------------------------------

NoIo  = [.1 1];
f     = [0.5];
loading = [0.01:0.01:1];

Temp = [loading'];
for i=1:length(NoIo)
    SINR = 1 ./ ( 1+f) ./ loading ./ (1+NoIo(i));
    plot(loading,10*log10(SINR)); hold on; 
    Temp = [Temp 10*log10(SINR)'];
end
save f_half.dat.dat Temp -ascii
Temp = [loading'];

% f     = [1];
% Temp = [loading'];
% for i=1:length(NoIo)
%     SINR = 1 ./ ( 1+f) ./ loading ./ (1+NoIo(i));
%     plot(loading,10*log10(SINR),'-g'); hold on; 
%     Temp = [Temp 10*log10(SINR)'];
% end


f     = [2];
Temp = [loading'];
for i=1:length(NoIo)
    SINR = 1 ./ ( 1+f) ./ loading ./ (1+NoIo(i));
    plot(loading,10*log10(SINR),'-r'); hold on; 
    Temp = [Temp 10*log10(SINR)'];
end

save f_two.dat Temp -ascii
Temp = [loading'];

grid on
hold off
axis([0 0.7 0 10])
xlabel('Loading')
ylabel('SINR (dB)')