tomwalters@0
|
1 /*
|
tomwalters@0
|
2 Copyright (c) Applied Psychology Unit, Medical Research Council. 1988, 1989
|
tomwalters@0
|
3 ===========================================================================
|
tomwalters@0
|
4
|
tomwalters@0
|
5 Permission to use, copy, modify, and distribute this software without fee
|
tomwalters@0
|
6 is hereby granted for research purposes, provided that this copyright
|
tomwalters@0
|
7 notice appears in all copies and in all supporting documentation, and that
|
tomwalters@0
|
8 the software is not redistributed for any fee (except for a nominal shipping
|
tomwalters@0
|
9 charge). Anyone wanting to incorporate all or part of this software in a
|
tomwalters@0
|
10 commercial product must obtain a license from the Medical Research Council.
|
tomwalters@0
|
11
|
tomwalters@0
|
12 The MRC makes no representations about the suitability of this
|
tomwalters@0
|
13 software for any purpose. It is provided "as is" without express or implied
|
tomwalters@0
|
14 warranty.
|
tomwalters@0
|
15
|
tomwalters@0
|
16 THE MRC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
tomwalters@0
|
17 ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL THE
|
tomwalters@0
|
18 A.P.U. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
|
tomwalters@0
|
19 DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
|
tomwalters@0
|
20 AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
tomwalters@0
|
21 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
tomwalters@0
|
22 */
|
tomwalters@0
|
23
|
tomwalters@0
|
24 /*
|
tomwalters@0
|
25 Acknowledgment:
|
tomwalters@0
|
26 ==============
|
tomwalters@0
|
27
|
tomwalters@0
|
28 The source code provided in this file was originally developed by
|
tomwalters@0
|
29 Christian Giguere as part of a Ph.D degree at the Department of
|
tomwalters@0
|
30 Engineering of the University of Cambridge from April 1990 to
|
tomwalters@0
|
31 November 1993. The code was subsequently adapted under a grant
|
tomwalters@0
|
32 from the Hearing Research Trust for full compatibility with
|
tomwalters@0
|
33 AIM Release 6.15.
|
tomwalters@0
|
34
|
tomwalters@0
|
35 Christian Giguere 25/03/94
|
tomwalters@0
|
36
|
tomwalters@0
|
37 */
|
tomwalters@0
|
38
|
tomwalters@0
|
39 /*
|
tomwalters@0
|
40 ===========================================================
|
tomwalters@0
|
41 ear.h
|
tomwalters@0
|
42 ===========================================================
|
tomwalters@0
|
43
|
tomwalters@0
|
44 Design of outer and middle ear (EAR) filter.
|
tomwalters@0
|
45 (uncoupled version)
|
tomwalters@0
|
46
|
tomwalters@0
|
47 Author : Christian Giguere
|
tomwalters@0
|
48 First written : 01st June, 1991
|
tomwalters@0
|
49 Last edited : 07th March, 1994
|
tomwalters@0
|
50 ===========================================================
|
tomwalters@0
|
51 */
|
tomwalters@0
|
52
|
tomwalters@0
|
53 #ifndef _EAR_H_
|
tomwalters@0
|
54
|
tomwalters@0
|
55
|
tomwalters@0
|
56 /***** defines *****/
|
tomwalters@0
|
57
|
tomwalters@0
|
58 #define _EAR_H_
|
tomwalters@0
|
59
|
tomwalters@0
|
60 #define RHO_air ( 1.14e-03 ) /* air density (g/cm3) */
|
tomwalters@0
|
61 #define C ( 3.5e04 ) /* sound velocity in air (cm/s) */
|
tomwalters@0
|
62 #define As ( 25.0 ) /* effective diffraction radius of head-torso (cm) */
|
tomwalters@0
|
63
|
tomwalters@0
|
64
|
tomwalters@0
|
65 /***** data structure *****/
|
tomwalters@0
|
66
|
tomwalters@0
|
67 typedef struct _tube_info TubeInfo ;
|
tomwalters@0
|
68
|
tomwalters@0
|
69 struct _tube_info {
|
tomwalters@0
|
70 int Nsegments ; /* number of tube segments */
|
tomwalters@0
|
71 double length ; /* total length of tube (cm) */
|
tomwalters@0
|
72 double diameter ; /* diameter of tube (cm2) */
|
tomwalters@0
|
73 double att_factor ; /* attn. constant for backward/forward waves (1/cm) */
|
tomwalters@0
|
74 } ;
|
tomwalters@0
|
75
|
tomwalters@0
|
76 /***** externals *****/
|
tomwalters@0
|
77
|
tomwalters@0
|
78 extern Source Ear() ;
|
tomwalters@0
|
79
|
tomwalters@0
|
80 #endif
|
tomwalters@0
|
81
|