hilbert_fft.c Block Hilbert transform on the basis of the FFT.This program calculates the block Hilbert transform and plots the spectrum power density of the received analytical signal. The white Gauss casual process is used as an input signal. As a result of running the program, the text file hilbert_fft.txt where samples of the spectrum power density (SPD) of the received analytical signal are saved will be created in the directory dat. The SPD chart plotted according to samples from hilbert_fft.txt is shown in the figure below. It is possible to see the high level of SPD side lobes in the negative frequency area. This effect is caused by the fact that the size of the block Hilbert transform NFFT is less than the size of the SPD vector NPSD. This example visually illustrates that using the Hilbert transform on the basis of the FFT we reset to zero values of fixed frequencies in the negative area, but we do not control the SPM way between spectrum samples which are reset to zero. This effect bears the name of Gibb’s effect and it is visualized upon plotting filters on the basis of frequency capture. #include #include #include #include "dspl.h"#define N       65536#define NFFT    64#define NPSD    2048#define FS      1int main(){    /* input signal */    double x[N];    double y[N];        double z[NFFT];        double psd[NPSD];    double frq[NPSD];         /* dspl handle */    HINSTANCE hDSPL;        int n;    void *pdspl = NULL;        /* load DSPL */    hDSPL = dspl_load();    if(!hDSPL)    {        printf("dspl.dll loading ERROR!\n");        return 0;    }    /* create DSPL object for Hilbert transform */    dspl_obj_create(&pdspl);        /* generate random vector */    dspl_randn(x, N, 0.0, 1.0);    /* calculate the block Hilbert transform with 0.5 overlapping.      The signal z = x+ j*y is analytic signal*/    memset(y, 0, N*sizeof(double));    n = 0;    while(n + NFFT <= N)    {        dspl_hilbert(x+n, NFFT, pdspl, z);        memcpy(y+n+NFFT/4, z+NFFT/4, NFFT/2*sizeof(double));        n+=NFFT/2;      }        /* calculate PSD of the analytic signal*/    dspl_pwelch(x+NFFT/4, y+NFFT/4, N-NFFT/2,                 DSPL_WIN_HAMMING | DSPL_WIN_PERIODIC, 0,                 NPSD, NPSD/2, pdspl, FS, psd, frq);    /* linear PSD to dB scaling */     for(n = 0; n < NPSD; n++)        psd[n] = 10*log10(psd[n]);        /* frequency vector */     dspl_linspace(-FS/2.0, FS/2.0, NPSD, DSPL_PERIODIC, frq);    /* FFT shift. Zero frequency in the center */    dspl_fft_shift(psd, NULL, NPSD, psd, NULL);        /* write PSD to the dat/hilbert_fft.txt */    dspl_writetxt(frq,psd,NPSD,"dat/hilbert_fft.txt");    /* Free DSPL object */    dspl_obj_free(&pdspl);    /* clear dspl handle */    FreeLibrary(hDSPL);        return 0;} Generated on Sat Mar 11 2017 12:37:50 for DSPL - Digital signal processing library by   1.8.13