ГОСТ Р 56047— 2014
function Ntot = POIoud (Ehs. Ver, Mod)
e = 0.23;
persistent Nc s Et Ets Version Model
if (-strcmp (Ver. Version) | -strcmp (Mod, Model))
Version = Ver;
Model = Mod;
if (strcmp (Model. *FFT))
[Nc. fc) = PQCB (Version);
c= 1.07664:
else
[Nc. fcj = PQFB;
c= 1.26539;
end
E0 = 1e4;
Et = PQ_enThresh (fc):
s = PQ_exlndex (fc);
for(m = 0:Nc-1)
Ets(m+1) = c * (Et(m+1)/ (s(m+1) * Е0))ле;
end
end
sN = 0;
for (m = 0:Nc-1)
Nm = Ets(m+1) * ((1 - s(m+1) s(m+1) * Ehs(m+1) / Et(m+1 ))Ae -1);
sN = sN + max(Nm. 0);
end
Ntot = (24 / Nc) * sN;
%====================
function s = PQ_exlndex (f)
N = length (0;
for (m = 0:N-1)
sdB = -2 - 2.05 ‘ atan(f(m+1) 14000) - 0.75 * atan((f(m+1) / 1600^2);
s(m+1) = 10A(sdB / 10):
end
%
------------
function Et = PQ_enThresh (f)
N = length (0:
for (m = 0:N-1)
EtdB = 3.64 * (f(m+1)/ 1000)4-0.8);
Et(m+1) = 10A(Etd8 / 10):
end
function [M. ERavg. Fmem] = PQmodPatt (Es. Fmem)
persistent Nc a b Fss
if (isempty (Nc))
Fs = 48000;
NF = 2048;
Fss = Fs / (NF/2);
[Nc. fc) = PQCB (’Basic’);
t100 = 0.050;
tO= 0.008;
[a. b] = PQtConst (П00. Ю. fc. Fss):
end
M = zeros (2. Nc):
49