ГОСТ Р ИСО/МЭК 10373-6—2015
orInti(“F - ^d\n",Р);
printf(**FFT ..Ли");
I
z££trmc( X, Mf P, D>; /* ££trm.c */
return 0;
D - 1.0;
rmpo( AM, AP>;
it (debug )
\
pnntl("P - >.d\n",F);
pr.nt1("IFFT ...\n");
z££trmc( X, M, P, D>; /* ££trm.c */
/*__Multiply with 1/M___*/
tor (i-0; i<M; l“ )
RE(X . ) /-
:X(X i"
1
/-
(doublerea1)M;
(doublerea.)M;
*/
/*__1-C Inverse FFT with respect to a spatial coordinate
*/
*/
int zifft.s» int debug, doufclecomplex *X, int M )
l
int i;
int P;
float D;
return 0;
(/♦End o£ fftrm.c*/
E.9.4 hilbert.h
/♦hllfcert.li*/
/♦This code contains the necessary functions lor extracting*/
/♦envelope*/
*1£ndef HILBERT_H_
4define HILBERT_H_
/♦This function reads the sampled data recorded in the file*/
int ReadData(VOId);
/♦This function performs the Fourier transform*/
void Fft(void);
/♦This function performs the necessary phase shift*/
void PhaseShifting(void);
/♦This lane’ion performs the inverse Fourier transform*/
void Iff*,(void);
54