annotate aim-mat/tools/@signal/rampamplitude.asv @ 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
bleeck@3 1 % method of class @signal
bleeck@3 2 %
bleeck@3 3 % INPUT VALUES:
bleeck@3 4 %
bleeck@3 5 % RETURN VALUE:
bleeck@3 6 %
bleeck@3 7 %
bleeck@3 8 % (c) 2003-2011, University of Cambridge, Medical Research Council
bleeck@3 9 % Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de)
bleeck@3 10 % http://www.pdn.cam.ac.uk/cnbh/aim2006
bleeck@3 11 % $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
bleeck@3 12 % $Revision: 585 $
bleeck@3 13
bleeck@3 14 function sig=rampamplitude(sig,rt,type)
bleeck@3 15
bleeck@3 16 if nargin < 3
bleeck@3 17 type='linear';
bleeck@3 18 end
bleeck@3 19 if nargin < 2
bleeck@3 20 rt=0.01;
bleeck@3 21 end
bleeck@3 22 if rt==0
bleeck@3 23 return
bleeck@3 24 end
bleeck@3 25
bleeck@3 26 if strcmp(type,'linear')
bleeck@3 27 first_bin=1;
bleeck@3 28 nr_point=time2bin(sig,rt);
bleeck@3 29 last_bin=nr_point;
bleeck@3 30 ramp=linspace(0,1,(last_bin-first_bin));
bleeck@3 31 sig=sig*ramp;
bleeck@3 32
bleeck@3 33 first_bin=getnrpoints(sig)-nr_point;
bleeck@3 34 start_time_hintere_rampe=bin2time(sig,first_bin);
bleeck@3 35 last_bin=time2bin(sig,getlength(sig));
bleeck@3 36 damp=linspace(1,0,(last_bin-first_bin));
bleeck@3 37 try
bleeck@3 38 sig=mult(sig,damp,start_time_hintere_rampe,rt);
bleeck@3 39 end
bleeck@3 40 p=1;
bleeck@3 41 end