Programmer Guide/Command Reference/EVAL/hth: Difference between revisions

From STX Wiki
Jump to navigationJump to search
m (1 revision: Initial import)
No edit summary
 
(7 intermediate revisions by one other user not shown)
Line 1: Line 1:
{{DISPLAYTITLE:{{SUBPAGENAME}}}}
{{DISPLAYTITLE:{{SUBPAGENAME}}}}
=====hth=====
Compute spectral weights.
;Usage: <code>hth(<var>f</var>, <var>type</var>)</code>
:;<var>f</var>:A scalar, vector or matrix containing the frequency value(s) in Hz.
:;<var>type</var>:The type of the spectral weight to be computed.
;Result: The result ''w'' has the same type as the argument ''f'' and contains the values of the spectral weighting function selected by ''type''.
:<code>''w''[i,j] = '''weight'''(''f''[i,j],''type'')</code>
:{|
! ''type'' !! description !! result
|-
| 0 || hearing threshold in dB || L<sub>TH</sub>
|-
| 1 || hearing threshold weighting factor || 10^(-L<sub>TH</sub> / 20)
|-
| 2 || value of the '''A''' weighting function in dB || L<sub>A</sub>
|-
| 3 || '''A''' weighting factor || 10^(-L<sub>A</sub> / 20)
|-
| 4 || value of the '''C''' weighting function in dB || L<sub>C</sub>
|-
| 5 || '''C''' weighting factor || 10^(-L<sub>C</sub> / 20)
|-
|}
:For L<sub>TH</sub> the algorithm published by E.Terhardt (JASA 71(3), March 1982) is used:
::<code>L<sub>TH</sub>(f) = 3.64 * f^-0.8 - 6.5 * exp(-0.6 * (f - 3.3)^2) + 1e-3 * f^4</code>
::<code>with: L<sub>TH</sub> = hearing threshold in dB, f = frequency in kHz</code>
;See also: [[../fft|fft]], [[../window|window]]


Hearing Threshold Level (HTH) or A/C spectral weightings.
[[Programmer_Guide/Command_Reference/EVAL#Functions|<function list>]]


=====Usage:=====


<code>hth(<var>f</var>, <var>type</var>)</code>
Example:
<pre>
// compute the amplitude spectrum $#spe (in dBA) of the signal $#sig (fs=44.1kHz)


;<var>f</var>
// method 1:
// a) compute linear amplitde spectrum of signal $#sig
#spe := eval cr2len( fft( whanning( $#sig ) )
// b) compute the frequecies of the spectral bins
#frq := eval fill( $#spe[] , 0 , 44100 / 2 / ( $#spe[]-1 ) )
// c) apply A-weights and convert to log. amplitudes
$#spe := eval lin2log( $#spe ?* hth( $#frq , 3 ) )


:The frequency (scalar, vector or matrix).
// method 2: all-in-one
 
#n := int npow2($#sig)
;<var>type</var>
#spe := eval lin2log(cr2len(fft(whanning($#sig)))) - hth(fill($#n/2+1,0,44100/$#n),2)
 
</pre>
:The type of weighting function. The following values are supported:
 
:<code>0</code> - Hearing threshold level
 
:<code>1</code> - Hearing threshold weighting factor
 
:<code>2</code> - A weighting levels.
 
:<code>3</code> - A weighting factors.
 
:<code>4</code> - C weighting levels.
 
:<code>5</code> - C weighting factors.
 
=====Notes:=====
 
Factor = 1 / (10^(Level/20))
 
=====Result:=====
 
The result of the requested function (same datatype as <var>f</var>).

Latest revision as of 10:49, 21 April 2011

Compute spectral weights.

Usage
hth(f, type)
f
A scalar, vector or matrix containing the frequency value(s) in Hz.
type
The type of the spectral weight to be computed.
Result
The result w has the same type as the argument f and contains the values of the spectral weighting function selected by type.
w[i,j] = weight(f[i,j],type)
type description result
0 hearing threshold in dB LTH
1 hearing threshold weighting factor 10^(-LTH / 20)
2 value of the A weighting function in dB LA
3 A weighting factor 10^(-LA / 20)
4 value of the C weighting function in dB LC
5 C weighting factor 10^(-LC / 20)
For LTH the algorithm published by E.Terhardt (JASA 71(3), March 1982) is used:
LTH(f) = 3.64 * f^-0.8 - 6.5 * exp(-0.6 * (f - 3.3)^2) + 1e-3 * f^4
with: LTH = hearing threshold in dB, f = frequency in kHz
See also
fft, window

<function list>


Example:

// compute the amplitude spectrum $#spe (in dBA) of the signal $#sig (fs=44.1kHz)

// method 1:
// a) compute linear amplitde spectrum of signal $#sig
#spe := eval cr2len( fft( whanning( $#sig ) )
// b) compute the frequecies of the spectral bins
#frq := eval fill( $#spe[] , 0 , 44100 / 2 / ( $#spe[]-1 ) )
// c) apply A-weights and convert to log. amplitudes
$#spe := eval lin2log( $#spe ?* hth( $#frq , 3 ) )

// method 2: all-in-one
#n := int npow2($#sig)
#spe := eval lin2log(cr2len(fft(whanning($#sig)))) - hth(fill($#n/2+1,0,44100/$#n),2)

Navigation menu

Personal tools