annotate aim-mat/tools/@signal/tilt.m @ 4:537f939baef0 tip

various bug fixes and changed copyright message
author Stefan Bleeck <bleeck@gmail.com>
date Tue, 16 Aug 2011 14:37:17 +0100
parents 20ada0af3d7d
children
rev   line source
tomwalters@0 1 % method of class @signal
tomwalters@0 2 %
tomwalters@0 3 % INPUT VALUES:
tomwalters@0 4 %
tomwalters@0 5 % RETURN VALUE:
tomwalters@0 6 %
tomwalters@0 7 %
bleeck@3 8 % This external file is included as part of the 'aim-mat' distribution package
bleeck@3 9 % (c) 2011, University of Southampton
bleeck@3 10 % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3 11 % download of current version is on the soundsoftware site:
bleeck@3 12 % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3 13 % documentation and everything is on http://www.acousticscale.org
bleeck@3 14
tomwalters@0 15
tomwalters@0 16
tomwalters@0 17 % not jet fully tested!!!
tomwalters@0 18
tomwalters@0 19
tomwalters@0 20
tomwalters@0 21 function sig=tilt(sig,tilttime)
tomwalters@0 22 % usage: sig=tilt(sig,tilttime)
tomwalters@0 23 % puts the signal downwards to the left!
tomwalters@0 24 % in the auditory image model, all activities become
tomwalters@0 25 % smaller with the distance
tomwalters@0 26 % usually with a decrease of 100% in 40 ms
tomwalters@0 27
tomwalters@0 28
tomwalters@0 29
tomwalters@0 30
tomwalters@0 31
tomwalters@0 32 if nargin<2
tomwalters@0 33 tilttime=0.04;
tomwalters@0 34 end
tomwalters@0 35
tomwalters@0 36 vals=sig.werte;
tomwalters@0 37
tomwalters@0 38 if getminimumtime(sig)>0
tomwalters@0 39 return
tomwalters@0 40 end
tomwalters@0 41 durationtotilt=abs(getminimumtime(sig));
tomwalters@0 42 tiltnr=time2bin(sig,0); % so viele Punkte werden getiltet
tomwalters@0 43 dt=tilttime-durationtotilt; % übrige Zeit, die links aus dem Bild rausgeht
tomwalters@0 44 dnull=dt/tilttime;
tomwalters@0 45 ti=linspace(dnull,1,tiltnr)';
tomwalters@0 46 vals(1:tiltnr)=vals(1:tiltnr).*ti;
tomwalters@0 47 % figure
tomwalters@0 48 % subplot(2,1,1)
tomwalters@0 49 % plot(sig);
tomwalters@0 50 sig.werte=vals;
tomwalters@0 51 % subplot(2,1,2)
tomwalters@0 52 % plot(sig);
tomwalters@0 53
tomwalters@0 54
tomwalters@0 55