| /* |
| * Copyright 2008, 2011 Free Software Foundation, Inc. |
| * |
| * This software is distributed under the terms of the GNU Affero Public License. |
| * See the COPYING file in the main directory for details. |
| * |
| * This use of this software may be subject to additional restrictions. |
| * See the LEGAL file in the main directory for details. |
| |
| This program 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. |
| |
| This program 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. |
| |
| You should have received a copy of the GNU Affero General Public License |
| along with this program. If not, see <http://www.gnu.org/licenses/>. |
| |
| */ |
| |
| #ifdef HAVE_CONFIG_H |
| #include "config.h" |
| #endif |
| |
| #include "sigProcLib.h" |
| #include "GSMCommon.h" |
| #include "Logger.h" |
| #include "Resampler.h" |
| |
| extern "C" { |
| #include "convolve.h" |
| #include "scale.h" |
| #include "mult.h" |
| } |
| |
| using namespace GSM; |
| |
| #define TABLESIZE 1024 |
| #define DELAYFILTS 64 |
| |
| /* Clipping detection threshold */ |
| #define CLIP_THRESH 30000.0f |
| |
| /** Lookup tables for trigonometric approximation */ |
| float cosTable[TABLESIZE+1]; // add 1 element for wrap around |
| float sinTable[TABLESIZE+1]; |
| float sincTable[TABLESIZE+1]; |
| |
| /** Constants */ |
| static const float M_PI_F = (float)M_PI; |
| static const float M_2PI_F = (float)(2.0*M_PI); |
| static const float M_1_2PI_F = 1/M_2PI_F; |
| |
| /* Precomputed rotation vectors */ |
| static signalVector *GMSKRotation4 = NULL; |
| static signalVector *GMSKReverseRotation4 = NULL; |
| static signalVector *GMSKRotation1 = NULL; |
| static signalVector *GMSKReverseRotation1 = NULL; |
| |
| /* Precomputed fractional delay filters */ |
| static signalVector *delayFilters[DELAYFILTS]; |
| |
| static Complex<float> psk8_table[8] = { |
| Complex<float>(-0.70710678, 0.70710678), |
| Complex<float>( 0.0, -1.0), |
| Complex<float>( 0.0, 1.0), |
| Complex<float>( 0.70710678, -0.70710678), |
| Complex<float>(-1.0, 0.0), |
| Complex<float>(-0.70710678, -0.70710678), |
| Complex<float>( 0.70710678, 0.70710678), |
| Complex<float>( 1.0, 0.0), |
| }; |
| |
| /* Downsampling filterbank - 4 SPS to 1 SPS */ |
| #define DOWNSAMPLE_IN_LEN 624 |
| #define DOWNSAMPLE_OUT_LEN 156 |
| |
| static Resampler *dnsampler = NULL; |
| |
| /* |
| * RACH and midamble correlation waveforms. Store the buffer separately |
| * because we need to allocate it explicitly outside of the signal vector |
| * constructor. This is because C++ (prior to C++11) is unable to natively |
| * perform 16-byte memory alignment required by many SSE instructions. |
| */ |
| struct CorrelationSequence { |
| CorrelationSequence() : sequence(NULL), buffer(NULL) |
| { |
| } |
| |
| ~CorrelationSequence() |
| { |
| delete sequence; |
| free(buffer); |
| } |
| |
| signalVector *sequence; |
| void *buffer; |
| float toa; |
| complex gain; |
| }; |
| |
| /* |
| * Gaussian and empty modulation pulses. Like the correlation sequences, |
| * store the runtime (Gaussian) buffer separately because of needed alignment |
| * for SSE instructions. |
| */ |
| struct PulseSequence { |
| PulseSequence() : c0(NULL), c1(NULL), c0_inv(NULL), empty(NULL), |
| c0_buffer(NULL), c1_buffer(NULL), c0_inv_buffer(NULL) |
| { |
| } |
| |
| ~PulseSequence() |
| { |
| delete c0; |
| delete c1; |
| delete c0_inv; |
| delete empty; |
| free(c0_buffer); |
| free(c1_buffer); |
| } |
| |
| signalVector *c0; |
| signalVector *c1; |
| signalVector *c0_inv; |
| signalVector *empty; |
| void *c0_buffer; |
| void *c1_buffer; |
| void *c0_inv_buffer; |
| }; |
| |
| static CorrelationSequence *gMidambles[] = {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}; |
| static CorrelationSequence *gEdgeMidambles[] = {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}; |
| static CorrelationSequence *gRACHSequence = NULL; |
| static PulseSequence *GSMPulse1 = NULL; |
| static PulseSequence *GSMPulse4 = NULL; |
| |
| void sigProcLibDestroy() |
| { |
| for (int i = 0; i < 8; i++) { |
| delete gMidambles[i]; |
| delete gEdgeMidambles[i]; |
| gMidambles[i] = NULL; |
| gEdgeMidambles[i] = NULL; |
| } |
| |
| for (int i = 0; i < DELAYFILTS; i++) { |
| delete delayFilters[i]; |
| delayFilters[i] = NULL; |
| } |
| |
| delete GMSKRotation1; |
| delete GMSKReverseRotation1; |
| delete GMSKRotation4; |
| delete GMSKReverseRotation4; |
| delete gRACHSequence; |
| delete GSMPulse1; |
| delete GSMPulse4; |
| delete dnsampler; |
| |
| GMSKRotation1 = NULL; |
| GMSKRotation4 = NULL; |
| GMSKReverseRotation4 = NULL; |
| GMSKReverseRotation1 = NULL; |
| gRACHSequence = NULL; |
| GSMPulse1 = NULL; |
| GSMPulse4 = NULL; |
| } |
| |
| // dB relative to 1.0. |
| // if > 1.0, then return 0 dB |
| float dB(float x) { |
| |
| float arg = 1.0F; |
| float dB = 0.0F; |
| |
| if (x >= 1.0F) return 0.0F; |
| if (x <= 0.0F) return -200.0F; |
| |
| float prevArg = arg; |
| float prevdB = dB; |
| float stepSize = 16.0F; |
| float dBstepSize = 12.0F; |
| while (stepSize > 1.0F) { |
| do { |
| prevArg = arg; |
| prevdB = dB; |
| arg /= stepSize; |
| dB -= dBstepSize; |
| } while (arg > x); |
| arg = prevArg; |
| dB = prevdB; |
| stepSize *= 0.5F; |
| dBstepSize -= 3.0F; |
| } |
| return ((arg-x)*(dB-3.0F) + (x-arg*0.5F)*dB)/(arg - arg*0.5F); |
| |
| } |
| |
| // 10^(-dB/10), inverse of dB func. |
| float dBinv(float x) { |
| |
| float arg = 1.0F; |
| float dB = 0.0F; |
| |
| if (x >= 0.0F) return 1.0F; |
| if (x <= -200.0F) return 0.0F; |
| |
| float prevArg = arg; |
| float prevdB = dB; |
| float stepSize = 16.0F; |
| float dBstepSize = 12.0F; |
| while (stepSize > 1.0F) { |
| do { |
| prevArg = arg; |
| prevdB = dB; |
| arg /= stepSize; |
| dB -= dBstepSize; |
| } while (dB > x); |
| arg = prevArg; |
| dB = prevdB; |
| stepSize *= 0.5F; |
| dBstepSize -= 3.0F; |
| } |
| |
| return ((dB-x)*(arg*0.5F)+(x-(dB-3.0F))*(arg))/3.0F; |
| |
| } |
| |
| float vectorNorm2(const signalVector &x) |
| { |
| signalVector::const_iterator xPtr = x.begin(); |
| float Energy = 0.0; |
| for (;xPtr != x.end();xPtr++) { |
| Energy += xPtr->norm2(); |
| } |
| return Energy; |
| } |
| |
| |
| float vectorPower(const signalVector &x) |
| { |
| return vectorNorm2(x)/x.size(); |
| } |
| |
| /** compute cosine via lookup table */ |
| float cosLookup(const float x) |
| { |
| float arg = x*M_1_2PI_F; |
| while (arg > 1.0F) arg -= 1.0F; |
| while (arg < 0.0F) arg += 1.0F; |
| |
| const float argT = arg*((float)TABLESIZE); |
| const int argI = (int)argT; |
| const float delta = argT-argI; |
| const float iDelta = 1.0F-delta; |
| return iDelta*cosTable[argI] + delta*cosTable[argI+1]; |
| } |
| |
| /** compute sine via lookup table */ |
| float sinLookup(const float x) |
| { |
| float arg = x*M_1_2PI_F; |
| while (arg > 1.0F) arg -= 1.0F; |
| while (arg < 0.0F) arg += 1.0F; |
| |
| const float argT = arg*((float)TABLESIZE); |
| const int argI = (int)argT; |
| const float delta = argT-argI; |
| const float iDelta = 1.0F-delta; |
| return iDelta*sinTable[argI] + delta*sinTable[argI+1]; |
| } |
| |
| |
| /** compute e^(-jx) via lookup table. */ |
| static complex expjLookup(float x) |
| { |
| float arg = x*M_1_2PI_F; |
| while (arg > 1.0F) arg -= 1.0F; |
| while (arg < 0.0F) arg += 1.0F; |
| |
| const float argT = arg*((float)TABLESIZE); |
| const int argI = (int)argT; |
| const float delta = argT-argI; |
| const float iDelta = 1.0F-delta; |
| return complex(iDelta*cosTable[argI] + delta*cosTable[argI+1], |
| iDelta*sinTable[argI] + delta*sinTable[argI+1]); |
| } |
| |
| /** Library setup functions */ |
| static void initTrigTables() { |
| for (int i = 0; i < TABLESIZE+1; i++) { |
| cosTable[i] = cos(2.0*M_PI*i/TABLESIZE); |
| sinTable[i] = sin(2.0*M_PI*i/TABLESIZE); |
| } |
| } |
| |
| /* |
| * Initialize 4 sps and 1 sps rotation tables |
| */ |
| static void initGMSKRotationTables() |
| { |
| size_t len1 = 157, len4 = 625; |
| |
| GMSKRotation4 = new signalVector(len4); |
| GMSKReverseRotation4 = new signalVector(len4); |
| signalVector::iterator rotPtr = GMSKRotation4->begin(); |
| signalVector::iterator revPtr = GMSKReverseRotation4->begin(); |
| float phase = 0.0; |
| while (rotPtr != GMSKRotation4->end()) { |
| *rotPtr++ = expjLookup(phase); |
| *revPtr++ = expjLookup(-phase); |
| phase += M_PI_F / 2.0F / 4.0; |
| } |
| |
| GMSKRotation1 = new signalVector(len1); |
| GMSKReverseRotation1 = new signalVector(len1); |
| rotPtr = GMSKRotation1->begin(); |
| revPtr = GMSKReverseRotation1->begin(); |
| phase = 0.0; |
| while (rotPtr != GMSKRotation1->end()) { |
| *rotPtr++ = expjLookup(phase); |
| *revPtr++ = expjLookup(-phase); |
| phase += M_PI_F / 2.0F; |
| } |
| } |
| |
| static void GMSKRotate(signalVector &x, int sps) |
| { |
| #if HAVE_NEON |
| size_t len; |
| signalVector *a, *b, *out; |
| |
| a = &x; |
| out = &x; |
| len = out->size(); |
| |
| if (len == 157) |
| len--; |
| |
| if (sps == 1) |
| b = GMSKRotation1; |
| else |
| b = GMSKRotation4; |
| |
| mul_complex((float *) out->begin(), |
| (float *) a->begin(), |
| (float *) b->begin(), len); |
| #else |
| signalVector::iterator rotPtr, xPtr = x.begin(); |
| |
| if (sps == 1) |
| rotPtr = GMSKRotation1->begin(); |
| else |
| rotPtr = GMSKRotation4->begin(); |
| |
| if (x.isReal()) { |
| while (xPtr < x.end()) { |
| *xPtr = *rotPtr++ * (xPtr->real()); |
| xPtr++; |
| } |
| } |
| else { |
| while (xPtr < x.end()) { |
| *xPtr = *rotPtr++ * (*xPtr); |
| xPtr++; |
| } |
| } |
| #endif |
| } |
| |
| static bool GMSKReverseRotate(signalVector &x, int sps) |
| { |
| signalVector::iterator rotPtr, xPtr= x.begin(); |
| |
| if (sps == 1) |
| rotPtr = GMSKReverseRotation1->begin(); |
| else if (sps == 4) |
| rotPtr = GMSKReverseRotation4->begin(); |
| else |
| return false; |
| |
| if (x.isReal()) { |
| while (xPtr < x.end()) { |
| *xPtr = *rotPtr++ * (xPtr->real()); |
| xPtr++; |
| } |
| } |
| else { |
| while (xPtr < x.end()) { |
| *xPtr = *rotPtr++ * (*xPtr); |
| xPtr++; |
| } |
| } |
| |
| return true; |
| } |
| |
| signalVector *convolve(const signalVector *x, |
| const signalVector *h, |
| signalVector *y, |
| ConvType spanType, size_t start, |
| size_t len, size_t step, int offset) |
| { |
| int rc; |
| size_t head = 0, tail = 0; |
| bool alloc = false, append = false; |
| const signalVector *_x = NULL; |
| |
| if (!x || !h) |
| return NULL; |
| |
| switch (spanType) { |
| case START_ONLY: |
| start = 0; |
| head = h->size() - 1; |
| len = x->size(); |
| |
| if (x->getStart() < head) |
| append = true; |
| break; |
| case NO_DELAY: |
| start = h->size() / 2; |
| head = start; |
| tail = start; |
| len = x->size(); |
| append = true; |
| break; |
| case CUSTOM: |
| if (start < h->size() - 1) { |
| head = h->size() - start; |
| append = true; |
| } |
| if (start + len > x->size()) { |
| tail = start + len - x->size(); |
| append = true; |
| } |
| break; |
| default: |
| return NULL; |
| } |
| |
| /* |
| * Error if the output vector is too small. Create the output vector |
| * if the pointer is NULL. |
| */ |
| if (y && (len > y->size())) |
| return NULL; |
| if (!y) { |
| y = new signalVector(len); |
| alloc = true; |
| } |
| |
| /* Prepend or post-pend the input vector if the parameters require it */ |
| if (append) |
| _x = new signalVector(*x, head, tail); |
| else |
| _x = x; |
| |
| /* |
| * Four convovle types: |
| * 1. Complex-Real (aligned) |
| * 2. Complex-Complex (aligned) |
| * 3. Complex-Real (!aligned) |
| * 4. Complex-Complex (!aligned) |
| */ |
| if (h->isReal() && h->isAligned()) { |
| rc = convolve_real((float *) _x->begin(), _x->size(), |
| (float *) h->begin(), h->size(), |
| (float *) y->begin(), y->size(), |
| start, len, step, offset); |
| } else if (!h->isReal() && h->isAligned()) { |
| rc = convolve_complex((float *) _x->begin(), _x->size(), |
| (float *) h->begin(), h->size(), |
| (float *) y->begin(), y->size(), |
| start, len, step, offset); |
| } else if (h->isReal() && !h->isAligned()) { |
| rc = base_convolve_real((float *) _x->begin(), _x->size(), |
| (float *) h->begin(), h->size(), |
| (float *) y->begin(), y->size(), |
| start, len, step, offset); |
| } else if (!h->isReal() && !h->isAligned()) { |
| rc = base_convolve_complex((float *) _x->begin(), _x->size(), |
| (float *) h->begin(), h->size(), |
| (float *) y->begin(), y->size(), |
| start, len, step, offset); |
| } else { |
| rc = -1; |
| } |
| |
| if (append) |
| delete _x; |
| |
| if (rc < 0) { |
| if (alloc) |
| delete y; |
| return NULL; |
| } |
| |
| return y; |
| } |
| |
| /* |
| * Generate static EDGE linear equalizer. This equalizer is not adaptive. |
| * Filter taps are generated from the inverted 1 SPS impulse response of |
| * the EDGE pulse shape captured after the downsampling filter. |
| */ |
| static bool generateInvertC0Pulse(PulseSequence *pulse) |
| { |
| if (!pulse) |
| return false; |
| |
| pulse->c0_inv_buffer = convolve_h_alloc(5); |
| pulse->c0_inv = new signalVector((complex *) pulse->c0_inv_buffer, 0, 5); |
| pulse->c0_inv->isReal(true); |
| pulse->c0_inv->setAligned(false); |
| |
| signalVector::iterator xP = pulse->c0_inv->begin(); |
| *xP++ = 0.15884; |
| *xP++ = -0.43176; |
| *xP++ = 1.00000; |
| *xP++ = -0.42608; |
| *xP++ = 0.14882; |
| |
| return true; |
| } |
| |
| static bool generateC1Pulse(int sps, PulseSequence *pulse) |
| { |
| int len; |
| |
| if (!pulse) |
| return false; |
| |
| switch (sps) { |
| case 4: |
| len = 8; |
| break; |
| default: |
| return false; |
| } |
| |
| pulse->c1_buffer = convolve_h_alloc(len); |
| pulse->c1 = new signalVector((complex *) |
| pulse->c1_buffer, 0, len); |
| pulse->c1->isReal(true); |
| |
| /* Enable alignment for SSE usage */ |
| pulse->c1->setAligned(true); |
| |
| signalVector::iterator xP = pulse->c1->begin(); |
| |
| switch (sps) { |
| case 4: |
| /* BT = 0.30 */ |
| *xP++ = 0.0; |
| *xP++ = 8.16373112e-03; |
| *xP++ = 2.84385729e-02; |
| *xP++ = 5.64158904e-02; |
| *xP++ = 7.05463553e-02; |
| *xP++ = 5.64158904e-02; |
| *xP++ = 2.84385729e-02; |
| *xP++ = 8.16373112e-03; |
| } |
| |
| return true; |
| } |
| |
| static PulseSequence *generateGSMPulse(int sps) |
| { |
| int len; |
| float arg, avg, center; |
| PulseSequence *pulse; |
| |
| if ((sps != 1) && (sps != 4)) |
| return NULL; |
| |
| /* Store a single tap filter used for correlation sequence generation */ |
| pulse = new PulseSequence(); |
| pulse->empty = new signalVector(1); |
| pulse->empty->isReal(true); |
| *(pulse->empty->begin()) = 1.0f; |
| |
| /* |
| * For 4 samples-per-symbol use a precomputed single pulse Laurent |
| * approximation. This should yields below 2 degrees of phase error at |
| * the modulator output. Use the existing pulse approximation for all |
| * other oversampling factors. |
| */ |
| switch (sps) { |
| case 4: |
| len = 16; |
| break; |
| case 1: |
| default: |
| len = 4; |
| } |
| |
| pulse->c0_buffer = convolve_h_alloc(len); |
| pulse->c0 = new signalVector((complex *) pulse->c0_buffer, 0, len); |
| pulse->c0->isReal(true); |
| |
| /* Enable alingnment for SSE usage */ |
| pulse->c0->setAligned(true); |
| |
| signalVector::iterator xP = pulse->c0->begin(); |
| |
| if (sps == 4) { |
| *xP++ = 0.0; |
| *xP++ = 4.46348606e-03; |
| *xP++ = 2.84385729e-02; |
| *xP++ = 1.03184855e-01; |
| *xP++ = 2.56065552e-01; |
| *xP++ = 4.76375085e-01; |
| *xP++ = 7.05961177e-01; |
| *xP++ = 8.71291644e-01; |
| *xP++ = 9.29453645e-01; |
| *xP++ = 8.71291644e-01; |
| *xP++ = 7.05961177e-01; |
| *xP++ = 4.76375085e-01; |
| *xP++ = 2.56065552e-01; |
| *xP++ = 1.03184855e-01; |
| *xP++ = 2.84385729e-02; |
| *xP++ = 4.46348606e-03; |
| generateC1Pulse(sps, pulse); |
| } else { |
| center = (float) (len - 1.0) / 2.0; |
| |
| /* GSM pulse approximation */ |
| for (int i = 0; i < len; i++) { |
| arg = ((float) i - center) / (float) sps; |
| *xP++ = 0.96 * exp(-1.1380 * arg * arg - |
| 0.527 * arg * arg * arg * arg); |
| } |
| |
| avg = sqrtf(vectorNorm2(*pulse->c0) / sps); |
| xP = pulse->c0->begin(); |
| for (int i = 0; i < len; i++) |
| *xP++ /= avg; |
| } |
| |
| /* |
| * Current form of the EDGE equalization filter non-realizable at 4 SPS. |
| * Load the onto both 1 SPS and 4 SPS objects for convenience. Note that |
| * the EDGE demodulator downsamples to 1 SPS prior to equalization. |
| */ |
| generateInvertC0Pulse(pulse); |
| |
| return pulse; |
| } |
| |
| signalVector* frequencyShift(signalVector *y, |
| signalVector *x, |
| float freq, |
| float startPhase, |
| float *finalPhase) |
| { |
| |
| if (!x) return NULL; |
| |
| if (y==NULL) { |
| y = new signalVector(x->size()); |
| y->isReal(x->isReal()); |
| if (y==NULL) return NULL; |
| } |
| |
| if (y->size() < x->size()) return NULL; |
| |
| float phase = startPhase; |
| signalVector::iterator yP = y->begin(); |
| signalVector::iterator xPEnd = x->end(); |
| signalVector::iterator xP = x->begin(); |
| |
| if (x->isReal()) { |
| while (xP < xPEnd) { |
| (*yP++) = expjLookup(phase)*( (xP++)->real() ); |
| phase += freq; |
| } |
| } |
| else { |
| while (xP < xPEnd) { |
| (*yP++) = (*xP++)*expjLookup(phase); |
| phase += freq; |
| if (phase > 2 * M_PI) |
| phase -= 2 * M_PI; |
| else if (phase < -2 * M_PI) |
| phase += 2 * M_PI; |
| } |
| } |
| |
| |
| if (finalPhase) *finalPhase = phase; |
| |
| return y; |
| } |
| |
| signalVector* reverseConjugate(signalVector *b) |
| { |
| signalVector *tmp = new signalVector(b->size()); |
| tmp->isReal(b->isReal()); |
| signalVector::iterator bP = b->begin(); |
| signalVector::iterator bPEnd = b->end(); |
| signalVector::iterator tmpP = tmp->end()-1; |
| if (!b->isReal()) { |
| while (bP < bPEnd) { |
| *tmpP-- = bP->conj(); |
| bP++; |
| } |
| } |
| else { |
| while (bP < bPEnd) { |
| *tmpP-- = bP->real(); |
| bP++; |
| } |
| } |
| |
| return tmp; |
| } |
| |
| bool vectorSlicer(SoftVector *x) |
| { |
| SoftVector::iterator xP = x->begin(); |
| SoftVector::iterator xPEnd = x->end(); |
| while (xP < xPEnd) { |
| *xP = 0.5 * (*xP + 1.0f); |
| if (*xP > 1.0) |
| *xP = 1.0; |
| if (*xP < 0.0) |
| *xP = 0.0; |
| xP++; |
| } |
| return true; |
| } |
| |
| static signalVector *rotateBurst(const BitVector &wBurst, |
| int guardPeriodLength, int sps) |
| { |
| int burst_len; |
| signalVector *pulse, rotated, *shaped; |
| signalVector::iterator itr; |
| |
| pulse = GSMPulse1->empty; |
| burst_len = sps * (wBurst.size() + guardPeriodLength); |
| rotated = signalVector(burst_len); |
| itr = rotated.begin(); |
| |
| for (unsigned i = 0; i < wBurst.size(); i++) { |
| *itr = 2.0 * (wBurst[i] & 0x01) - 1.0; |
| itr += sps; |
| } |
| |
| GMSKRotate(rotated, sps); |
| rotated.isReal(false); |
| |
| /* Dummy filter operation */ |
| shaped = convolve(&rotated, pulse, NULL, START_ONLY); |
| if (!shaped) |
| return NULL; |
| |
| return shaped; |
| } |
| |
| static void rotateBurst2(signalVector &burst, double phase) |
| { |
| Complex<float> rot = Complex<float>(cos(phase), sin(phase)); |
| |
| for (size_t i = 0; i < burst.size(); i++) |
| burst[i] = burst[i] * rot; |
| } |
| |
| /* |
| * Ignore the guard length argument in the GMSK modulator interface |
| * because it results in 624/628 sized bursts instead of the preferred |
| * burst length of 625. Only 4 SPS is supported. |
| */ |
| static signalVector *modulateBurstLaurent(const BitVector &bits) |
| { |
| int burst_len, sps = 4; |
| float phase; |
| signalVector *c0_pulse, *c1_pulse, *c0_burst; |
| signalVector *c1_burst, *c0_shaped, *c1_shaped; |
| signalVector::iterator c0_itr, c1_itr; |
| |
| c0_pulse = GSMPulse4->c0; |
| c1_pulse = GSMPulse4->c1; |
| |
| if (bits.size() > 156) |
| return NULL; |
| |
| burst_len = 625; |
| |
| c0_burst = new signalVector(burst_len, c0_pulse->size()); |
| c0_burst->isReal(true); |
| c0_itr = c0_burst->begin(); |
| |
| c1_burst = new signalVector(burst_len, c1_pulse->size()); |
| c1_burst->isReal(true); |
| c1_itr = c1_burst->begin(); |
| |
| /* Padded differential tail bits */ |
| *c0_itr = 2.0 * (0x00 & 0x01) - 1.0; |
| c0_itr += sps; |
| |
| /* Main burst bits */ |
| for (unsigned i = 0; i < bits.size(); i++) { |
| *c0_itr = 2.0 * (bits[i] & 0x01) - 1.0; |
| c0_itr += sps; |
| } |
| |
| /* Padded differential tail bits */ |
| *c0_itr = 2.0 * (0x00 & 0x01) - 1.0; |
| |
| /* Generate C0 phase coefficients */ |
| GMSKRotate(*c0_burst, sps); |
| c0_burst->isReal(false); |
| |
| c0_itr = c0_burst->begin(); |
| c0_itr += sps * 2; |
| c1_itr += sps * 2; |
| |
| /* Start magic */ |
| phase = 2.0 * ((0x01 & 0x01) ^ (0x01 & 0x01)) - 1.0; |
| *c1_itr = *c0_itr * Complex<float>(0, phase); |
| c0_itr += sps; |
| c1_itr += sps; |
| |
| /* Generate C1 phase coefficients */ |
| for (unsigned i = 2; i < bits.size(); i++) { |
| phase = 2.0 * ((bits[i - 1] & 0x01) ^ (bits[i - 2] & 0x01)) - 1.0; |
| *c1_itr = *c0_itr * Complex<float>(0, phase); |
| |
| c0_itr += sps; |
| c1_itr += sps; |
| } |
| |
| /* End magic */ |
| int i = bits.size(); |
| phase = 2.0 * ((bits[i-1] & 0x01) ^ (bits[i-2] & 0x01)) - 1.0; |
| *c1_itr = *c0_itr * Complex<float>(0, phase); |
| |
| /* Primary (C0) and secondary (C1) pulse shaping */ |
| c0_shaped = convolve(c0_burst, c0_pulse, NULL, START_ONLY); |
| c1_shaped = convolve(c1_burst, c1_pulse, NULL, START_ONLY); |
| |
| /* Sum shaped outputs into C0 */ |
| c0_itr = c0_shaped->begin(); |
| c1_itr = c1_shaped->begin(); |
| for (unsigned i = 0; i < c0_shaped->size(); i++ ) |
| *c0_itr++ += *c1_itr++; |
| |
| delete c0_burst; |
| delete c1_burst; |
| delete c1_shaped; |
| |
| return c0_shaped; |
| } |
| |
| static signalVector *rotateEdgeBurst(const signalVector &symbols, int sps) |
| { |
| signalVector *burst; |
| signalVector::iterator burst_itr; |
| |
| burst = new signalVector(symbols.size() * sps); |
| burst_itr = burst->begin(); |
| |
| for (size_t i = 0; i < symbols.size(); i++) { |
| float phase = i * 3.0f * M_PI / 8.0f; |
| Complex<float> rot = Complex<float>(cos(phase), sin(phase)); |
| |
| *burst_itr = symbols[i] * rot; |
| burst_itr += sps; |
| } |
| |
| return burst; |
| } |
| |
| static signalVector *derotateEdgeBurst(const signalVector &symbols, int sps) |
| { |
| signalVector *burst; |
| signalVector::iterator burst_itr; |
| |
| if (symbols.size() % sps) |
| return NULL; |
| |
| burst = new signalVector(symbols.size() / sps); |
| burst_itr = burst->begin(); |
| |
| for (size_t i = 0; i < burst->size(); i++) { |
| float phase = (float) (i % 16) * 3.0f * M_PI / 8.0f; |
| Complex<float> rot = Complex<float>(cosf(phase), -sinf(phase)); |
| |
| *burst_itr = symbols[sps * i] * rot; |
| burst_itr++; |
| } |
| |
| return burst; |
| } |
| |
| static signalVector *mapEdgeSymbols(const BitVector &bits) |
| { |
| if (bits.size() % 3) |
| return NULL; |
| |
| signalVector *symbols = new signalVector(bits.size() / 3); |
| |
| for (size_t i = 0; i < symbols->size(); i++) { |
| unsigned index = (((unsigned) bits[3 * i + 0] & 0x01) << 0) | |
| (((unsigned) bits[3 * i + 1] & 0x01) << 1) | |
| (((unsigned) bits[3 * i + 2] & 0x01) << 2); |
| |
| (*symbols)[i] = psk8_table[index]; |
| } |
| |
| return symbols; |
| } |
| |
| /* |
| * EDGE 8-PSK rotate and pulse shape |
| * |
| * Delay the EDGE downlink bursts by one symbol in order to match GMSK pulse |
| * shaping group delay. The difference in group delay arises from the dual |
| * pulse filter combination of the GMSK Laurent represenation whereas 8-PSK |
| * uses a single pulse linear filter. |
| */ |
| static signalVector *shapeEdgeBurst(const signalVector &symbols) |
| { |
| size_t nsyms, nsamps = 625, sps = 4; |
| signalVector *burst, *shape; |
| signalVector::iterator burst_itr; |
| |
| nsyms = symbols.size(); |
| |
| if (nsyms * sps > nsamps) |
| nsyms = 156; |
| |
| burst = new signalVector(nsamps, GSMPulse4->c0->size()); |
| |
| /* Delay burst by 1 symbol */ |
| burst_itr = burst->begin() + sps; |
| for (size_t i = 0; i < nsyms; i++) { |
| float phase = i * 3.0f * M_PI / 8.0f; |
| Complex<float> rot = Complex<float>(cos(phase), sin(phase)); |
| |
| *burst_itr = symbols[i] * rot; |
| burst_itr += sps; |
| } |
| |
| /* Single Gaussian pulse approximation shaping */ |
| shape = convolve(burst, GSMPulse4->c0, NULL, START_ONLY); |
| delete burst; |
| |
| return shape; |
| } |
| |
| /* |
| * Generate a random GSM normal burst. |
| */ |
| signalVector *genRandNormalBurst(int tsc, int sps, int tn) |
| { |
| if ((tsc < 0) || (tsc > 7) || (tn < 0) || (tn > 7)) |
| return NULL; |
| if ((sps != 1) && (sps != 4)) |
| return NULL; |
| |
| int i = 0; |
| BitVector *bits = new BitVector(148); |
| signalVector *burst; |
| |
| /* Tail bits */ |
| for (; i < 4; i++) |
| (*bits)[i] = 0; |
| |
| /* Random bits */ |
| for (; i < 61; i++) |
| (*bits)[i] = rand() % 2; |
| |
| /* Training sequence */ |
| for (int n = 0; i < 87; i++, n++) |
| (*bits)[i] = gTrainingSequence[tsc][n]; |
| |
| /* Random bits */ |
| for (; i < 144; i++) |
| (*bits)[i] = rand() % 2; |
| |
| /* Tail bits */ |
| for (; i < 148; i++) |
| (*bits)[i] = 0; |
| |
| int guard = 8 + !(tn % 4); |
| burst = modulateBurst(*bits, guard, sps); |
| delete bits; |
| |
| return burst; |
| } |
| |
| /* |
| * Generate a random GSM access burst. |
| */ |
| signalVector *genRandAccessBurst(int delay, int sps, int tn) |
| { |
| if ((tn < 0) || (tn > 7)) |
| return NULL; |
| if ((sps != 1) && (sps != 4)) |
| return NULL; |
| if (delay > 68) |
| return NULL; |
| |
| int i = 0; |
| BitVector *bits = new BitVector(88+delay); |
| signalVector *burst; |
| |
| /* delay */ |
| for (; i < delay; i++) |
| (*bits)[i] = 0; |
| |
| /* head and synch bits */ |
| for (int n = 0; i < 49+delay; i++, n++) |
| (*bits)[i] = gRACHBurst[n]; |
| |
| /* Random bits */ |
| for (; i < 85+delay; i++) |
| (*bits)[i] = rand() % 2; |
| |
| /* Tail bits */ |
| for (; i < 88+delay; i++) |
| (*bits)[i] = 0; |
| |
| int guard = 68-delay + !(tn % 4); |
| burst = modulateBurst(*bits, guard, sps); |
| delete bits; |
| |
| return burst; |
| } |
| |
| signalVector *generateEmptyBurst(int sps, int tn) |
| { |
| if ((tn < 0) || (tn > 7)) |
| return NULL; |
| |
| if (sps == 4) |
| return new signalVector(625); |
| else if (sps == 1) |
| return new signalVector(148 + 8 + !(tn % 4)); |
| else |
| return NULL; |
| } |
| |
| signalVector *generateDummyBurst(int sps, int tn) |
| { |
| if (((sps != 1) && (sps != 4)) || (tn < 0) || (tn > 7)) |
| return NULL; |
| |
| return modulateBurst(gDummyBurst, 8 + !(tn % 4), sps); |
| } |
| |
| /* |
| * Generate a random 8-PSK EDGE burst. Only 4 SPS is supported with |
| * the returned burst being 625 samples in length. |
| */ |
| signalVector *generateEdgeBurst(int tsc) |
| { |
| int tail = 9 / 3; |
| int data = 174 / 3; |
| int train = 78 / 3; |
| |
| if ((tsc < 0) || (tsc > 7)) |
| return NULL; |
| |
| signalVector *shape, *burst = new signalVector(148); |
| const BitVector *midamble = &gEdgeTrainingSequence[tsc]; |
| |
| /* Tail */ |
| int n, i = 0; |
| for (; i < tail; i++) |
| (*burst)[i] = psk8_table[7]; |
| |
| /* Body */ |
| for (; i < tail + data; i++) |
| (*burst)[i] = psk8_table[rand() % 8]; |
| |
| /* TSC */ |
| for (n = 0; i < tail + data + train; i++, n++) { |
| unsigned index = (((unsigned) (*midamble)[3 * n + 0] & 0x01) << 0) | |
| (((unsigned) (*midamble)[3 * n + 1] & 0x01) << 1) | |
| (((unsigned) (*midamble)[3 * n + 2] & 0x01) << 2); |
| |
| (*burst)[i] = psk8_table[index]; |
| } |
| |
| /* Body */ |
| for (; i < tail + data + train + data; i++) |
| (*burst)[i] = psk8_table[rand() % 8]; |
| |
| /* Tail */ |
| for (; i < tail + data + train + data + tail; i++) |
| (*burst)[i] = psk8_table[7]; |
| |
| shape = shapeEdgeBurst(*burst); |
| delete burst; |
| |
| return shape; |
| } |
| |
| /* |
| * Modulate 8-PSK burst. When empty pulse shaping (rotation only) |
| * is enabled, the output vector length will be bit sequence length |
| * times the SPS value. When pulse shaping is enabled, the output |
| * vector length is fixed at 625 samples (156.25 symbols at 4 SPS). |
| * Pulse shaped bit sequences that go beyond one burst are truncated. |
| * Pulse shaping at anything but 4 SPS is not supported. |
| */ |
| signalVector *modulateEdgeBurst(const BitVector &bits, |
| int sps, bool empty) |
| { |
| signalVector *shape, *burst; |
| |
| if ((sps != 4) && !empty) |
| return NULL; |
| |
| burst = mapEdgeSymbols(bits); |
| if (!burst) |
| return NULL; |
| |
| if (empty) |
| shape = rotateEdgeBurst(*burst, sps); |
| else |
| shape = shapeEdgeBurst(*burst); |
| |
| delete burst; |
| return shape; |
| } |
| |
| static signalVector *modulateBurstBasic(const BitVector &bits, |
| int guard_len, int sps) |
| { |
| int burst_len; |
| signalVector *pulse, *burst, *shaped; |
| signalVector::iterator burst_itr; |
| |
| if (sps == 1) |
| pulse = GSMPulse1->c0; |
| else |
| pulse = GSMPulse4->c0; |
| |
| burst_len = sps * (bits.size() + guard_len); |
| |
| burst = new signalVector(burst_len, pulse->size()); |
| burst->isReal(true); |
| burst_itr = burst->begin(); |
| |
| /* Raw bits are not differentially encoded */ |
| for (unsigned i = 0; i < bits.size(); i++) { |
| *burst_itr = 2.0 * (bits[i] & 0x01) - 1.0; |
| burst_itr += sps; |
| } |
| |
| GMSKRotate(*burst, sps); |
| burst->isReal(false); |
| |
| /* Single Gaussian pulse approximation shaping */ |
| shaped = convolve(burst, pulse, NULL, START_ONLY); |
| |
| delete burst; |
| |
| return shaped; |
| } |
| |
| /* Assume input bits are not differentially encoded */ |
| signalVector *modulateBurst(const BitVector &wBurst, int guardPeriodLength, |
| int sps, bool emptyPulse) |
| { |
| if (emptyPulse) |
| return rotateBurst(wBurst, guardPeriodLength, sps); |
| else if (sps == 4) |
| return modulateBurstLaurent(wBurst); |
| else |
| return modulateBurstBasic(wBurst, guardPeriodLength, sps); |
| } |
| |
| static void generateSincTable() |
| { |
| float x; |
| |
| for (int i = 0; i < TABLESIZE; i++) { |
| x = (float) i / TABLESIZE * 8 * M_PI; |
| if (fabs(x) < 0.01) { |
| sincTable[i] = 1.0f; |
| continue; |
| } |
| |
| sincTable[i] = sinf(x) / x; |
| } |
| } |
| |
| float sinc(float x) |
| { |
| if (fabs(x) >= 8 * M_PI) |
| return 0.0; |
| |
| int index = (int) floorf(fabs(x) / (8 * M_PI) * TABLESIZE); |
| |
| return sincTable[index]; |
| } |
| |
| /* |
| * Create fractional delay filterbank with Blackman-harris windowed |
| * sinc function generator. The number of filters generated is specified |
| * by the DELAYFILTS value. |
| */ |
| void generateDelayFilters() |
| { |
| int h_len = 20; |
| complex *data; |
| signalVector *h; |
| signalVector::iterator itr; |
| |
| float k, sum; |
| float a0 = 0.35875; |
| float a1 = 0.48829; |
| float a2 = 0.14128; |
| float a3 = 0.01168; |
| |
| for (int i = 0; i < DELAYFILTS; i++) { |
| data = (complex *) convolve_h_alloc(h_len); |
| h = new signalVector(data, 0, h_len); |
| h->setAligned(true); |
| h->isReal(true); |
| |
| sum = 0.0; |
| itr = h->end(); |
| for (int n = 0; n < h_len; n++) { |
| k = (float) n; |
| *--itr = (complex) sinc(M_PI_F * |
| (k - (float) h_len / 2.0 - (float) i / DELAYFILTS)); |
| *itr *= a0 - |
| a1 * cos(2 * M_PI * n / (h_len - 1)) + |
| a2 * cos(4 * M_PI * n / (h_len - 1)) - |
| a3 * cos(6 * M_PI * n / (h_len - 1)); |
| |
| sum += itr->real(); |
| } |
| |
| itr = h->begin(); |
| for (int n = 0; n < h_len; n++) |
| *itr++ /= sum; |
| |
| delayFilters[i] = h; |
| } |
| } |
| |
| signalVector *delayVector(signalVector *in, signalVector *out, float delay) |
| { |
| int whole, index; |
| float frac; |
| signalVector *h, *shift, *fshift = NULL; |
| |
| whole = floor(delay); |
| frac = delay - whole; |
| |
| /* Sinc interpolated fractional shift (if allowable) */ |
| if (fabs(frac) > 1e-2) { |
| index = floorf(frac * (float) DELAYFILTS); |
| h = delayFilters[index]; |
| |
| fshift = convolve(in, h, NULL, NO_DELAY); |
| if (!fshift) |
| return NULL; |
| } |
| |
| if (!fshift) |
| shift = new signalVector(*in); |
| else |
| shift = fshift; |
| |
| /* Integer sample shift */ |
| if (whole < 0) { |
| whole = -whole; |
| signalVector::iterator wBurstItr = shift->begin(); |
| signalVector::iterator shiftedItr = shift->begin() + whole; |
| |
| while (shiftedItr < shift->end()) |
| *wBurstItr++ = *shiftedItr++; |
| |
| while (wBurstItr < shift->end()) |
| *wBurstItr++ = 0.0; |
| } else if (whole >= 0) { |
| signalVector::iterator wBurstItr = shift->end() - 1; |
| signalVector::iterator shiftedItr = shift->end() - 1 - whole; |
| |
| while (shiftedItr >= shift->begin()) |
| *wBurstItr-- = *shiftedItr--; |
| |
| while (wBurstItr >= shift->begin()) |
| *wBurstItr-- = 0.0; |
| } |
| |
| if (!out) |
| return shift; |
| |
| out->clone(*shift); |
| delete shift; |
| return out; |
| } |
| |
| signalVector *gaussianNoise(int length, |
| float variance, |
| complex mean) |
| { |
| |
| signalVector *noise = new signalVector(length); |
| signalVector::iterator nPtr = noise->begin(); |
| float stddev = sqrtf(variance); |
| while (nPtr < noise->end()) { |
| float u1 = (float) rand()/ (float) RAND_MAX; |
| while (u1==0.0) |
| u1 = (float) rand()/ (float) RAND_MAX; |
| float u2 = (float) rand()/ (float) RAND_MAX; |
| float arg = 2.0*M_PI*u2; |
| *nPtr = mean + stddev*complex(cos(arg),sin(arg))*sqrtf(-2.0*log(u1)); |
| nPtr++; |
| } |
| |
| return noise; |
| } |
| |
| complex interpolatePoint(const signalVector &inSig, |
| float ix) |
| { |
| |
| int start = (int) (floor(ix) - 10); |
| if (start < 0) start = 0; |
| int end = (int) (floor(ix) + 11); |
| if ((unsigned) end > inSig.size()-1) end = inSig.size()-1; |
| |
| complex pVal = 0.0; |
| if (!inSig.isReal()) { |
| for (int i = start; i < end; i++) |
| pVal += inSig[i] * sinc(M_PI_F*(i-ix)); |
| } |
| else { |
| for (int i = start; i < end; i++) |
| pVal += inSig[i].real() * sinc(M_PI_F*(i-ix)); |
| } |
| |
| return pVal; |
| } |
| |
| static complex fastPeakDetect(const signalVector &rxBurst, float *index) |
| { |
| float val, max = 0.0f; |
| complex amp; |
| int _index = -1; |
| |
| for (size_t i = 0; i < rxBurst.size(); i++) { |
| val = rxBurst[i].norm2(); |
| if (val > max) { |
| max = val; |
| _index = i; |
| amp = rxBurst[i]; |
| } |
| } |
| |
| if (index) |
| *index = (float) _index; |
| |
| return amp; |
| } |
| |
| complex peakDetect(const signalVector &rxBurst, |
| float *peakIndex, |
| float *avgPwr) |
| { |
| |
| |
| complex maxVal = 0.0; |
| float maxIndex = -1; |
| float sumPower = 0.0; |
| |
| for (unsigned int i = 0; i < rxBurst.size(); i++) { |
| float samplePower = rxBurst[i].norm2(); |
| if (samplePower > maxVal.real()) { |
| maxVal = samplePower; |
| maxIndex = i; |
| } |
| sumPower += samplePower; |
| } |
| |
| // interpolate around the peak |
| // to save computation, we'll use early-late balancing |
| float earlyIndex = maxIndex-1; |
| float lateIndex = maxIndex+1; |
| |
| float incr = 0.5; |
| while (incr > 1.0/1024.0) { |
| complex earlyP = interpolatePoint(rxBurst,earlyIndex); |
| complex lateP = interpolatePoint(rxBurst,lateIndex); |
| if (earlyP < lateP) |
| earlyIndex += incr; |
| else if (earlyP > lateP) |
| earlyIndex -= incr; |
| else break; |
| incr /= 2.0; |
| lateIndex = earlyIndex + 2.0; |
| } |
| |
| maxIndex = earlyIndex + 1.0; |
| maxVal = interpolatePoint(rxBurst,maxIndex); |
| |
| if (peakIndex!=NULL) |
| *peakIndex = maxIndex; |
| |
| if (avgPwr!=NULL) |
| *avgPwr = (sumPower-maxVal.norm2()) / (rxBurst.size()-1); |
| |
| return maxVal; |
| |
| } |
| |
| void scaleVector(signalVector &x, |
| complex scale) |
| { |
| #ifdef HAVE_NEON |
| int len = x.size(); |
| |
| scale_complex((float *) x.begin(), |
| (float *) x.begin(), |
| (float *) &scale, len); |
| #else |
| signalVector::iterator xP = x.begin(); |
| signalVector::iterator xPEnd = x.end(); |
| if (!x.isReal()) { |
| while (xP < xPEnd) { |
| *xP = *xP * scale; |
| xP++; |
| } |
| } |
| else { |
| while (xP < xPEnd) { |
| *xP = xP->real() * scale; |
| xP++; |
| } |
| } |
| #endif |
| } |
| |
| /** in-place conjugation */ |
| void conjugateVector(signalVector &x) |
| { |
| if (x.isReal()) return; |
| signalVector::iterator xP = x.begin(); |
| signalVector::iterator xPEnd = x.end(); |
| while (xP < xPEnd) { |
| *xP = xP->conj(); |
| xP++; |
| } |
| } |
| |
| |
| // in-place addition!! |
| bool addVector(signalVector &x, |
| signalVector &y) |
| { |
| signalVector::iterator xP = x.begin(); |
| signalVector::iterator yP = y.begin(); |
| signalVector::iterator xPEnd = x.end(); |
| signalVector::iterator yPEnd = y.end(); |
| while ((xP < xPEnd) && (yP < yPEnd)) { |
| *xP = *xP + *yP; |
| xP++; yP++; |
| } |
| return true; |
| } |
| |
| // in-place multiplication!! |
| bool multVector(signalVector &x, |
| signalVector &y) |
| { |
| signalVector::iterator xP = x.begin(); |
| signalVector::iterator yP = y.begin(); |
| signalVector::iterator xPEnd = x.end(); |
| signalVector::iterator yPEnd = y.end(); |
| while ((xP < xPEnd) && (yP < yPEnd)) { |
| *xP = (*xP) * (*yP); |
| xP++; yP++; |
| } |
| return true; |
| } |
| |
| static bool generateMidamble(int sps, int tsc) |
| { |
| bool status = true; |
| float toa; |
| complex *data = NULL; |
| signalVector *autocorr = NULL, *midamble = NULL; |
| signalVector *midMidamble = NULL, *_midMidamble = NULL; |
| |
| if ((tsc < 0) || (tsc > 7)) |
| return false; |
| |
| delete gMidambles[tsc]; |
| |
| /* Use middle 16 bits of each TSC. Correlation sequence is not pulse shaped */ |
| midMidamble = modulateBurst(gTrainingSequence[tsc].segment(5,16), 0, sps, true); |
| if (!midMidamble) |
| return false; |
| |
| /* Simulated receive sequence is pulse shaped */ |
| midamble = modulateBurst(gTrainingSequence[tsc], 0, sps, false); |
| if (!midamble) { |
| status = false; |
| goto release; |
| } |
| |
| // NOTE: Because ideal TSC 16-bit midamble is 66 symbols into burst, |
| // the ideal TSC has an + 180 degree phase shift, |
| // due to the pi/2 frequency shift, that |
| // needs to be accounted for. |
| // 26-midamble is 61 symbols into burst, has +90 degree phase shift. |
| scaleVector(*midMidamble, complex(-1.0, 0.0)); |
| scaleVector(*midamble, complex(0.0, 1.0)); |
| |
| conjugateVector(*midMidamble); |
| |
| /* For SSE alignment, reallocate the midamble sequence on 16-byte boundary */ |
| data = (complex *) convolve_h_alloc(midMidamble->size()); |
| _midMidamble = new signalVector(data, 0, midMidamble->size()); |
| _midMidamble->setAligned(true); |
| memcpy(_midMidamble->begin(), midMidamble->begin(), |
| midMidamble->size() * sizeof(complex)); |
| |
| autocorr = convolve(midamble, _midMidamble, NULL, NO_DELAY); |
| if (!autocorr) { |
| status = false; |
| goto release; |
| } |
| |
| gMidambles[tsc] = new CorrelationSequence; |
| gMidambles[tsc]->buffer = data; |
| gMidambles[tsc]->sequence = _midMidamble; |
| gMidambles[tsc]->gain = peakDetect(*autocorr, &toa, NULL); |
| |
| /* For 1 sps only |
| * (Half of correlation length - 1) + midpoint of pulse shape + remainder |
| * 13.5 = (16 / 2 - 1) + 1.5 + (26 - 10) / 2 |
| */ |
| if (sps == 1) |
| gMidambles[tsc]->toa = toa - 13.5; |
| else |
| gMidambles[tsc]->toa = 0; |
| |
| release: |
| delete autocorr; |
| delete midamble; |
| delete midMidamble; |
| |
| if (!status) { |
| delete _midMidamble; |
| free(data); |
| gMidambles[tsc] = NULL; |
| } |
| |
| return status; |
| } |
| |
| CorrelationSequence *generateEdgeMidamble(int tsc) |
| { |
| complex *data = NULL; |
| signalVector *midamble = NULL, *_midamble = NULL; |
| CorrelationSequence *seq; |
| |
| if ((tsc < 0) || (tsc > 7)) |
| return NULL; |
| |
| /* Use middle 48 bits of each TSC. Correlation sequence is not pulse shaped */ |
| const BitVector *bits = &gEdgeTrainingSequence[tsc]; |
| midamble = modulateEdgeBurst(bits->segment(15, 48), 1, true); |
| if (!midamble) |
| return NULL; |
| |
| conjugateVector(*midamble); |
| |
| data = (complex *) convolve_h_alloc(midamble->size()); |
| _midamble = new signalVector(data, 0, midamble->size()); |
| _midamble->setAligned(true); |
| memcpy(_midamble->begin(), midamble->begin(), |
| midamble->size() * sizeof(complex)); |
| |
| /* Channel gain is an empirically measured value */ |
| seq = new CorrelationSequence; |
| seq->buffer = data; |
| seq->sequence = _midamble; |
| seq->gain = Complex<float>(-19.6432, 19.5006) / 1.18; |
| seq->toa = 0; |
| |
| delete midamble; |
| |
| return seq; |
| } |
| |
| static bool generateRACHSequence(int sps) |
| { |
| bool status = true; |
| float toa; |
| complex *data = NULL; |
| signalVector *autocorr = NULL; |
| signalVector *seq0 = NULL, *seq1 = NULL, *_seq1 = NULL; |
| |
| delete gRACHSequence; |
| |
| seq0 = modulateBurst(gRACHSynchSequence, 0, sps, false); |
| if (!seq0) |
| return false; |
| |
| seq1 = modulateBurst(gRACHSynchSequence.segment(0, 40), 0, sps, true); |
| if (!seq1) { |
| status = false; |
| goto release; |
| } |
| |
| conjugateVector(*seq1); |
| |
| /* For SSE alignment, reallocate the midamble sequence on 16-byte boundary */ |
| data = (complex *) convolve_h_alloc(seq1->size()); |
| _seq1 = new signalVector(data, 0, seq1->size()); |
| _seq1->setAligned(true); |
| memcpy(_seq1->begin(), seq1->begin(), seq1->size() * sizeof(complex)); |
| |
| autocorr = convolve(seq0, _seq1, autocorr, NO_DELAY); |
| if (!autocorr) { |
| status = false; |
| goto release; |
| } |
| |
| gRACHSequence = new CorrelationSequence; |
| gRACHSequence->sequence = _seq1; |
| gRACHSequence->buffer = data; |
| gRACHSequence->gain = peakDetect(*autocorr, &toa, NULL); |
| |
| /* For 1 sps only |
| * (Half of correlation length - 1) + midpoint of pulse shaping filer |
| * 20.5 = (40 / 2 - 1) + 1.5 |
| */ |
| if (sps == 1) |
| gRACHSequence->toa = toa - 20.5; |
| else |
| gRACHSequence->toa = 0.0; |
| |
| release: |
| delete autocorr; |
| delete seq0; |
| delete seq1; |
| |
| if (!status) { |
| delete _seq1; |
| free(data); |
| gRACHSequence = NULL; |
| } |
| |
| return status; |
| } |
| |
| /* |
| * Peak-to-average computation +/- range from peak in symbols |
| */ |
| #define COMPUTE_PEAK_MIN 2 |
| #define COMPUTE_PEAK_MAX 5 |
| |
| /* |
| * Minimum number of values needed to compute peak-to-average |
| */ |
| #define COMPUTE_PEAK_CNT 5 |
| |
| static float computePeakRatio(signalVector *corr, |
| int sps, float toa, complex amp) |
| { |
| int num = 0; |
| complex *peak; |
| float rms, avg = 0.0; |
| |
| /* Check for bogus results */ |
| if ((toa < 0.0) || (toa > corr->size())) |
| return 0.0; |
| |
| peak = corr->begin() + (int) rint(toa); |
| |
| for (int i = COMPUTE_PEAK_MIN * sps; i <= COMPUTE_PEAK_MAX * sps; i++) { |
| if (peak - i >= corr->begin()) { |
| avg += (peak - i)->norm2(); |
| num++; |
| } |
| if (peak + i < corr->end()) { |
| avg += (peak + i)->norm2(); |
| num++; |
| } |
| } |
| |
| if (num < COMPUTE_PEAK_CNT) |
| return 0.0; |
| |
| rms = sqrtf(avg / (float) num) + 0.00001; |
| |
| return (amp.abs()) / rms; |
| } |
| |
| float energyDetect(signalVector &rxBurst, unsigned windowLength) |
| { |
| |
| signalVector::const_iterator windowItr = rxBurst.begin(); //+rxBurst.size()/2 - 5*windowLength/2; |
| float energy = 0.0; |
| if (windowLength < 0) windowLength = 20; |
| if (windowLength > rxBurst.size()) windowLength = rxBurst.size(); |
| for (unsigned i = 0; i < windowLength; i++) { |
| energy += windowItr->norm2(); |
| windowItr+=4; |
| } |
| return energy/windowLength; |
| } |
| |
| /* |
| * Detect a burst based on correlation and peak-to-average ratio |
| * |
| * For one sampler-per-symbol, perform fast peak detection (no interpolation) |
| * for initial gating. We do this because energy detection should be disabled. |
| * For higher oversampling values, we assume the energy detector is in place |
| * and we run full interpolating peak detection. |
| */ |
| static int detectBurst(signalVector &burst, |
| signalVector &corr, CorrelationSequence *sync, |
| float thresh, int sps, complex *amp, float *toa, |
| int start, int len) |
| { |
| signalVector *corr_in, *dec = NULL; |
| |
| if (sps == 4) { |
| dec = downsampleBurst(burst); |
| corr_in = dec; |
| sps = 1; |
| } else { |
| corr_in = &burst; |
| } |
| |
| /* Correlate */ |
| if (!convolve(corr_in, sync->sequence, &corr, |
| CUSTOM, start, len, 1, 0)) { |
| delete dec; |
| return -1; |
| } |
| |
| delete dec; |
| |
| /* Running at the downsampled rate at this point */ |
| sps = 1; |
| |
| /* Peak detection - place restrictions at correlation edges */ |
| *amp = fastPeakDetect(corr, toa); |
| |
| if ((*toa < 3 * sps) || (*toa > len - 3 * sps)) |
| return 0; |
| |
| /* Peak -to-average ratio */ |
| if (computePeakRatio(&corr, sps, *toa, *amp) < thresh) |
| return 0; |
| |
| /* Compute peak-to-average ratio. Reject if we don't have enough values */ |
| *amp = peakDetect(corr, toa, NULL); |
| |
| /* Normalize our channel gain */ |
| *amp = *amp / sync->gain; |
| |
| /* Compenate for residual rotation with dual Laurent pulse */ |
| if (sps == 4) |
| *amp = *amp * complex(0.0, 1.0); |
| |
| /* Compensate for residuate time lag */ |
| *toa = *toa - sync->toa; |
| |
| return 1; |
| } |
| |
| static float maxAmplitude(signalVector &burst) |
| { |
| float max = 0.0; |
| for (size_t i = 0; i < burst.size(); i++) { |
| if (fabs(burst[i].real()) > max) |
| max = fabs(burst[i].real()); |
| if (fabs(burst[i].imag()) > max) |
| max = fabs(burst[i].imag()); |
| } |
| |
| return max; |
| } |
| |
| /* |
| * RACH/Normal burst detection with clipping detection |
| * |
| * Correlation window parameters: |
| * target: Tail bits + burst length |
| * head: Search symbols before target |
| * tail: Search symbols after target |
| */ |
| int detectGeneralBurst(signalVector &rxBurst, |
| float thresh, |
| int sps, |
| complex &, |
| float &toa, |
| int target, int head, int tail, |
| CorrelationSequence *sync) |
| { |
| int rc, start, len; |
| bool clipping = false; |
| signalVector *corr; |
| |
| if ((sps != 1) && (sps != 4)) |
| return -SIGERR_UNSUPPORTED; |
| |
| // Detect potential clipping |
| // We still may be able to demod the burst, so we'll give it a try |
| // and only report clipping if we can't demod. |
| float maxAmpl = maxAmplitude(rxBurst); |
| if (maxAmpl > CLIP_THRESH) { |
| LOG(DEBUG) << "max burst amplitude: " << maxAmpl << " is above the clipping threshold: " << CLIP_THRESH << std::endl; |
| clipping = true; |
| } |
| |
| start = target - head - 1; |
| len = head + tail; |
| corr = new signalVector(len); |
| |
| rc = detectBurst(rxBurst, *corr, sync, |
| thresh, sps, &, &toa, start, len); |
| delete corr; |
| |
| if (rc < 0) { |
| return -SIGERR_INTERNAL; |
| } else if (!rc) { |
| amp = 0.0f; |
| toa = 0.0f; |
| return clipping?-SIGERR_CLIP:SIGERR_NONE; |
| } |
| |
| /* Subtract forward search bits from delay */ |
| toa -= head; |
| |
| return 1; |
| } |
| |
| |
| /* |
| * RACH burst detection |
| * |
| * Correlation window parameters: |
| * target: Tail bits + RACH length (reduced from 41 to a multiple of 4) |
| * head: Search 8 symbols before target |
| * tail: Search 8 symbols + maximum expected delay |
| */ |
| int detectRACHBurst(signalVector &burst, |
| float threshold, |
| int sps, |
| complex &litude, |
| float &toa, |
| unsigned max_toa) |
| { |
| int rc, target, head, tail; |
| CorrelationSequence *sync; |
| |
| target = 8 + 40; |
| head = 8; |
| tail = 8 + max_toa; |
| sync = gRACHSequence; |
| |
| rc = detectGeneralBurst(burst, threshold, sps, amplitude, toa, |
| target, head, tail, sync); |
| |
| return rc; |
| } |
| |
| /* |
| * Normal burst detection |
| * |
| * Correlation window parameters: |
| * target: Tail + data + mid-midamble + 1/2 remaining midamblebits |
| * head: Search 6 symbols before target |
| * tail: Search 6 symbols + maximum expected delay |
| */ |
| int analyzeTrafficBurst(signalVector &burst, unsigned tsc, float threshold, |
| int sps, complex &litude, float &toa, unsigned max_toa) |
| { |
| int rc, target, head, tail; |
| CorrelationSequence *sync; |
| |
| if ((tsc < 0) || (tsc > 7)) |
| return -SIGERR_UNSUPPORTED; |
| |
| target = 3 + 58 + 16 + 5; |
| head = 6; |
| tail = 6 + max_toa; |
| sync = gMidambles[tsc]; |
| |
| rc = detectGeneralBurst(burst, threshold, sps, amplitude, toa, |
| target, head, tail, sync); |
| return rc; |
| } |
| |
| int detectEdgeBurst(signalVector &burst, unsigned tsc, float threshold, |
| int sps, complex &litude, float &toa, unsigned max_toa) |
| { |
| int rc, target, head, tail; |
| CorrelationSequence *sync; |
| |
| if ((tsc < 0) || (tsc > 7)) |
| return -SIGERR_UNSUPPORTED; |
| |
| target = 3 + 58 + 16 + 5; |
| head = 6; |
| tail = 6 + max_toa; |
| sync = gEdgeMidambles[tsc]; |
| |
| rc = detectGeneralBurst(burst, threshold, sps, amplitude, toa, |
| target, head, tail, sync); |
| return rc; |
| } |
| |
| int detectAnyBurst(signalVector &burst, unsigned tsc, float threshold, |
| int sps, CorrType type, complex &, float &toa, |
| unsigned max_toa) |
| { |
| int rc = 0; |
| |
| switch (type) { |
| case EDGE: |
| rc = detectEdgeBurst(burst, tsc, threshold, sps, |
| amp, toa, max_toa); |
| if (rc > 0) |
| break; |
| else |
| type = TSC; |
| case TSC: |
| rc = analyzeTrafficBurst(burst, tsc, threshold, sps, |
| amp, toa, max_toa); |
| break; |
| case RACH: |
| rc = detectRACHBurst(burst, threshold, sps, amp, toa, |
| max_toa); |
| break; |
| default: |
| LOG(ERR) << "Invalid correlation type"; |
| } |
| |
| if (rc > 0) |
| return type; |
| |
| return rc; |
| } |
| |
| signalVector *downsampleBurst(signalVector &burst) |
| { |
| signalVector *in, *out; |
| |
| in = new signalVector(DOWNSAMPLE_IN_LEN, dnsampler->len()); |
| out = new signalVector(DOWNSAMPLE_OUT_LEN); |
| memcpy(in->begin(), burst.begin(), DOWNSAMPLE_IN_LEN * 2 * sizeof(float)); |
| |
| dnsampler->rotate((float *) in->begin(), DOWNSAMPLE_IN_LEN, |
| (float *) out->begin(), DOWNSAMPLE_OUT_LEN); |
| delete in; |
| return out; |
| }; |
| |
| signalVector *decimateVector(signalVector &wVector, size_t factor) |
| { |
| signalVector *dec; |
| |
| if (factor <= 1) |
| return NULL; |
| |
| dec = new signalVector(wVector.size() / factor); |
| dec->isReal(wVector.isReal()); |
| |
| signalVector::iterator itr = dec->begin(); |
| for (size_t i = 0; i < wVector.size(); i += factor) |
| *itr++ = wVector[i]; |
| |
| return dec; |
| } |
| |
| /* |
| * Soft 8-PSK decoding using Manhattan distance metric |
| */ |
| static SoftVector *softSliceEdgeBurst(signalVector &burst) |
| { |
| size_t nsyms = 148; |
| |
| if (burst.size() < nsyms) |
| return NULL; |
| |
| signalVector::iterator itr; |
| SoftVector *bits = new SoftVector(nsyms * 3); |
| |
| /* |
| * Bits 0 and 1 - First and second bits of the symbol respectively |
| */ |
| rotateBurst2(burst, -M_PI / 8.0); |
| itr = burst.begin(); |
| for (size_t i = 0; i < nsyms; i++) { |
| (*bits)[3 * i + 0] = -itr->imag(); |
| (*bits)[3 * i + 1] = itr->real(); |
| itr++; |
| } |
| |
| /* |
| * Bit 2 - Collapse symbols into quadrant 0 (positive X and Y). |
| * Decision area is then simplified to X=Y axis. Rotate again to |
| * place decision boundary on X-axis. |
| */ |
| itr = burst.begin(); |
| for (size_t i = 0; i < burst.size(); i++) { |
| burst[i] = Complex<float>(fabs(itr->real()), fabs(itr->imag())); |
| itr++; |
| } |
| |
| rotateBurst2(burst, -M_PI / 4.0); |
| itr = burst.begin(); |
| for (size_t i = 0; i < nsyms; i++) { |
| (*bits)[3 * i + 2] = -itr->imag(); |
| itr++; |
| } |
| |
| signalVector soft(bits->size()); |
| for (size_t i = 0; i < bits->size(); i++) |
| soft[i] = (*bits)[i]; |
| |
| return bits; |
| } |
| |
| /* |
| * Convert signalVector to SoftVector by taking real part of the signal. |
| */ |
| static SoftVector *signalToSoftVector(signalVector *dec) |
| { |
| SoftVector *bits = new SoftVector(dec->size()); |
| |
| SoftVector::iterator bit_itr = bits->begin(); |
| signalVector::iterator burst_itr = dec->begin(); |
| |
| for (; burst_itr < dec->end(); burst_itr++) |
| *bit_itr++ = burst_itr->real(); |
| |
| return bits; |
| } |
| |
| /* |
| * Shared portion of GMSK and EDGE demodulators consisting of timing |
| * recovery and single tap channel correction. For 4 SPS (if activated), |
| * the output is downsampled prior to the 1 SPS modulation specific |
| * stages. |
| */ |
| static signalVector *demodCommon(signalVector &burst, int sps, |
| complex chan, float toa) |
| { |
| signalVector *delay, *dec; |
| |
| if ((sps != 1) && (sps != 4)) |
| return NULL; |
| |
| scaleVector(burst, (complex) 1.0 / chan); |
| delay = delayVector(&burst, NULL, -toa * (float) sps); |
| |
| if (sps == 1) |
| return delay; |
| |
| dec = downsampleBurst(*delay); |
| |
| delete delay; |
| return dec; |
| } |
| |
| /* |
| * Demodulate GSMK burst. Prior to symbol rotation, operate at |
| * 4 SPS (if activated) to minimize distortion through the fractional |
| * delay filters. Symbol rotation and after always operates at 1 SPS. |
| */ |
| SoftVector *demodGmskBurst(signalVector &rxBurst, int sps, |
| complex channel, float TOA) |
| { |
| SoftVector *bits; |
| signalVector *dec; |
| |
| dec = demodCommon(rxBurst, sps, channel, TOA); |
| if (!dec) |
| return NULL; |
| |
| /* Shift up by a quarter of a frequency */ |
| GMSKReverseRotate(*dec, 1); |
| /* Take real part of the signal */ |
| bits = signalToSoftVector(dec); |
| delete dec; |
| |
| return bits; |
| } |
| |
| /* |
| * Demodulate an 8-PSK burst. Prior to symbol rotation, operate at |
| * 4 SPS (if activated) to minimize distortion through the fractional |
| * delay filters. Symbol rotation and after always operates at 1 SPS. |
| * |
| * Allow 1 SPS demodulation here, but note that other parts of the |
| * transceiver restrict EDGE operatoin to 4 SPS - 8-PSK distortion |
| * through the fractional delay filters at 1 SPS renders signal |
| * nearly unrecoverable. |
| */ |
| SoftVector *demodEdgeBurst(signalVector &burst, int sps, |
| complex chan, float toa) |
| { |
| SoftVector *bits; |
| signalVector *dec, *rot, *eq; |
| |
| dec = demodCommon(burst, sps, chan, toa); |
| if (!dec) |
| return NULL; |
| |
| /* Equalize and derotate */ |
| eq = convolve(dec, GSMPulse4->c0_inv, NULL, NO_DELAY); |
| rot = derotateEdgeBurst(*eq, 1); |
| |
| /* Soft slice and normalize */ |
| bits = softSliceEdgeBurst(*rot); |
| |
| delete dec; |
| delete eq; |
| delete rot; |
| |
| return bits; |
| } |
| |
| bool sigProcLibSetup() |
| { |
| initTrigTables(); |
| generateSincTable(); |
| initGMSKRotationTables(); |
| |
| GSMPulse1 = generateGSMPulse(1); |
| GSMPulse4 = generateGSMPulse(4); |
| |
| generateRACHSequence(1); |
| for (int tsc = 0; tsc < 8; tsc++) { |
| generateMidamble(1, tsc); |
| gEdgeMidambles[tsc] = generateEdgeMidamble(tsc); |
| } |
| |
| generateDelayFilters(); |
| |
| dnsampler = new Resampler(1, 4); |
| if (!dnsampler->init()) { |
| LOG(ALERT) << "Rx resampler failed to initialize"; |
| goto fail; |
| } |
| |
| return true; |
| |
| fail: |
| sigProcLibDestroy(); |
| return false; |
| } |
| |
| std::string corrTypeToString(CorrType corr) { |
| switch (corr) { |
| case OFF: |
| return "OFF"; |
| case TSC: |
| return "TSC"; |
| case RACH: |
| return "RACH"; |
| case EDGE: |
| return "EDGE"; |
| case IDLE: |
| return "IDLE"; |
| default: |
| return "unknown"; |
| } |
| } |
| |
| std::ostream& operator<<(std::ostream& os, CorrType corr) |
| { |
| os << corrTypeToString(corr); |
| return os; |
| } |