389 lines
11 KiB
C
389 lines
11 KiB
C
/*
|
|
* Licensed to the OpenAirInterface (OAI) Software Alliance under one or more
|
|
* contributor license agreements. See the NOTICE file distributed with
|
|
* this work for additional information regarding copyright ownership.
|
|
* The OpenAirInterface Software Alliance licenses this file to You under
|
|
* the OAI Public License, Version 1.1 (the "License"); you may not use this file
|
|
* except in compliance with the License.
|
|
* You may obtain a copy of the License at
|
|
*
|
|
* http://www.openairinterface.org/?page_id=698
|
|
*
|
|
* Unless required by applicable law or agreed to in writing, software
|
|
* distributed under the License is distributed on an "AS IS" BASIS,
|
|
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
* See the License for the specific language governing permissions and
|
|
* limitations under the License.
|
|
*-------------------------------------------------------------------------------
|
|
* For more information about the OpenAirInterface (OAI) Software Alliance:
|
|
* contact@openairinterface.org
|
|
*/
|
|
|
|
/*! \file PHY/LTE_REFSIG/lte_dl_ue_spec.c
|
|
* \brief Top-level routines for generating UE-specific Reference signals from 36-211, V11.3.0 2013-06
|
|
* \author R. Knopp X. Jiang
|
|
* \date 2015
|
|
* \version 0.1
|
|
* \company Eurecom
|
|
* \email: knopp@eurecom.fr xiwen.jiang@eurecom.fr
|
|
* \note
|
|
* \warning
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "lte_refsig.h"
|
|
#include "PHY/defs_eNB.h"
|
|
#include "PHY/defs_UE.h"
|
|
#include "common/utils/LOG/log.h"
|
|
#include "PHY/impl_defs_top.h"
|
|
|
|
//extern unsigned int lte_gold_table[3][20][2][14];
|
|
//#define DEBUG_DL_CELL_SPEC
|
|
|
|
int Wbar_NCP[8][4] = {{1,1,1,1},{1,-1,1,-1},{1,1,1,1},{1,-1,1,-1},{1,1,-1,-1},{-1,-1,1,1},{1,-1,-1,1},{-1,1,1,-1}};
|
|
|
|
/*
|
|
int lte_dl_ue_spec(PHY_VARS_eNB *eNB,
|
|
uint8_t UE_id,
|
|
int32_t *output,
|
|
short amp,
|
|
uint8_t Ns,
|
|
uint8_t lprime,
|
|
uint8_t p,
|
|
int SS_flag)
|
|
{
|
|
|
|
int32_t qpsk[4],nqpsk[4];
|
|
int16_t k=0,a;
|
|
int mprime,ind,ind_dword,ind_qpsk_symb;
|
|
unsigned nushift,kprime;
|
|
// LTE_eNB_DLSCH_t *dlsch = eNB->dlsch_eNB[UE_id][0];
|
|
|
|
a = (amp*ONE_OVER_SQRT2_Q15)>>15;
|
|
((short *)&qpsk[0])[0] = a;
|
|
((short *)&qpsk[0])[1] = a;
|
|
((short *)&qpsk[1])[0] = -a;
|
|
((short *)&qpsk[1])[1] = a;
|
|
((short *)&qpsk[2])[0] = a;
|
|
((short *)&qpsk[2])[1] = -a;
|
|
((short *)&qpsk[3])[0] = -a;
|
|
((short *)&qpsk[3])[1] = -a;
|
|
|
|
((short *)&nqpsk[0])[0] = -a;
|
|
((short *)&nqpsk[0])[1] = -a;
|
|
((short *)&nqpsk[1])[0] = a;
|
|
((short *)&nqpsk[1])[1] = -a;
|
|
((short *)&nqpsk[2])[0] = -a;
|
|
((short *)&nqpsk[2])[1] = a;
|
|
((short *)&nqpsk[3])[0] = a;
|
|
((short *)&nqpsk[3])[1] = a;
|
|
|
|
if (p==5) {
|
|
if (SS_flag==0) {
|
|
if (eNB->frame_parms.Ncp == NORMAL) {
|
|
// this is 3GPP 36-211 6.10.3.2, NORMAL CP, p=5
|
|
|
|
nushift = eNB->frame_parms.Nid_cell%3;
|
|
|
|
if(lprime==0){
|
|
kprime=nushift;
|
|
}else{
|
|
kprime=(nushift+2*lprime)%4;
|
|
}
|
|
|
|
k = kprime+eNB->frame_parms.first_carrier_offset;
|
|
printf("lte_dl_ue_spec:k=%d\n",k);
|
|
|
|
for (mprime=0;mprime<3*nRB_PDSCH-1;mprime++) {
|
|
ind = 3*lprime*nRB_PDSCH+mprime;
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
output[k] = qpsk[(phy_vars_UE->lte_gold_uespec_port5_table[Ns][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
//output[k] = 0xffffffff;
|
|
|
|
k += 4;
|
|
if (k >= eNB->frame_parms.ofdm_symbol_size) {
|
|
k++; // skip DC carrier
|
|
k-=eNB->frame_parms.ofdm_symbol_size;
|
|
}
|
|
|
|
}
|
|
}
|
|
}
|
|
} else if (p>=7) {
|
|
printf("lte_dl_ue_spec:antenna ports >=7 not supported yet!\n");
|
|
} else {
|
|
LOG_E(PHY,"Illegal p %d UE specific pilots\n",p);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
*/
|
|
|
|
|
|
int lte_dl_ue_spec_rx(PHY_VARS_UE *ue,
|
|
int32_t *output,
|
|
unsigned char Ns,
|
|
unsigned char p,
|
|
int lprime,
|
|
int SS_flag,
|
|
uint16_t nRB_PDSCH)
|
|
{
|
|
int32_t qpsk[4],nqpsk[4],*qpsk_p,*output_p;
|
|
int w,mprime,ind,l,ind_dword,ind_qpsk_symb,nPRB;
|
|
short pamp;
|
|
|
|
// Compute the correct pilot amplitude, sqrt_rho_b = Q3.13
|
|
pamp = ONE_OVER_SQRT2_Q15;
|
|
|
|
// This includes complex conjugate for channel estimation
|
|
((short *)&qpsk[0])[0] = pamp;
|
|
((short *)&qpsk[0])[1] = -pamp;
|
|
((short *)&qpsk[1])[0] = -pamp;
|
|
((short *)&qpsk[1])[1] = -pamp;
|
|
((short *)&qpsk[2])[0] = pamp;
|
|
((short *)&qpsk[2])[1] = pamp;
|
|
((short *)&qpsk[3])[0] = -pamp;
|
|
((short *)&qpsk[3])[1] = pamp;
|
|
|
|
((short *)&nqpsk[0])[0] = -pamp;
|
|
((short *)&nqpsk[0])[1] = pamp;
|
|
((short *)&nqpsk[1])[0] = pamp;
|
|
((short *)&nqpsk[1])[1] = pamp;
|
|
((short *)&nqpsk[2])[0] = -pamp;
|
|
((short *)&nqpsk[2])[1] = -pamp;
|
|
((short *)&nqpsk[3])[0] = pamp;
|
|
((short *)&nqpsk[3])[1] = -pamp;
|
|
|
|
if (p>=7) {
|
|
if (SS_flag==0) {
|
|
if (ue->frame_parms.Ncp == NORMAL) {
|
|
// this is 3GPP 36-211 6.10.3.2, NORMAL CP, p>=7
|
|
|
|
output_p = output;
|
|
|
|
ind = 3*lprime*ue->frame_parms.N_RB_DL;
|
|
l = lprime + ((Ns&1)<<1);
|
|
|
|
// loop over pairs of PRBs, this is the periodicity of the W_bar_NCP sequence
|
|
// unroll the computations for the 6 pilots, select qpsk or nqpsk as function of W_bar_NCP
|
|
for (nPRB=0; nPRB<ue->frame_parms.N_RB_DL; nPRB+=2) {
|
|
|
|
// First pilot
|
|
w = Wbar_NCP[p-7][l];
|
|
qpsk_p = (w==1) ? qpsk : nqpsk;
|
|
|
|
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk_p[(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
|
|
|
|
#ifdef DEBUG_DL_UESPEC
|
|
LOG_D(PHY,"Ns %d, l %d, m %d,ind_dword %d, ind_qpsk_symbol %d\n",
|
|
Ns,l,m,ind_dword,ind_qpsk_symb);
|
|
LOG_D(PHY,"index = %d\n",(eNB->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3);
|
|
#endif
|
|
|
|
output_p++;
|
|
ind++;
|
|
|
|
w = Wbar_NCP[p-7][3-l];
|
|
qpsk_p = (w==1) ? qpsk : nqpsk;
|
|
|
|
// Second pilot
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk_p[(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
|
|
#ifdef DEBUG_DL_UESPEC
|
|
LOG_D(PHY,"Ns %d, l %d, m %d,ind_dword %d, ind_qpsk_symbol %d\n",
|
|
Ns,l,m,ind_dword,ind_qpsk_symb);
|
|
LOG_D(PHY,"index = %d\n",(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3);
|
|
#endif
|
|
|
|
output_p++;
|
|
ind++;
|
|
|
|
w = Wbar_NCP[p-7][l];
|
|
qpsk_p = (w==1) ? qpsk : nqpsk;
|
|
// Third pilot
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk_p[(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
|
|
#ifdef DEBUG_DL_UESPEC
|
|
LOG_D(PHY,"Ns %d, l %d, m %d,ind_dword %d, ind_qpsk_symbol %d\n",
|
|
Ns,l,m,ind_dword,ind_qpsk_symb);
|
|
LOG_D(PHY,"index = %d\n",(eNB->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3);
|
|
#endif
|
|
|
|
output_p++;
|
|
ind++;
|
|
|
|
// Fourth pilot
|
|
w = Wbar_NCP[p-7][3-l];
|
|
qpsk_p = (w==1) ? qpsk : nqpsk;
|
|
|
|
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk_p[(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
|
|
|
|
#ifdef DEBUG_DL_UESPEC
|
|
LOG_D(PHY,"Ns %d, l %d, m %d,ind_dword %d, ind_qpsk_symbol %d\n",
|
|
Ns,l,m,ind_dword,ind_qpsk_symb);
|
|
LOG_D(PHY,"index = %d\n",(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3);
|
|
#endif
|
|
|
|
output_p++;
|
|
ind++;
|
|
|
|
w = Wbar_NCP[p-7][l];
|
|
qpsk_p = (w==1) ? qpsk : nqpsk;
|
|
|
|
// Fifth pilot
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk_p[(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
|
|
#ifdef DEBUG_DL_UESPEC
|
|
LOG_D(PHY,"Ns %d, l %d, m %d,ind_dword %d, ind_qpsk_symbol %d\n",
|
|
Ns,l,m,ind_dword,ind_qpsk_symb);
|
|
LOG_D(PHY,"index = %d\n",(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3);
|
|
#endif
|
|
|
|
output_p++;
|
|
ind++;
|
|
|
|
w = Wbar_NCP[p-7][3-l];
|
|
qpsk_p = (w==1) ? qpsk : nqpsk;
|
|
// Sixth pilot
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk_p[(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
|
|
#ifdef DEBUG_DL_UESPEC
|
|
LOG_D(PHY,"Ns %d, l %d, m %d,ind_dword %d, ind_qpsk_symbol %d\n",
|
|
Ns,l,m,ind_dword,ind_qpsk_symb);
|
|
LOG_D(PHY,"index = %d\n",(ue->lte_gold_uespec_table[0][Ns][lprime][ind_dword]>>(2*ind_qpsk_symb))&3);
|
|
#endif
|
|
|
|
output_p++;
|
|
ind++;
|
|
}
|
|
} else {
|
|
LOG_E(PHY,"Special subframe not supported for UE specific pilots yet\n");
|
|
}
|
|
}
|
|
} else if (p==5) {
|
|
if (SS_flag==0) {
|
|
output_p = output;
|
|
|
|
if (ue->frame_parms.Ncp == NORMAL) {
|
|
for (mprime=0;mprime<3*nRB_PDSCH;mprime++) {
|
|
|
|
ind = 3*lprime*nRB_PDSCH+mprime;
|
|
ind_dword = ind>>4;
|
|
ind_qpsk_symb = ind&0xf;
|
|
|
|
*output_p = qpsk[(ue->lte_gold_uespec_port5_table[Ns][ind_dword]>>(2*ind_qpsk_symb))&3];
|
|
//printf("lprime=%d,ind=%d,Ns=%d,output_p=(%d,%d)\n",lprime,ind,Ns,((short *)&output_p[0])[0],((short *)&output_p[0])[1]);
|
|
output_p++;
|
|
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
LOG_E(PHY,"Illegal p %d UE specific pilots\n",p);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
|
|
|
|
#ifdef LTE_DL_CELL_SPEC_MAIN
|
|
|
|
|
|
|
|
//extern int LOG_M(const char *,const char *,void *,int,int,char);
|
|
// flag change eren
|
|
extern int LOG_M(const char *,const char *,void *,int,int,char);
|
|
main()
|
|
{
|
|
|
|
unsigned short Nid_cell=0;
|
|
unsigned int Ncp = 0;
|
|
int output00[1024];
|
|
int output01[1024];
|
|
int output10[1024];
|
|
int output11[1024];
|
|
|
|
memset(output00,0,1024*sizeof(int));
|
|
memset(output01,0,1024*sizeof(int));
|
|
memset(output10,0,1024*sizeof(int));
|
|
memset(output11,0,1024*sizeof(int));
|
|
|
|
lte_gold(Nid_cell,Ncp);
|
|
|
|
lte_dl_ue_spec(output00,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
0,
|
|
0,
|
|
0);
|
|
|
|
lte_dl_ue_spec(output10,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
1,
|
|
0,
|
|
0);
|
|
|
|
lte_dl_ue_spec(output01,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
0,
|
|
1,
|
|
0);
|
|
|
|
lte_dl_ue_spec(output11,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
1,
|
|
1,
|
|
0);
|
|
|
|
|
|
LOG_M("dl_ue_spec00.m","dl_cs00",output00,1024,1,1);
|
|
LOG_M("dl_ue_spec01.m","dl_cs01",output01,1024,1,1);
|
|
LOG_M("dl_ue_spec10.m","dl_cs10",output10,1024,1,1);
|
|
LOG_M("dl_ue_spec11.m","dl_cs11",output11,1024,1,1);
|
|
}
|
|
|
|
|
|
#endif
|