Equal loudness compression
Do loudness equalization and cube root compression
postaud(x, fmax, fbtype = c("bark", "mel", "htkmel", "fcmel"), broaden = FALSE)
x |
Matrix of spectra (output of |
fmax |
Maximum frequency im Hertz. |
fbtype |
Auditory frequency scale. |
broaden |
Use two additional frequency bands for calculation. |
x |
Matrix of the per sample/frame (columns) spectra after applying the frequency dependant loudness equalization and compression. |
eql |
Vector of the equal loudness curve. |
Sebastian Krey krey@statistik.tu-dortmund.de
Daniel P. W. Ellis http://www.ee.columbia.edu/~dpwe/resources/matlab/rastamat/, Hynek Hermansky
testsound <- normalize(sine(400) + sine(1000) + square(250), "16") pspectrum <- powspec(testsound@left, testsound@samp.rate) aspectrum <- audspec(pspectrum, testsound@samp.rate) paspectrum <- postaud(x = aspectrum$aspectrum, fmax = 5000, fbtype = "mel")
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.