Mercurial > hg > aimmat
annotate aim-mat/modules/usermodule/mellin/MIpack/ERB2Freq.m @ 4:537f939baef0 tip
various bug fixes and changed copyright message
| author | Stefan Bleeck <bleeck@gmail.com> |
|---|---|
| date | Tue, 16 Aug 2011 14:37:17 +0100 |
| parents | 74dedb26614d |
| children |
| rev | line source |
|---|---|
| tomwalters@0 | 1 % |
| tomwalters@0 | 2 % ERB -> Frequency and ERBwidth (Glasberg and Moore, 1990) |
| tomwalters@0 | 3 % Toshio IRINO |
| tomwalters@0 | 4 % 11 Mar. 1998 |
| tomwalters@0 | 5 % |
| tomwalters@0 | 6 % function [cf, ERBwidth] = ERB2Freq(ERBrate) |
| tomwalters@0 | 7 % INPUT ERBrate: ERB rate |
| tomwalters@0 | 8 % OUTPUT cf: Center frequency (Hz) |
| tomwalters@0 | 9 % ERBwidth: ERB bandwidth (Hz) |
| tomwalters@0 | 10 % |
| tomwalters@0 | 11 % Ref: Glasberg and Moore : Hearing Research, 47 (1990), 103-138 |
| tomwalters@0 | 12 % For different formulae (years), see ERB2FreqYear.m |
| tomwalters@0 | 13 % |
| tomwalters@0 | 14 % |
| tomwalters@0 | 15 function [cf, ERBwidth] = ERB2Freq(ERBrate), |
| tomwalters@0 | 16 |
| tomwalters@0 | 17 if nargin < 1, help ERB2Freq; end; |
| tomwalters@0 | 18 |
| tomwalters@0 | 19 cf = (10.^(ERBrate./21.4) - 1)./4.37 * 1000; |
| tomwalters@0 | 20 ERBwidth = 24.7.*(4.37*cf/1000 + 1); |
| tomwalters@0 | 21 |
| tomwalters@0 | 22 |
| tomwalters@0 | 23 |