tomwalters@0: %
tomwalters@0: %	ERB -> Frequency and ERBwidth (Glasberg and Moore, 1990)
tomwalters@0: %	Toshio IRINO
tomwalters@0: %	11 Mar. 1998
tomwalters@0: %
tomwalters@0: %	function [cf, ERBwidth] = ERB2Freq(ERBrate)
tomwalters@0: %	INPUT	ERBrate:  ERB rate
tomwalters@0: %	OUTPUT  cf:       Center frequency (Hz)
tomwalters@0: %		ERBwidth: ERB bandwidth (Hz)
tomwalters@0: %
tomwalters@0: %	Ref: Glasberg and Moore : Hearing Research, 47 (1990), 103-138
tomwalters@0: %            For different formulae (years), see ERB2FreqYear.m
tomwalters@0: %       
tomwalters@0: %
tomwalters@0: function [cf, ERBwidth] = ERB2Freq(ERBrate),
tomwalters@0: 
tomwalters@0: if nargin < 1,  help ERB2Freq; end;
tomwalters@0: 
tomwalters@0: cf = (10.^(ERBrate./21.4) - 1)./4.37 * 1000;
tomwalters@0: ERBwidth = 24.7.*(4.37*cf/1000 + 1);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: