A_im[k] = out_im[k]; } for(k=0..39) { /* calculate level dependent slope */ L[k] = 10*log10(out_re[k]* out_re[k] + out_im[k]* out_im[k]; s[k] = max(4,(24 + 230/fcentre[k] - 0.2*L[k])); /* calculate spread fraction and smooth it over time*/ cu[k] = a*pow(dist,s[k])+b*cu[k]; /* spreading of band k */ d1 = out_re[k] d2 = out_im[k] for(j=k+1..39) { d1 *= cu[k]; d2 *= cu[k]; A_re[j] += d1; A_im[j] += d2; } } /* downward spreading */ cl = pow(dist,31); d1 = 0; d2 = 0; for(k=39..0) { /* spreading of band k */ d1 = d1 * cl + A_re[k]; d2 = d2 * cl + A_im[k]; A_re[k] = d1; A_im[k] = d2; } 2.2.8 Rectification The energies at the filter outputs are calculated by adding the squared values of the filter representing the real part of the signal and the one representing the imaginary part of the signal. (34) All the following operations are carried out on these energies. 2.2.9 Time domain smearing (1) Backward masking –
A_im[k] = out_im[k]; } for(k=0..39) { /* calculate level dependent slope */ L[k] = 10*log10(out_re[k]* out_re[k] + out_im[k]* out_im[k]; s[k] = max(4,(24 + 230/fcentre[k] - 0.2*L[k])); /* calculate spread fraction and smooth it over time*/ cu[k] = a*pow(dist,s[k])+b*cu[k]; /* spreading of band k */ d1 = out_re[k] d2 = out_im[k] for(j=k+1..39) { d1 *= cu[k]; d2 *= cu[k]; A_re[j] += d1; A_im[j] += d2; } } /* downward spreading */ cl = pow(dist,31); d1 = 0; d2 = 0; for(k=39..0) { /* spreading of band k */ d1 = d1 * cl + A_re[k]; d2 = d2 * cl + A_im[k]; A_re[k] = d1; A_im[k] = d2; } 2.2.8 Rectification The energies at the filter outputs are calculated by adding the squared values of the filter representing the real part of the signal and the one representing the imaginary part of the signal. (34) All the following operations are carried out on these energies. 2.2.9 Time domain smearing (1) – Backward masking
R-REC-BS.1387-1-200111-I!!MSW-E.docx