tomwalters@0: % method of class @frame
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
tomwalters@0: % (c) 2003, University of Cambridge, Medical Research Council 
tomwalters@0: % Stefan Bleeck (stefan@bleeck.de)
tomwalters@0: % http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual
tomwalters@0: % $Date: 2003/01/17 16:57:46 $
tomwalters@0: % $Revision: 1.3 $
tomwalters@0: 
tomwalters@0: function sumsig=getweightedintervalsum(cframe,gauss)
tomwalters@0: % usage: spectal_activity=getweightedspektralsum(cframe,gauss)
tomwalters@0: % returns the sum over frequency as function of interval
tomwalters@0: % the frame is weighted by "gauss"
tomwalters@0: 
tomwalters@0: 
tomwalters@0: number=length(cframe);
tomwalters@0: if number==1
tomwalters@0:     val=cframe.values;
tomwalters@0:     sval=val';
tomwalters@0:     gava=getvalues(gauss);
tomwalters@0:     for i=1:getnrpoints(cframe)
tomwalters@0:         sval(i,:)=sval(i,:).*gava';
tomwalters@0:     end
tomwalters@0:     intervals=sum(sval');
tomwalters@0: 
tomwalters@0:     sumsig=signal(intervals);
tomwalters@0:     sumsig=setsr(sumsig,getsr(cframe));
tomwalters@0:     sumsig=setname(sumsig,sprintf('Weighted sum of Frame: %s',getname(cframe)));
tomwalters@0:     sumsig=setstarttime(sumsig,getminimumtime(cframe));
tomwalters@0:     
tomwalters@0:     
tomwalters@0: else
tomwalters@0:         not implemented yet
tomwalters@0: end
tomwalters@0: