diff wdf/scales_tl.c @ 0:5242703e91d3 tip

Initial checkin for AIM92 aimR8.2 (last updated May 1997).

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/wdf/scales_tl.c	Fri May 20 15:19:45 2011 +0100
@@ -0,0 +1,92 @@
+/*
+    Copyright (c) Applied Psychology Unit, Medical Research Council. 1988, 1989
+    ===========================================================================
+
+    Permission to use, copy, modify, and distribute this software without fee 
+    is hereby granted for research purposes, provided that this copyright 
+    notice appears in all copies and in all supporting documentation, and that 
+    the software is not redistributed for any fee (except for a nominal shipping 
+    charge). Anyone wanting to incorporate all or part of this software in a
+    commercial product must obtain a license from the Medical Research Council.
+
+    The MRC makes no representations about the suitability of this 
+    software for any purpose.  It is provided "as is" without express or implied 
+    warranty.
+ 
+    THE MRC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
+    ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL THE
+    A.P.U. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY 
+    DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN 
+    AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 
+    OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+*/
+
+/*  
+    Acknowledgment:
+    ==============
+
+    The source code provided in this file was originally developed by 
+    Christian Giguere as part of a Ph.D degree at the Department of
+    Engineering of the University of Cambridge from April 1990 to
+    November 1993. The code was subsequently adapted under a grant
+    from the Hearing Research Trust for full compatibility with 
+    AIM Release 6.15.
+
+    Christian Giguere 25/03/94
+
+*/
+
+/*
+    ===========================================================
+    scales_tl.c
+    ===========================================================
+
+    Supplements "scales.c"
+    (for use with WDF-TLF cochlear filterbank)
+
+    Author        : Christian Giguere
+    First written : 29th March, 1991 
+    Last edited   :
+    ===========================================================
+*/
+
+
+/***** includes *****/
+
+#include "scales_tl.h"
+
+
+/***** defines *****/
+
+
+/***** functions *****/
+
+/*************************************************************************
+* DensityOnScale()
+*
+* Returns the density of channels of a filterbank (# per CB-rate unit).
+*
+* argument-name:      comments:
+*   minOnScale          minimum channel freq. on arbitrary linear scale 
+*   maxOnScale          maximum channel freq. on arbitrary linear scale  
+*   channels            total number of channels
+**************************************************************************/
+
+double DensityOnScale( minOnScale, maxOnScale, channels )
+double minOnScale, maxOnScale ;
+int    channels ;
+{
+    if( channels == 1 ) {
+         
+       if( maxOnScale ==  minOnScale ) {
+
+           return ( 0. ) ;                           /* arbitrary */
+       }
+       else 
+          return ( 1. / ( maxOnScale - minOnScale ) ) ;
+    }
+    
+    else
+       return ( ( channels - 1. ) / ( maxOnScale - minOnScale ) ) ;
+
+}