ГОСТ Р 56047— 2014
negWl2B =0.1;
offsetIB = 1.0;
offset2B = 0.01;
levWt = 100.
s1B = 0;
s2B = 0;
Wt = 0;
for {m = 0:Nc-1)
if (M(1 ,m+1) > M(2.m+1))
num1В = M{1,m+1) - M(2.m+1>;
num2B = r>egWl2B * num1B;
else
num1B = M(2.m+1) - M(1.m+1);
num2B = num1B:
end
MD1B = num1B/(offsetIB + M(1.m+1)):
MD2B =num2B/ (offset2B + M(1.m+1)):
s1B = s1B + MD1B;
s2B = s2B♦ MD2B
Wt = Wt + ERavg(m+1) i (ERavg(m+1) + levWt * Ete(m+1));
end
MDiff.MtIB = (100 / Nc) * s1B;
MDiff.Mt2B = (100 / Nc) * s2B:
MDiff.Wt = Wt;
function NL = PQmovNLoudB (M. EP)
persistent Nc Et
if (isempty (Nc))
[Nc. fc) = PQCB CBasic’);
Et = PQIntNoise (fc).
end
alpha = 1.5;
TF0 = 0.15;
SO = 0.5;
NLmin = 0;
e = 0.23;
s = 0;
for (m = 0:Nc-1)
sref = TF0 * M(1,m+1) + SO;
stest = TF0 * M(2.m+1) + SO;
beta = exp (-alpha * (EP(2.m+1) - EP(1.m+1)) / EP(1.m+1));
a = max (stest * EP(2.m+1) - sref * EP(1.m+1). 0);
b = Et(m+1) + sref * EP(1 .m+1) * beta;
s = s + (Et(m+1)/stest)^ *((1 + a /b )Ae - 1);
end
NL = (24 / Nc) * s;
if (NL < NLmin)
NL = 0;
end
function NMR = POmovNMRB (EbN. Ehs)
persistent Nc gm
if (isempty (Nc))
[Nc. fc. fl. fu. dz] = PQCB (-Basic’);
gm = PQ_MaskOffset (dz. Nc);
end
43