Mercurial > hg > aimmat
annotate aim-mat/tools/@signal/getcenterofmass.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 % 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 % |
tomwalters@0 | 8 % (c) 2003-2008, University of Cambridge, Medical Research Council |
tomwalters@0 | 9 % Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) |
tomwalters@0 | 10 % http://www.pdn.cam.ac.uk/cnbh/aim2006 |
tomwalters@0 | 11 % $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ |
tomwalters@0 | 12 % $Revision: 585 $ |
tomwalters@0 | 13 |
tomwalters@0 | 14 function w=getcenterofmass(sig) |
tomwalters@0 | 15 |
tomwalters@0 | 16 vals=getvalues(sig); |
tomwalters@0 | 17 nr=getnrpoints(sig); |
tomwalters@0 | 18 |
tomwalters@0 | 19 su1=0; |
tomwalters@0 | 20 su2=0; |
tomwalters@0 | 21 |
tomwalters@0 | 22 for i=1:nr |
tomwalters@0 | 23 su1=su1+vals(i)*i; |
tomwalters@0 | 24 su2=su2+vals(i); |
tomwalters@0 | 25 end |
tomwalters@0 | 26 |
tomwalters@0 | 27 if su2~=0 |
tomwalters@0 | 28 w=su1/su2; |
tomwalters@0 | 29 else |
tomwalters@0 | 30 w=nr/2; |
tomwalters@0 | 31 end |
tomwalters@0 | 32 |