Cedric Roux
56c66c09aa
Pre-ci test passed git-svn-id: http://svn.eurecom.fr/openair4G/trunk@4000 818b1a75-f10b-46b9-bf7c-635c3b92a50f
206 lines
8.3 KiB
Matlab
Executable File
206 lines
8.3 KiB
Matlab
Executable File
%Channel Capacity of Alamouti MIMO system
|
|
|
|
load 'SISO.mat';
|
|
|
|
[x, y, z] = size(estimates_UE(1).channel);
|
|
|
|
z = x/4;
|
|
|
|
%MultiAntenna_Rx = 1; % 0 for Single antenna
|
|
% 1 for Multi Antenna (2 antennas here)
|
|
h = zeros(1,z);
|
|
|
|
chcap_alamouti_4Qam_1stRx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_16Qam_1stRx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_64Qam_1stRx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_supportedQam_1stRx = zeros(1,length(h), length(estimates_UE));
|
|
|
|
chcap_alamouti_4Qam_2ndRx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_16Qam_2ndRx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_64Qam_2ndRx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_supportedQam_2ndRx = zeros(1,length(h), length(estimates_UE));
|
|
|
|
chcap_alamouti_4Qam_2Rx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_16Qam_2Rx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_64Qam_2Rx = zeros(1,length(h), length(estimates_UE));
|
|
chcap_alamouti_supportedQam_2Rx = zeros(1,length(h), length(estimates_UE));
|
|
|
|
SNR_eNB_1stRx = zeros(1,length(h), length(estimates_UE));
|
|
SNR_eNB_2ndRx = zeros(1,length(h), length(estimates_UE));
|
|
SNR_eNB_2Rx = zeros(1,length(h), length(estimates_UE));
|
|
|
|
for est=1:length(estimates_UE)
|
|
|
|
NO_1stRx = double(estimates_UE(est).phy_measurements(11).n0_power(1));
|
|
NO_2ndRx = double(estimates_UE(est).phy_measurements(11).n0_power(2));
|
|
|
|
% for checking the connected Sector
|
|
H = estimates_UE(est).channel;
|
|
Hc = double(H(1:2:end,:,:))+1j*double(H(2:2:end,:,:));
|
|
Hs = squeeze(10*log10(sum(sum(abs(Hc).^2,1),2)));
|
|
[val, ind] = max(Hs);
|
|
|
|
|
|
h11_eNB = double(estimates_UE(est).channel(2*z+1:2:end,1,ind)) + 1j*double(estimates_UE(est).channel(2*z+2:2:end,1,ind));
|
|
h12_eNB = double(estimates_UE(est).channel(2*z+1:2:end,2,ind)) + 1j*double(estimates_UE(est).channel(2*z+2:2:end,2,ind));
|
|
h21_eNB = double(estimates_UE(est).channel(2*z+1:2:end,3,ind)) + 1j*double(estimates_UE(est).channel(2*z+2:2:end,3,ind));
|
|
h22_eNB = double(estimates_UE(est).channel(2*z+1:2:end,4,ind)) + 1j*double(estimates_UE(est).channel(2*z+2:2:end,4,ind));
|
|
|
|
|
|
%SNR calculation for Alamouti Scheme
|
|
SNR_eNB_1stRx(1, :, est) = 10*log10(((abs(h11_eNB).^2) + (abs(h21_eNB).^2))/NO_1stRx);
|
|
SNR_eNB_2ndRx(1, :, est) = 10*log10(((abs(h12_eNB).^2) + (abs(h22_eNB).^2))/NO_2ndRx);
|
|
SNR_eNB_2Rx(1, :, est) = 10*log10((((abs(h11_eNB).^2) + (abs(h12_eNB).^2))/NO_1stRx) + (((abs(h21_eNB).^2) + (abs(h22_eNB).^2))/NO_2ndRx));
|
|
|
|
|
|
|
|
nan_in_SNR = isnan(SNR_eNB_1stRx);
|
|
SNR_eNB_1stRx(nan_in_SNR) = 0;
|
|
|
|
nan_in_SNR = isnan(SNR_eNB_2ndRx);
|
|
SNR_eNB_2ndRx(nan_in_SNR) = 0;
|
|
|
|
nan_in_SNR = isnan(SNR_eNB_2Rx);
|
|
SNR_eNB_2Rx(nan_in_SNR) = 0;
|
|
|
|
chcap_alamouti_4Qam_1stRx(1, :, est) = interp1(SNR,c_siso_4Qam,SNR_eNB_1stRx(1, :, est),'nearest','extrap');
|
|
chcap_alamouti_4Qam_2ndRx(1, :, est) = interp1(SNR,c_siso_4Qam,SNR_eNB_2ndRx(1, :, est),'nearest','extrap');
|
|
chcap_alamouti_4Qam_2Rx(1, :, est) = interp1(SNR,c_siso_4Qam,SNR_eNB_2Rx(1, :, est),'nearest','extrap');
|
|
|
|
chcap_alamouti_16Qam_1stRx(1, :, est) = interp1(SNR,c_siso_16Qam,SNR_eNB_1stRx(1, :, est),'nearest','extrap');
|
|
chcap_alamouti_16Qam_2ndRx(1, :, est) = interp1(SNR,c_siso_16Qam,SNR_eNB_2ndRx(1, :, est),'nearest','extrap');
|
|
chcap_alamouti_16Qam_2Rx(1, :, est) = interp1(SNR,c_siso_16Qam,SNR_eNB_2Rx(1, :, est),'nearest','extrap');
|
|
|
|
chcap_alamouti_64Qam_1stRx(1, :, est) = interp1(SNR,c_siso_64Qam,SNR_eNB_1stRx(1, :, est),'nearest','extrap');
|
|
chcap_alamouti_64Qam_2ndRx(1, :, est) = interp1(SNR,c_siso_64Qam,SNR_eNB_2ndRx(1, :, est),'nearest','extrap');
|
|
chcap_alamouti_64Qam_2Rx(1, :, est) = interp1(SNR,c_siso_64Qam,SNR_eNB_2Rx(1, :, est),'nearest','extrap');
|
|
|
|
%%
|
|
|
|
|
|
while (min(SNR_eNB_1stRx(1, :, est)) < -20)
|
|
[value, index] = min(SNR_eNB_1stRx(1, :, est));
|
|
SNR_eNB_1stRx(1, index, est) = -20;
|
|
continue
|
|
|
|
end
|
|
|
|
while (max(SNR_eNB_1stRx(1, :, est)) > 40)
|
|
[value, index] = max(SNR_eNB_1stRx(1, :, est));
|
|
SNR_eNB_1stRx(1, index, est) = 40;
|
|
continue
|
|
|
|
end
|
|
while (min(SNR_eNB_2ndRx(1, :, est)) < -20)
|
|
[value, index] = min(SNR_eNB_2ndRx(1, :, est));
|
|
SNR_eNB_2ndRx(1, index, est) = -20;
|
|
continue
|
|
|
|
end
|
|
|
|
while (max(SNR_eNB_2ndRx(1, :, est)) > 40)
|
|
[value, index] = max(SNR_eNB_2ndRx(1, :, est));
|
|
SNR_eNB_2ndRx(1, index, est) = 40;
|
|
continue
|
|
|
|
end
|
|
|
|
while (min(SNR_eNB_2Rx(1, :, est)) < -20)
|
|
[value, index] = min(SNR_eNB_2Rx(1, :, est));
|
|
SNR_eNB_2Rx(1, index, est) = -20;
|
|
continue
|
|
|
|
end
|
|
|
|
while (max(SNR_eNB_2Rx(1, :, est)) > 40)
|
|
[value, index] = max(SNR_eNB_2Rx(1, :, est));
|
|
SNR_eNB_2Rx(1, index, est) = 40;
|
|
continue
|
|
end
|
|
|
|
MI = log2(abs((1 + SNR_eNB_1stRx(1,:,est))));
|
|
C1 = mean(MI);
|
|
|
|
MI = log2(abs((1 + SNR_eNB_2ndRx(1,:,est))));
|
|
C2 = mean(MI);
|
|
|
|
MI = log2(abs((1 + SNR_eNB_2Rx(1,:,est))));
|
|
C3 = mean(MI);
|
|
|
|
if C1 <2
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_1stRx(1, c, est) = c_siso_4Qam(find(SNR == round(SNR_eNB_1stRx(1, c, est))));
|
|
end
|
|
else
|
|
if C1 >2 && C1 < 4
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_1stRx(1, c, est) = c_siso_16Qam(find(SNR == round(SNR_eNB_1stRx(1, c, est))));
|
|
end
|
|
else
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_1stRx(1, c, est) = c_siso_64Qam(find(SNR == round(SNR_eNB_1stRx(1, c, est))));
|
|
end
|
|
|
|
end
|
|
end
|
|
|
|
if C2 <2
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_2ndRx(1, c, est) = c_siso_4Qam(find(SNR == round(SNR_eNB_2ndRx(1, c, est))));
|
|
end
|
|
else
|
|
if C2 >2 && C2 < 4
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_2ndRx(1, c, est) = c_siso_16Qam(find(SNR == round(SNR_eNB_2ndRx(1, c, est))));
|
|
end
|
|
else
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_2ndRx(1, c, est) = c_siso_64Qam(find(SNR == round(SNR_eNB_2ndRx(1, c, est))));
|
|
end
|
|
end
|
|
end
|
|
|
|
if C3 <2
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_2Rx(1, c, est) = c_siso_4Qam(find(SNR == round(SNR_eNB_2Rx(1, c, est))));
|
|
end
|
|
else
|
|
if C3 >2 && C3 < 4
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_2Rx(1, c, est) = c_siso_16Qam(find(SNR == round(SNR_eNB_2Rx(1, c, est))));
|
|
end
|
|
else
|
|
for c=1:z
|
|
chcap_alamouti_supportedQam_2Rx(1, c, est) = c_siso_64Qam(find(SNR == round(SNR_eNB_2Rx(1, c, est))));
|
|
end
|
|
end
|
|
end
|
|
% for const=1:3
|
|
% if const ==1
|
|
% for c=1:length(h)
|
|
% chcap_alamouti_4Qam_1stRx(1, c, est) = c_siso_4Qam(find(SNR == round(SNR_eNB_1stRx(1, c, est))));
|
|
% chcap_alamouti_4Qam_2ndRx(1, c, est) = c_siso_4Qam(find(SNR == round(SNR_eNB_2ndRx(1, c, est))));
|
|
% chcap_alamouti_4Qam_2Rx(1, c, est) = c_siso_4Qam(find(SNR == round(SNR_eNB_2Rx(1, c, est))));
|
|
% end
|
|
% else if const==2
|
|
% for c=1:length(h)
|
|
% chcap_alamouti_16Qam_1stRx(1, c, est) = c_siso_16Qam(find(SNR == round(SNR_eNB_1stRx(1, c, est))));
|
|
% chcap_alamouti_16Qam_2ndRx(1, c, est) = c_siso_16Qam(find(SNR == round(SNR_eNB_2ndRx(1, c, est))));
|
|
% chcap_alamouti_16Qam_2Rx(1, c, est) = c_siso_16Qam(find(SNR == round(SNR_eNB_2Rx(1, c, est))));
|
|
% end
|
|
% else
|
|
% for c=1:length(h)
|
|
% chcap_alamouti_64Qam_1stRx(1, c, est) = c_siso_64Qam(find(SNR == round(SNR_eNB_1stRx(1, c, est))));
|
|
% chcap_alamouti_64Qam_2ndRx(1, c, est) = c_siso_64Qam(find(SNR == round(SNR_eNB_2ndRx(1, c, est))));
|
|
% chcap_alamouti_64Qam_2Rx(1, c, est) = c_siso_64Qam(find(SNR == round(SNR_eNB_2Rx(1, c, est))));
|
|
% end
|
|
% end
|
|
% end
|
|
% end
|
|
end
|
|
% if MultiAntenna_Rx == 1
|
|
% save 'chcap_alamouti_MultiAntennaUE_Measurements.mat' 'chcap_alamouti*' 'SNR_eNB*'
|
|
% else
|
|
% save 'chcap_alamouti_SingleAntennaUE_Measurements.mat' 'chcap_alamouti*' 'SNR_eNB*'
|
|
% end
|