mirror of https://github.com/pvnis/srsRAN_4G.git
Merge branch 'master' into uplink
Ismael Gomez
9 years ago
commit
3e29960a79
@ -0,0 +1,132 @@
|
|||||||
|
clear
|
||||||
|
|
||||||
|
%% PHICH encoding/decoding
|
||||||
|
|
||||||
|
%% Setup simulation
|
||||||
|
Npackets = 80;
|
||||||
|
SNR_values = linspace(-6,0,6);
|
||||||
|
enable_fading=false;
|
||||||
|
addpath('../../debug/srslte/lib/phch/test')
|
||||||
|
|
||||||
|
|
||||||
|
%% Cell-Wide Settings
|
||||||
|
enbConfig.NDLRB = 50; % No of Downlink RBs in total BW
|
||||||
|
enbConfig.CyclicPrefix = 'Normal'; % CP length
|
||||||
|
enbConfig.Ng = 'One'; % HICH groups
|
||||||
|
enbConfig.CellRefP = 1; % 1-antenna ports
|
||||||
|
enbConfig.NCellID = 36; % Physical layer cell identity
|
||||||
|
enbConfig.NSubframe = 5; % Subframe number 0
|
||||||
|
enbConfig.DuplexMode = 'FDD'; % Frame structure
|
||||||
|
enbConfig.PHICHDuration = 'Normal';
|
||||||
|
|
||||||
|
%% Define HI resource
|
||||||
|
hi_res = [1 1];
|
||||||
|
ack_bit = 1;
|
||||||
|
|
||||||
|
%% Setup Fading channel model
|
||||||
|
if (enable_fading)
|
||||||
|
cfg.Seed = 8; % Random channel seed
|
||||||
|
cfg.NRxAnts = 1; % 1 receive antenna
|
||||||
|
cfg.DelayProfile = 'EPA'; % EVA delay spread
|
||||||
|
cfg.DopplerFreq = 5; % 120Hz Doppler frequency
|
||||||
|
cfg.MIMOCorrelation = 'Low'; % Low (no) MIMO correlation
|
||||||
|
cfg.InitTime = 0; % Initialize at time zero
|
||||||
|
cfg.NTerms = 16; % Oscillators used in fading model
|
||||||
|
cfg.ModelType = 'GMEDS'; % Rayleigh fading model type
|
||||||
|
cfg.InitPhase = 'Random'; % Random initial phases
|
||||||
|
cfg.NormalizePathGains = 'On'; % Normalize delay profile power
|
||||||
|
cfg.NormalizeTxAnts = 'On'; % Normalize for transmit antennas
|
||||||
|
end
|
||||||
|
|
||||||
|
% Setup channel equalizer
|
||||||
|
cec.PilotAverage = 'UserDefined'; % Type of pilot averaging
|
||||||
|
cec.FreqWindow = 9; % Frequency window size
|
||||||
|
cec.TimeWindow = 9; % Time window size
|
||||||
|
cec.InterpType = 'linear'; % 2D interpolation type
|
||||||
|
cec.InterpWindow = 'Causal'; % Interpolation window type
|
||||||
|
cec.InterpWinSize = 1; % Interpolation window size
|
||||||
|
|
||||||
|
%% Generate TX subframe
|
||||||
|
subframe_tx = lteDLResourceGrid(enbConfig);
|
||||||
|
|
||||||
|
%% Genearte PHICH signal
|
||||||
|
hi_sym_tx = ltePHICH(enbConfig, [hi_res ack_bit]);
|
||||||
|
hi_indices = ltePHICHIndices(enbConfig);
|
||||||
|
subframe_tx(hi_indices)=hi_sym_tx;
|
||||||
|
|
||||||
|
%% Add references to subframe
|
||||||
|
cellRsSym = lteCellRS(enbConfig);
|
||||||
|
cellRsInd = lteCellRSIndices(enbConfig);
|
||||||
|
subframe_tx(cellRsInd) = cellRsSym;
|
||||||
|
|
||||||
|
%% Modulate signal
|
||||||
|
[txWaveform, info] = lteOFDMModulate(enbConfig,subframe_tx);
|
||||||
|
cfg.SamplingRate = info.SamplingRate;
|
||||||
|
|
||||||
|
%% Start simulation
|
||||||
|
decoded = zeros(size(SNR_values));
|
||||||
|
decoded_srslte = zeros(size(SNR_values));
|
||||||
|
|
||||||
|
for snr_idx=1:length(SNR_values)
|
||||||
|
SNRdB = SNR_values(snr_idx);
|
||||||
|
SNR = 10^(SNRdB/10); % Linear SNR
|
||||||
|
N0 = 1/(sqrt(2.0*enbConfig.CellRefP*double(info.Nfft))*SNR);
|
||||||
|
for i=1:Npackets
|
||||||
|
|
||||||
|
%% Fading
|
||||||
|
rxWaveform = sum(txWaveform,2);
|
||||||
|
if (enable_fading)
|
||||||
|
rxWaveform = lteFadingChannel(cfg,rxWaveform);
|
||||||
|
end
|
||||||
|
|
||||||
|
%% Noise Addition
|
||||||
|
noise = N0*complex(randn(size(rxWaveform)), randn(size(rxWaveform)));
|
||||||
|
rxWaveform = rxWaveform + noise;
|
||||||
|
|
||||||
|
%% Demodulate
|
||||||
|
subframe_rx = lteOFDMDemodulate(enbConfig, rxWaveform);
|
||||||
|
|
||||||
|
%% Channel estimation
|
||||||
|
if (enable_fading)
|
||||||
|
[hest, nest] = lteDLChannelEstimate(enbConfig, cec, subframe_rx);
|
||||||
|
else
|
||||||
|
hest=ones(size(subframe_rx));
|
||||||
|
nest=0;
|
||||||
|
end
|
||||||
|
|
||||||
|
%% Extract resources
|
||||||
|
phichSymbolsRx = subframe_rx(hi_indices);
|
||||||
|
phichSymbolsHest = hest(hi_indices);
|
||||||
|
|
||||||
|
%% PHICH decoding
|
||||||
|
[hi, hi_symbols] = ltePHICHDecode(enbConfig,hi_res, phichSymbolsRx, phichSymbolsHest, nest);
|
||||||
|
decoded(snr_idx) = decoded(snr_idx) + (hi == ack_bit);
|
||||||
|
|
||||||
|
%% Same with srsLTE
|
||||||
|
[hi_srslte, hi_symbols_srslte] = srslte_phich(enbConfig, hi_res, subframe_rx, hest, nest);
|
||||||
|
decoded_srslte(snr_idx) = decoded_srslte(snr_idx) + (hi_srslte == ack_bit);
|
||||||
|
end
|
||||||
|
fprintf('SNR: %.1f\n',SNRdB)
|
||||||
|
end
|
||||||
|
|
||||||
|
if (Npackets>1)
|
||||||
|
semilogy(SNR_values,1-decoded/Npackets,'bo-',...
|
||||||
|
SNR_values,1-decoded_srslte/Npackets, 'ro-')
|
||||||
|
grid on
|
||||||
|
legend('Matlab','srsLTE')
|
||||||
|
xlabel('SNR (dB)')
|
||||||
|
ylabel('BLER')
|
||||||
|
axis([min(SNR_values) max(SNR_values) 1/Npackets/10 1])
|
||||||
|
else
|
||||||
|
|
||||||
|
scatter(real(hi_symbols),imag(hi_symbols))
|
||||||
|
hold on
|
||||||
|
scatter(real(hi_symbols_srslte),imag(hi_symbols_srslte))
|
||||||
|
hold off
|
||||||
|
grid on;
|
||||||
|
axis([-2 2 -2 2])
|
||||||
|
disp(hi)
|
||||||
|
disp(hi_srslte)
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
@ -0,0 +1,173 @@
|
|||||||
|
/**
|
||||||
|
*
|
||||||
|
* \section COPYRIGHT
|
||||||
|
*
|
||||||
|
* Copyright 2013-2015 Software Radio Systems Limited
|
||||||
|
*
|
||||||
|
* \section LICENSE
|
||||||
|
*
|
||||||
|
* This file is part of the srsLTE library.
|
||||||
|
*
|
||||||
|
* srsLTE is free software: you can redistribute it and/or modify
|
||||||
|
* it under the terms of the GNU Affero General Public License as
|
||||||
|
* published by the Free Software Foundation, either version 3 of
|
||||||
|
* the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* srsLTE is distributed in the hope that it will be useful,
|
||||||
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
* GNU Affero General Public License for more details.
|
||||||
|
*
|
||||||
|
* A copy of the GNU Affero General Public License can be found in
|
||||||
|
* the LICENSE file in the top-level directory of this distribution
|
||||||
|
* and at http://www.gnu.org/licenses/.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include "srslte/srslte.h"
|
||||||
|
#include "srslte/mex/mexutils.h"
|
||||||
|
|
||||||
|
/** MEX function to be called from MATLAB to test the channel estimator
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define ENBCFG prhs[0]
|
||||||
|
#define HIRES prhs[1]
|
||||||
|
#define INPUT prhs[2]
|
||||||
|
#define NOF_INPUTS 3
|
||||||
|
|
||||||
|
void help()
|
||||||
|
{
|
||||||
|
mexErrMsgTxt
|
||||||
|
("[hi, symbols] = srslte_phich(enbConfig, hires, input_signal, [hest, nest])\n\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/* the gateway function */
|
||||||
|
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
srslte_cell_t cell;
|
||||||
|
srslte_phich_t phich;
|
||||||
|
srslte_chest_dl_t chest;
|
||||||
|
srslte_ofdm_t ofdm_rx;
|
||||||
|
srslte_regs_t regs;
|
||||||
|
uint32_t sf_idx;
|
||||||
|
cf_t *input_fft, *input_signal;
|
||||||
|
|
||||||
|
if (nrhs < NOF_INPUTS) {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (mexutils_read_cell(ENBCFG, &cell)) {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (mexutils_read_uint32_struct(ENBCFG, "NSubframe", &sf_idx)) {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (srslte_chest_dl_init(&chest, cell)) {
|
||||||
|
mexErrMsgTxt("Error initializing equalizer\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (srslte_ofdm_rx_init(&ofdm_rx, cell.cp, cell.nof_prb)) {
|
||||||
|
mexErrMsgTxt("Error initializing FFT\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (srslte_regs_init(®s, cell)) {
|
||||||
|
mexErrMsgTxt("Error initiating regs\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (srslte_phich_init(&phich, ®s, cell)) {
|
||||||
|
mexErrMsgTxt("Error creating PHICH object\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Read input signal
|
||||||
|
input_signal = NULL;
|
||||||
|
int insignal_len = mexutils_read_cf(INPUT, &input_signal);
|
||||||
|
if (insignal_len < 0) {
|
||||||
|
mexErrMsgTxt("Error reading input signal\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (insignal_len == SRSLTE_SF_LEN_RE(cell.nof_prb, cell.cp)) {
|
||||||
|
input_fft = input_signal;
|
||||||
|
} else {
|
||||||
|
input_fft = srslte_vec_malloc(SRSLTE_SF_LEN_RE(cell.nof_prb, cell.cp) * sizeof(cf_t));
|
||||||
|
srslte_ofdm_rx_sf(&ofdm_rx, input_signal, input_fft);
|
||||||
|
free(input_signal);
|
||||||
|
}
|
||||||
|
|
||||||
|
cf_t *ce[SRSLTE_MAX_PORTS];
|
||||||
|
for (i=0;i<cell.nof_ports;i++) {
|
||||||
|
ce[i] = srslte_vec_malloc(SRSLTE_SF_LEN_RE(cell.nof_prb, cell.cp) * sizeof(cf_t));
|
||||||
|
}
|
||||||
|
|
||||||
|
if (nrhs > NOF_INPUTS) {
|
||||||
|
cf_t *cearray = NULL;
|
||||||
|
mexutils_read_cf(prhs[NOF_INPUTS], &cearray);
|
||||||
|
cf_t *cearray_ptr = cearray;
|
||||||
|
for (i=0;i<cell.nof_ports;i++) {
|
||||||
|
for (int j=0;j<SRSLTE_SF_LEN_RE(cell.nof_prb, cell.cp);j++) {
|
||||||
|
ce[i][j] = *cearray_ptr;
|
||||||
|
cearray_ptr++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (cearray) {
|
||||||
|
free(cearray);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
srslte_chest_dl_estimate(&chest, input_fft, ce, sf_idx);
|
||||||
|
}
|
||||||
|
float noise_power;
|
||||||
|
if (nrhs > NOF_INPUTS + 1) {
|
||||||
|
noise_power = mxGetScalar(prhs[NOF_INPUTS+1]);
|
||||||
|
} else if (nrhs > NOF_INPUTS) {
|
||||||
|
noise_power = 0;
|
||||||
|
} else {
|
||||||
|
noise_power = srslte_chest_dl_get_noise_estimate(&chest);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Read hires values
|
||||||
|
float *hires = NULL;
|
||||||
|
int nhires = mexutils_read_f(HIRES, &hires);
|
||||||
|
if (nhires != 2) {
|
||||||
|
mexErrMsgTxt("Expecting 2 values for hires parameter\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
uint32_t ngroup = (uint32_t) hires[0];
|
||||||
|
uint32_t nseq = (uint32_t) hires[1];
|
||||||
|
uint8_t ack;
|
||||||
|
float corr_res;
|
||||||
|
int n = srslte_phich_decode(&phich, input_fft, ce, noise_power, ngroup, nseq, sf_idx, &ack, &corr_res);
|
||||||
|
|
||||||
|
if (nlhs >= 1) {
|
||||||
|
if (n < 0) {
|
||||||
|
plhs[0] = mxCreateDoubleScalar(-1);
|
||||||
|
} else {
|
||||||
|
plhs[0] = mxCreateDoubleScalar(ack);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (nlhs >= 2) {
|
||||||
|
mexutils_write_cf(phich.z, &plhs[1], 1, SRSLTE_PHICH_NBITS);
|
||||||
|
}
|
||||||
|
|
||||||
|
srslte_chest_dl_free(&chest);
|
||||||
|
srslte_ofdm_rx_free(&ofdm_rx);
|
||||||
|
srslte_phich_free(&phich);
|
||||||
|
srslte_regs_free(®s);
|
||||||
|
|
||||||
|
for (i=0;i<cell.nof_ports;i++) {
|
||||||
|
free(ce[i]);
|
||||||
|
}
|
||||||
|
free(input_fft);
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
Reference in New Issue