Mercurial > hg > aimmat
annotate aim-mat/modules/pcp/map/genmap.m @ 0:74dedb26614d
Initial checkin of AIM-MAT version 1.5 (6.4.2011).
author | tomwalters |
---|---|
date | Fri, 20 May 2011 12:32:31 +0100 |
parents | |
children | 20ada0af3d7d |
rev | line source |
---|---|
tomwalters@0 | 1 % generating function for 'aim-mat' |
tomwalters@0 | 2 % |
tomwalters@0 | 3 % INPUT VALUES: |
tomwalters@0 | 4 % |
tomwalters@0 | 5 % RETURN VALUE: |
tomwalters@0 | 6 % |
tomwalters@0 | 7 % |
tomwalters@0 | 8 % (c) 2011, University of Southampton |
tomwalters@0 | 9 % Maintained and written by Stefan Bleeck (bleec@gmail.com) |
tomwalters@0 | 10 % http://www.soton.ac.uk/aim |
tomwalters@0 | 11 |
tomwalters@0 | 12 |
tomwalters@0 | 13 function sig=genome(sig,options) |
tomwalters@0 | 14 % generating function for the outer/middle ear transfere function |
tomwalters@0 | 15 |
tomwalters@0 | 16 waithand=waitbar(0,'generating pre cochlea processing'); |
tomwalters@0 | 17 |
tomwalters@0 | 18 samplerate=getsr(sig); |
tomwalters@0 | 19 start_time=getminimumtime(sig); |
tomwalters@0 | 20 |
tomwalters@0 | 21 |
tomwalters@0 | 22 firfiltercoef = OutMidCrctFilt('MAP',samplerate,0); |
tomwalters@0 | 23 |
tomwalters@0 | 24 |
tomwalters@0 | 25 % to compensate the huge delay from the filter, a pause is added to the |
tomwalters@0 | 26 % signal, that is taken away in the end: |
tomwalters@0 | 27 pause=signal(abs(options.delay_correction),samplerate); |
tomwalters@0 | 28 sig=setstarttime(sig,0); |
tomwalters@0 | 29 sig=append(sig,pause); |
tomwalters@0 | 30 |
tomwalters@0 | 31 Snd=getvalues(sig); |
tomwalters@0 | 32 Snd=Snd'; |
tomwalters@0 | 33 Snd = filter(firfiltercoef,1,Snd); |
tomwalters@0 | 34 |
tomwalters@0 | 35 sig=setvalues(sig,Snd); |
tomwalters@0 | 36 |
tomwalters@0 | 37 %take the delay back: |
tomwalters@0 | 38 siglen=getlength(sig); |
tomwalters@0 | 39 sig=getpart(sig,abs(options.delay_correction),siglen); |
tomwalters@0 | 40 sig=setstarttime(sig,start_time); |
tomwalters@0 | 41 |
tomwalters@0 | 42 close(waithand); |