jiangx
20d52e1953
git-svn-id: http://svn.eurecom.fr/openair4G/trunk@5910 818b1a75-f10b-46b9-bf7c-635c3b92a50f
128 lines
4.1 KiB
Matlab
128 lines
4.1 KiB
Matlab
%
|
|
% SCRIPT ID : s_run_calib
|
|
%
|
|
% PROJECT NAME : TDD Recoprocity
|
|
%
|
|
% PURPOSE : channel calibration for MISO case
|
|
%
|
|
%**********************************************************************************************
|
|
% Eurecom - All rights reserved
|
|
%
|
|
% AUTHOR(s) : Xiwen JIANG, Florian Kaltenberger
|
|
%
|
|
% DEVELOPMENT HISTORY :
|
|
%
|
|
% Date Name(s) Version Description
|
|
% ----------- ------------- ------- ------------------------------------------------------
|
|
% Apr-30-2014 X. JIANG 0.1 script creation v0.1
|
|
%
|
|
% REFERENCES/NOTES/COMMENTS :
|
|
%
|
|
% - Based on the script "calibration" created by Mirsad Cirkic, Florian Kaltenberger.
|
|
%
|
|
%**********************************************************************************************
|
|
|
|
%% ** initilisation **
|
|
%---------- to change in experiement ---------
|
|
%s_init_params;
|
|
%clc
|
|
%clear all
|
|
close all
|
|
%d_N_f = 301; % carrier number carrying data
|
|
%d_N_meas = 10; % measuement number
|
|
%d_N_loc = 5; % Rx locations
|
|
%d_N_antM = 2; % max active antenna number for site a and site b
|
|
%----------------------------------------------
|
|
|
|
%% -------- System parameters --------
|
|
d_M = 4; % modulation order, e.g. 4 means QPSK
|
|
|
|
%** frequency **
|
|
d_N_f = 301; % carrier number carrying data
|
|
d_N_FFT = 512; % total carrier number
|
|
d_N_CP = 128; % extented cyclic prefix
|
|
%** time **
|
|
d_N_OFDM = 60; % number of ofdm symbol per half frame
|
|
d_N_meas = 10; % measuement number
|
|
%** space **
|
|
d_N_antA = 4; % antenna number at site a
|
|
d_N_antB = 4; % antenna number at site b
|
|
v_indA = find(v_active_rfA); % active antenna index at site a
|
|
v_indB = find(v_active_rfB); % active antenna index at site b
|
|
d_N_antA_act = length(v_indA);
|
|
d_N_antB_act = length(v_indB);
|
|
|
|
%** amplitude **
|
|
d_amp = pow2(12.5)-1; % to see how to be used??
|
|
|
|
%% -------- calibration parameters -------
|
|
d_N_loc = 45; % Rx locations
|
|
d_N_antM = max(sum(v_active_rfA),sum(v_active_rfB)); % max active antenna number for site a and site b
|
|
|
|
%% -------- initialisation ----------------
|
|
m_H_A2B = zeros(d_N_antM,d_N_meas*d_N_loc, d_N_f); % d_N_antA x (d_N_meas*d_N_loc) x d_N_f
|
|
m_H_B2A = zeros(d_N_antM,d_N_meas*d_N_loc, d_N_f); % d_N_antA x (d_N_meas*d_N_loc) x d_N_f
|
|
|
|
m_F0 = zeros(d_N_antM,d_N_antM,d_N_f);
|
|
m_F1 = zeros(d_N_antM,d_N_antM,d_N_f);
|
|
|
|
%% ** collect the measurement data from different locations **
|
|
for d_loc = 1:d_N_loc
|
|
% run measurement, note: uncomment "clear all"
|
|
s_run_meas;
|
|
% --- the following part is dedicated to A2B MISO -----
|
|
m_H_A2Bi = permute(squeeze(m_H_est_A2B),[1 3 2]);
|
|
m_H_B2Ai = permute(squeeze(m_H_est_B2A),[1 3 2]);
|
|
% -----------------------------------------------------
|
|
|
|
m_H_A2B(:,(d_loc-1)*d_N_meas+1:d_loc*d_N_meas,:) = m_H_A2Bi;
|
|
m_H_B2A(:,(d_loc-1)*d_N_meas+1:d_loc*d_N_meas,:) = m_H_B2Ai;
|
|
%keyboard;
|
|
disp('Please move the antenna to another location and press any key to continue');
|
|
% pause
|
|
pause(5);
|
|
end
|
|
save('-v7','result/4a_l45_t10d.mat','m_H_A2B','m_H_B2A');
|
|
%save('-v7','result/2c_l15_t2a.mat','m_H_A2B','m_H_B2A');
|
|
|
|
%% ** calibration **
|
|
for d_f = 1:d_N_f
|
|
[m_F0(:,:,d_f),m_A0_est,m_B0_est] = f_tls_svd(m_H_B2A(:,:,d_f).',m_H_A2B(:,:,d_f).'); % solve the TLS problem using SVD method
|
|
[m_F1(:,:,d_f),m_A1_est,m_B0_est] = f_tls_ap(m_H_B2A(:,:,d_f).',m_H_A2B(:,:,d_f).'); % solve the TLS problem using Alternative Projection method
|
|
end
|
|
|
|
%% ** plot **
|
|
figure(10)
|
|
hold on;
|
|
for d_f=1:size(m_F0,3);
|
|
m_F= m_F0(:,:,d_f);
|
|
plot(diag(m_F),'bo')
|
|
plot(diag(m_F,1),'k+')
|
|
plot(diag(m_F,2),'rx')
|
|
plot(diag(m_F,3),'g*')
|
|
plot(diag(m_F,-1),'y+')
|
|
plot(diag(m_F,-2),'mx')
|
|
plot(diag(m_F,-3),'c*')
|
|
end
|
|
hold off;
|
|
title('F0');
|
|
axis([-2 2 -2 2])
|
|
grid on
|
|
|
|
figure(11)
|
|
hold on;
|
|
for d_f=1:size(m_F1,3);
|
|
m_F= m_F1(:,:,d_f);
|
|
plot(diag(m_F),'bo')
|
|
plot(diag(m_F,1),'k+')
|
|
plot(diag(m_F,2),'rx')
|
|
plot(diag(m_F,3),'g*')
|
|
plot(diag(m_F,-1),'y+')
|
|
plot(diag(m_F,-2),'mx')
|
|
plot(diag(m_F,-3),'c*')
|
|
end
|
|
hold off;
|
|
title('F1');
|
|
axis([-2 2 -2 2])
|
|
grid on
|