324 lines
8.7 KiB
C
324 lines
8.7 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
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "PHY/defs_eNB.h"
|
|
#include "PHY/defs_UE.h"
|
|
#include "PHY/impl_defs_top.h"
|
|
#include "common/utils/LOG/log.h"
|
|
//extern unsigned int lte_gold_table[3][20][2][14];
|
|
|
|
|
|
|
|
|
|
//Calibration
|
|
int lte_dl_cell_spec_SS(PHY_VARS_eNB *eNB,
|
|
int32_t *output,
|
|
short amp,
|
|
unsigned char Ns,
|
|
unsigned char l,//nb of sym per slot
|
|
unsigned char p) //nb of antennas
|
|
{
|
|
|
|
unsigned char nu,mprime,mprime_dword,mprime_qpsk_symb,m;
|
|
unsigned short k,a;
|
|
int32_t qpsk[4];
|
|
|
|
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;
|
|
|
|
|
|
if ((p==0) && (l==0) )
|
|
nu = 0;
|
|
else if ((p==0) && (l>0))
|
|
nu = 3;
|
|
else if ((p==1) && (l==0))
|
|
nu = 3;
|
|
else if ((p==1) && (l>0))
|
|
nu = 0;
|
|
else {
|
|
LOG_E(PHY,"lte_dl_cell_spec: p %d, l %d -> ERROR\n",p,l);
|
|
return(-1);
|
|
}
|
|
|
|
mprime = 110 - eNB->frame_parms.N_RB_DL;
|
|
|
|
k = (nu + eNB->frame_parms.nushift);
|
|
|
|
if (k > 6)//b
|
|
k -=6;//b
|
|
|
|
k+=eNB->frame_parms.first_carrier_offset;
|
|
|
|
for (m=0; m<eNB->frame_parms.N_RB_DL<<1; m++) { // loop over pilots in one slot/symbol, 2*N_RB_DL pilots
|
|
|
|
mprime_dword = mprime>>4;
|
|
mprime_qpsk_symb = mprime&0xf;
|
|
|
|
// this is r_mprime from 3GPP 36-211 6.10.1.2
|
|
output[k] = qpsk[(eNB->lte_gold_table[Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3];
|
|
//output[k] = (lte_gold_table[eNB_offset][Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3;
|
|
if (LOG_DEBUGFLAG(DEBUG_DLCELLSPEC)) {
|
|
LOG_I(PHY,"Ns %d, l %d, m %d,mprime_dword %d, mprime_qpsk_symbol %d\n",
|
|
Ns,l,m,mprime_dword,mprime_qpsk_symb);
|
|
LOG_I(PHY,"index = %d (k %d)\n",(eNB->lte_gold_table[Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3,k);
|
|
}
|
|
|
|
mprime++;
|
|
|
|
if (LOG_DEBUGFLAG(DEBUG_DLCELLSPEC)) {
|
|
if (m<4)
|
|
LOG_I(PHY,"Ns %d, l %d output[%d] = (%d,%d)\n",Ns,l,k,((short *)&output[k])[0],((short *)&output[k])[1]);
|
|
|
|
}
|
|
k+=6;//b
|
|
|
|
if (k >= eNB->frame_parms.ofdm_symbol_size) {
|
|
k++; // skip DC carrier
|
|
k-=eNB->frame_parms.ofdm_symbol_size;
|
|
}
|
|
|
|
// LOG_I(PHY,"** k %d\n",k);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
|
|
int lte_dl_cell_spec(PHY_VARS_eNB *eNB,
|
|
int32_t *output,
|
|
short amp,
|
|
unsigned char Ns,
|
|
unsigned char l,
|
|
unsigned char p)
|
|
{
|
|
|
|
unsigned char nu,mprime,mprime_dword,mprime_qpsk_symb,m;
|
|
unsigned short k,a;
|
|
int32_t qpsk[4];
|
|
|
|
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;
|
|
|
|
if ((p==0) && (l==0) )
|
|
nu = 0;
|
|
else if ((p==0) && (l>0))
|
|
nu = 3;
|
|
else if ((p==1) && (l==0))
|
|
nu = 3;
|
|
else if ((p==1) && (l>0))
|
|
nu = 0;
|
|
else {
|
|
LOG_E(PHY,"lte_dl_cell_spec: p %d, l %d -> ERROR\n",p,l);
|
|
return(-1);
|
|
}
|
|
|
|
mprime = 110 - eNB->frame_parms.N_RB_DL;
|
|
|
|
k = (nu + eNB->frame_parms.nushift);
|
|
|
|
if (k > 5)
|
|
k -=6;
|
|
|
|
k+=eNB->frame_parms.first_carrier_offset;
|
|
|
|
DevAssert( Ns < 20 );
|
|
DevAssert( l < 2 );
|
|
DevAssert( mprime>>4 < 14 );
|
|
|
|
for (m=0; m<eNB->frame_parms.N_RB_DL<<1; m++) {
|
|
|
|
mprime_dword = mprime>>4;
|
|
mprime_qpsk_symb = mprime&0xf;
|
|
|
|
// this is r_mprime from 3GPP 36-211 6.10.1.2
|
|
output[k] = qpsk[(eNB->lte_gold_table[Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3];
|
|
//output[k] = (lte_gold_table[eNB_offset][Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3;
|
|
if (LOG_DEBUGFLAG(DEBUG_DLCELLSPEC)) {
|
|
LOG_I(PHY,"Ns %d, l %d, m %d,mprime_dword %d, mprime_qpsk_symbol %d\n",
|
|
Ns,l,m,mprime_dword,mprime_qpsk_symb);
|
|
LOG_I(PHY,"index = %d (k %d)\n",(eNB->lte_gold_table[Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3,k);
|
|
}
|
|
mprime++;
|
|
if (LOG_DEBUGFLAG(DEBUG_DLCELLSPEC)) {
|
|
if (m<4)
|
|
LOG_I(PHY,"Ns %d, l %d output[%d] = (%d,%d)\n",Ns,l,k,((short *)&output[k])[0],((short *)&output[k])[1]);
|
|
}
|
|
|
|
k+=6;
|
|
if (k >= eNB->frame_parms.ofdm_symbol_size) {
|
|
k++; // skip DC carrier
|
|
k-=eNB->frame_parms.ofdm_symbol_size;
|
|
}
|
|
|
|
// LOG_I(PHY,"** k %d\n",k);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
int lte_dl_cell_spec_rx(PHY_VARS_UE *ue,
|
|
uint8_t eNB_offset,
|
|
int *output,
|
|
unsigned char Ns,
|
|
unsigned char l,
|
|
unsigned char p)
|
|
{
|
|
|
|
|
|
unsigned char mprime,mprime_dword,mprime_qpsk_symb,m;
|
|
unsigned short k=0;
|
|
unsigned int qpsk[4];
|
|
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;
|
|
|
|
mprime = 110 - ue->frame_parms.N_RB_DL;
|
|
|
|
for (m=0; m<ue->frame_parms.N_RB_DL<<1; m++) {
|
|
|
|
mprime_dword = mprime>>4;
|
|
mprime_qpsk_symb = mprime&0xf;
|
|
|
|
// this is r_mprime from 3GPP 36-211 6.10.1.2
|
|
output[k] = qpsk[(ue->lte_gold_table[eNB_offset][Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3];
|
|
if (LOG_DEBUGFLAG(DEBUG_DLCELLSPEC)) {
|
|
LOG_I(PHY,"Ns %d, l %d, m %d,mprime_dword %d, mprime_qpsk_symbol %d\n",
|
|
Ns,l,m,mprime_dword,mprime_qpsk_symb);
|
|
LOG_I(PHY,"index = %d (k %d)\n",(ue->lte_gold_table[eNB_offset][Ns][l][mprime_dword]>>(2*mprime_qpsk_symb))&3,k);
|
|
}
|
|
|
|
mprime++;
|
|
if (LOG_DEBUGFLAG(DEBUG_DLCELLSPEC)) {
|
|
|
|
if (m<4)
|
|
LOG_I(PHY,"Ns %d l %d output[%d] = (%d,%d)\n",Ns,l,k,((short *)&output[k])[0],((short *)&output[k])[1]);
|
|
|
|
}
|
|
k++;
|
|
// LOG_I(PHY,"** k %d\n",k);
|
|
}
|
|
|
|
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_cell_spec(output00,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
0,
|
|
0,
|
|
0);
|
|
|
|
lte_dl_cell_spec(output10,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
1,
|
|
0,
|
|
0);
|
|
|
|
lte_dl_cell_spec(output01,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
0,
|
|
1,
|
|
0);
|
|
|
|
lte_dl_cell_spec(output11,
|
|
ONE_OVER_SQRT2_Q15,
|
|
50,
|
|
Nid_cell,
|
|
Ncp,
|
|
0,
|
|
1,
|
|
1,
|
|
0);
|
|
|
|
|
|
LOG_M("dl_cell_spec00.m","dl_cs00",output00,1024,1,1);
|
|
LOG_M("dl_cell_spec01.m","dl_cs01",output01,1024,1,1);
|
|
LOG_M("dl_cell_spec10.m","dl_cs10",output10,1024,1,1);
|
|
LOG_M("dl_cell_spec11.m","dl_cs11",output11,1024,1,1);
|
|
}
|
|
|
|
#endif
|