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/25 12:47:43 $
tomwalters@0: % $Revision: 1.4 $
tomwalters@0: 
tomwalters@0: function sig=getvaluesat(fr,where,width)
tomwalters@0: % usage: sig=getvaluesat(fr,nr)
tomwalters@0: % returns a signal consisting of all points along the frame vertically
tomwalters@0: % at this point in time
tomwalters@0: 
tomwalters@0: if nargin<3
tomwalters@0:     width=0;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: if where> getmaximumtime(fr) | where < getminimumtime(fr)
tomwalters@0:     error('Frame::getvaluesat time not in range of frame');
tomwalters@0: end
tomwalters@0: 
tomwalters@0: nrchan=getnrchannels(fr);
tomwalters@0: for i=1:nrchan
tomwalters@0:     sig=getsinglechannel(fr,i);
tomwalters@0:     psig=getpart(sig,where,where+width);
tomwalters@0:     vals(i)=average(psig);
tomwalters@0: end
tomwalters@0: 
tomwalters@0: sig=signal(vals);
tomwalters@0: sig=setsr(sig,1);
tomwalters@0: sig=setunit_x(sig,'Frequency (kHz)');
tomwalters@0: sig=setunit_y(sig,'Intervalstrength');
tomwalters@0: sig=setname(sig,sprintf('Values of Frame at time %3.1f ms',where*1000));
tomwalters@0: sig=setxlabels(sig,getcf(fr));