ГОСТ Р ИСО/МЭК 10373-6—2015
num2-fwri».e(Gi,sizeof(double),tow,fp2);
Гоlose(fp2);
else
fprintf(stdout,"Can’t Open Gl.bin");
fprintf(stdou*,"Hum ol Real Eart Data after FFT - td\n",numl)
fpr-ntf(stdout,"Num of lag Eart Data alter FFT - •«dV.n",nus.2);
free(Gt_freq);
)/* Etid Cl TJie Function FfL */
void PhaseShitting(void)
l
double *tempt, ‘tempi;
mt k;
FILE *fpl;
tempt - (double ’)calloc(sizeof(double),tow);
tempi - (double ‘)calloc(sizeof(double;,tow);
for (k-0; k*--N; k-*» )
i
tempi"k‘-Gr k;;
tempi;k’—Л- k’;
I
for (k-0; k*--ceil(N/
2
); k-*» )
i
Grik’ - tempi;kГ;
3-’k. - -tempt*k?;
I
for (k-(int)cei1(N/2)*1; k<-K; k-<♦ »
\
Gr;k’- -tempiIk’;
3-:k. - tempi|k.;
I
it(debug)
i
it((tpl-lopenPlfrpL.bin",*wb*l):-MULL)
f
fwrite(Gr,sizeof(douDle),row,Ipi);
fclose(lpl);
.1((tpl-lopen(*lUpt.bin","wb")
1
l-NfJLL}
»
fwrite(Gi,sizeof(double;,row,rpl);
tclose(fpl);
I
I
free (tempt);
free (tempi);
)/*End of PhaseShifLingo function*/
void lift(void)
l
58