ГОСТ Р ИСО/МЭК 10373-6—2015
aouble »Gt_tmp; /* It takes the teal part ot R_i£tt»/
double *Gt_tmpi;
FILE *tpl;
int k,
1
;
Gt_tmp - (double »>calloc(si*eol(double»,row)?
Gttmpi - (double *)calloc(sizeot(double),row);
tot (k-0;k<-K,-k44>
i
Gt__£ft’k;.r-3r k.;
3t_il£t
it*.i-C-:
c*
;
I
2itlts(fftdebug.GtiCft,row);/*IFFT ot the signal in spatlal coordinate»/
// End of 1FFT
tor (k-Q;k<-N;k44>
(
3t_t-B.p*k;-GL_ifCt’It.r;
)
t
1
1
(debug)
(
Ipl-fopenP.trt.txt","*");
-t Clplj
tprint£(StdOut,"Car/t write ir.file");
lor(i-O; K-H; !••]
’print£<’pl,*’
.-le\r.“,
(Gt_ifltli|.
)
);
tclose(tpl);
I
ll(aebug>
t
И ((lpl-lopen(**lflipt.bin","wb’))’-NULL)
l
lWrite(Gt_tmp,212eo£(double),tow,Ipl);
fclose(fpl);
»
iiUfpi-Гореп(**lfllpt.bin","wo"))!-NULL)
I
fwcite(Gt_tmpirsizeot(double),row,Ipl);
iclose(lpl);
\
I
£ree(Gt_tmp );
£ree(Gt_tmpi >;
)/* End 01 Function lift.*/
in*. EnveLopeReconat.ruction(void)
l
FILE *tpl;
int k;
doublecomplex *G; /’Input eignal read trom input file in complex lorm»/
aoublecomplex »Ganalytical;/*Analytical tunction ot our input signal*/
double *test;
dOuble »sqttr;
double *sqrti;
59