ГОСТ Р ИСО/МЭК 10373-6—2015
I
intcolpi-0;
int xx-0;
double cotp-C.G;
int lengthpl-Q;
double lengthf-0;
double cot[2000]-JOI;
double pointa-C.O;
int pointsi-C;
int lengthtotal-0;
cotp-(71.7Ье-9»
t
((tend-tini»/(lengthp»>;
colpi-eofptO.5;
1ength£«co£pi’alterlength;
points-(S*73.7>e-9»/((tend-tini)/(lengthp-l>»;
p O in ts i- U n U p o in ts tl;
lengthpl-lengthp;
for (xx»0; xx<length£; xx-**»
cofxx;-l/.engthf;
for (xx-lengthUl; xx<20GC; xx-i»)
COt*xx*-0;
if (rate— 106 II rate— 212 li rate— 424 II rate— 348»
(
L-nesiConvolution(cel, output, envelope, lengthf, lengthp);
l
else if (rate— 170C II rate— 1400 II rate— 6800»
<
ooimj-1;
for (xx-1,- xx<2000; xxM-)
со!(xx)-0;
lengthf-1;
LlnearConvolution(cof, output, envelope, lengthf, lengthp);
(Измененная редакция. Изм. A4:2012.)
for (xx-0; xx<(pointsi»; хх-м» 11 "Cuts" envelope
0
.
0
envelope xx -
0
.,-
toutput:xx:-0.0;
envelope’lengthpl-xx *-
0
0
;
tuutput lengthpl-xx -
0
. ;
1
0
0
for (xx-lengthpl*1; xx<MAX SAMPLES; xxit)
(
envelope’xx*- . ;
tcutpu*. xx -0.0;
I
lengthtotal-lengthpl-2*(pomLSi);
return (lengthtotal);
»
// Performs the search of a certain level (target) In the envelope, i.e. b*. ,00-,in
Type A, 106 kbit/s
int localizadox(douDle *env, double ’toutput, double target, ESL ’‘crosses, int env_
length)
l
71