ГОСТ Р ИСО/МЭК 10373-6—2015
1while (MAXPOINT > N);
if (debug;
pc.ntfpH- •>d\n",H);
row-N4l;
Gvalue - (double *)calloc(sizeof(double),row;;
dime - (double *)calloc(sizeof(double;,row»;
Gr - (double ♦)ealloc(sizeof(double),row);
Gi - (double »)ealloc(sizeof(double),row);
Gtifft - (doublecomplex *)calloe(sizeof(aoubleoomplex),row);
Go - (double *)calloe(sizeof(double),row);
status - ReadDataO;
it (status— 1) goto MamExit;
/•Does FFT»/
Ftt();
/•Appropriate Phase has been Shifted*/
PhaseShifting();
/♦Does IFFT*/
Ifft();
/♦Envelope Reconstruction */
status - EnvelopeReconstruction(i;
if (status-- 1) goto MamExit;
MamExit:
free(Gvalue);
tree(Gtime);
free(Gr);
free(Gi);
free(Gt_ifft);
tree(GcT;
)/*End 0! Mam»/
E.9.6functs.c
/♦••♦♦••«г***#******************************************************/
/•functs.c*/
/•This code contains all functrons which provide the program*//*! onetlurw».Uty.*/
/•Main function oi the whole program can be found at the end of */
/•this hie.*/
/»*************************************************»*»*»***»*»*»***у
♦include <stdlo.h>
♦include <stdlib.h>
♦include «string.h>
♦inciude <ct.ype.h>
♦include <math.h>
♦incLude "s»ructures.h"
♦include “hilbert.h"
.
♦define
max
_
sampies
200000
♦ifndef M_?I
♦dehne M_PI 3.141Ь926ЬЗЬ89’/93236462643383279b
♦endif
61