ГОСТ Р 56047—2014
}
}
«else
i = 0:
#endif
max = 0;
for(k=i+1:k<ftf2;k++)
if(Cfft(k] > max) {
max = Cfft[kJ;
maxk = k:
}
«<fdef EHSM0D02
return max* 1000.0;
«endif
(‘EHStmp) += max;
return ((*EHSlmp)*1000.0/(*n));
}
Файл: levpatadapt.h
«define T100 0.05
«define Tmin 0.008
«define M 8
// if M is odd
Г
«define M l (М-1У2
«define М2 M1
V
// if M is even
«define M l Ш2 - 1
«define М2 M/2
struct levpatadaptout {
double EpreflBARK):
double Eptest[BARKJ;
};
struct levpatadaptm {
double PtestlBARK]:
double PreflBARK];
double PattCorrTest(BARK]:
double PattCorrReflBARKJ:
double Rnum(BARK);
double Rdenom[BARK],
}:
Г Function prototypes 7
struct levpatadaptout levpatadapt(double *, double *. int.
stnjct levpatadaptin *. int):
Г Prototypes end V
Файл: levpatadapt.c
«include <stdlib.h>
«include <math.h>
«include <comnwn.h>
«include <levpatadapt.h>
extern int bark;
extern double *fC;
struct levpatadaptout
76