ГОСТ Р ИСО/МЭК 10373-6—2015
I
it(SampledPoints<N)
(
lor(i-Satf.pled5o.nts;
Gvalue’i. - 0;
I
return G;
)/*End о1 Function ReadData;*/
void Fit(void)
l
aoubiecomplex *Gt_fseq;
FILE *fpl,*fp2,*fpJ;
int Jt,numl,flun>2;
Glfreq - (doublecomplex *>calloc(sired(doublecomplex),row);
/* FFT Procedure Starts lor Sampled Data*/
lot(k-0;k<-N;*•*••>
\
RE(Gt_freq к’)-Gvalue ’it’;
IM(Gt_lxeq’k‘1-0.0;
I
il(debug)
1
.1((iffj-fopen("l.bin","wb"))l-NULL)
(
fwrite<Gvalue,ftireof(double),row,!p3);
fclose(fp3)f
rflts(fCtdebug,Gt_£req,row);/#FFT as done an spatial coordinate*/
lor (k-0;k<-N;lC44>
<
Gr k-RE(Gt_£req*ic’);
G.:x-:M(Gt_fieqk:);
I
/* FFT Procedure Ends for Sampled Data*/
/» Writing The Real And Imaginary Part Of Reflected Part for Debugmg*/
/* Writing the real part of sampled data*/
il(debug)
<
-l((Ipl-lopen("Gx-Ь-п","мЬ"))1-NULL)
I
numl-fwr l».e(Gz,sireof (double),
tow,
ipl);
lclose(fpl);
t
else
fprintf(stdout,"Can’t Open
Gx
.bin");
// Их
i t . n g
the img part of sampled data
ii((lp2-fopen("Gi-b-n","-b")11-NULL)
(
57