ГОСТ Р ИСО/МЭК 10373-6—2015
G - (rtoubleeomplex *)calioc (sizeof (raoublecomplex),row);
GanalytiCdl - (rroubleeomplex*)calloc (sizeof(doublecomplex),row;
test - (double *;calloc(sizeof(double),row);
sqrtr-(double *>calloc(sizeof(double),row);
aqrtl-(double *)calloc(sizeof(double),row);
tor (k-0;k<-N;k44)
<
RE(G’k ) - Gvaiue’k ;
:м(з;к) - o.o;
I
tor (k-0;k<-N;K44)
(
REfGanalytiCa.ik’J-G’k .r;
ГМ(Ganalytica.’k’)-Gtlfftk!.r;
1
tor (k-0;k<-N;k44)
sqrtr(k|-aqrt.(Ganalyt lcal(k|.r*Ganalyticalik|.i‘Ganalytleal|k|.i’Ganalytleal1kj.i)
1
tpl-topen("output.txt","w");
it (!tpl)
<
Гр»ifi*.r(stdeut,"Can’t wi.te extracted envelope in outpur.,txt.\n") ;
1ree(G);
free(Gano-ytleal);
free(test);
free(aqrtr);
free(sqrti
) г
return 1;
for(k-0; k<SampledPoints; k44>
fpr-ntf(tpl,"ae,"e\n",Gil»e k*,sqrtr ’k );
tclosedpi
) ;
free(G);
free(Ganalytical);
free(test);
free(sqrtr);
free(aqrtr);
return 0;
)
/*Md1IiFunction*/
void hilbert(char Mnamep)
I
mt status-0,i-1;
char fname|21:£);
atrcpy(tname, fnamep);
InputFileName- fname;
//Reading the sampled data
•io
N-(rnt)рои(2,i)-1;
i*-i
60