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);