comparison src/scalar.c @ 41:afb9e6fee244

Changes to xtract_inharmonicity - made parameters consistent with other
xtractors that use peak spectrum. Fixed memory alloc bug in pd example.

     return SUCCESS;
 }
 
 int xtract_inharmonicity(float *data, int N, void *argv, float *result){
 
-    int n = N;
+    int n = N >> 1;
     float num = 0.f, den = 0.f,
-	  *fund, *freq;
-
-    fund = *(float **)argv;
-    freq = fund+1;
+	  fund, *freqs, *amps;
+
+    fund = *(float *)argv;
+    freqs = data;
+    amps = data + n;
 
     while(n--){
-	num += abs(freq[n] - n * *fund) * SQ(data[n]);
-	den += SQ(data[n]);
-    }
-
-    *result = (2 * num) / (*fund * den); 
+	num += abs(freqs[n] - n * fund) * SQ(amps[n]);
+	den += SQ(amps[n]);
+    }
+
+    *result = (2 * num) / (fund * den); 
 
     return SUCCESS;
 }