Mercurial > hg > libxtract

diff src/scalar.c @ 11:81eb5810a301

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added spectral centroid
author Jamie Bullock <jamie@postlude.co.uk>
date Sun, 08 Oct 2006 15:31:40 +0000
parents cac976b2a69d
children 1aec087ddfca
line wrap: on
line diff
--- a/src/scalar.c	Sun Oct 08 15:05:02 2006 +0000
+++ b/src/scalar.c	Sun Oct 08 15:31:40 2006 +0000
@@ -84,6 +84,25 @@
     
 }
 
+
+int xtract_centroid(float *data, int N, void *argv,  float *result){
+    
+    int n = N;
+
+	float *freqs, *amps, FA, A;
+
+	freqs = data;
+	amps = data + (N  >>  1);
+	
+    while(n--){
+		  FA += freqs[n] * amps[n];
+		  A += amps[n];
+	}
+  
+   *result = FA / A;
+
+}
+
 int xtract_irregularity_k(float *data, int N, void *argv, float *result){
    
     int n,