Equal loudness compression

Share:

Description

Do loudness equalization and cube root compression

Usage

1
2
postaud(x, fmax, fbtype = c("bark", "mel", "htkmel", "fcmel"), 
    broaden = FALSE)

Arguments

x

Matrix of spectra (output of audspec).

fmax

Maximum frequency im Hertz.

fbtype

Auditory frequency scale.

broaden

Use two additional frequency bands for calculation.

Value

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.

Author(s)

Sebastian Krey krey@statistik.tu-dortmund.de

References

Daniel P. W. Ellis http://www.ee.columbia.edu/~dpwe/resources/matlab/rastamat/, Hynek Hermansky

See Also

audspec, dolpc

Examples

1
2
3
4
5
  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")

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.