tomwalters@0: % method of class @frame
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
tomwalters@0: % (c) 2003, University of Cambridge, Medical Research Council 
tomwalters@0: % Stefan Bleeck (stefan@bleeck.de)
tomwalters@0: % http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual
tomwalters@0: % $Date: 2003/02/18 18:37:20 $
tomwalters@0: % $Revision: 1.1 $
tomwalters@0: 
tomwalters@0: 
tomwalters@0: function erb_density=erbdensity(fr)
tomwalters@0: cfs=getcf(fr);
tomwalters@0: nr_chan=getnrchannels(fr);
tomwalters@0: erb1=21.4*log10(4.73e-3*cfs(1)+1);  % from Glasberg,Moore 1990
tomwalters@0: erb2=21.4*log10(4.73e-3*cfs(nr_chan)+1);
tomwalters@0: nr_erbs=erb2-erb1;
tomwalters@0: erb_density=nr_chan/nr_erbs;