# HG changeset patch
# User d.lewis <d.lewis@gold.ac.uk>
# Date 1180111961 -3600
# Node ID 262aa7a3d500910c567f1261c88cc77e78fb28e8
# Parent  163c5cb249933d2a32b3c1cf18c52bbfbc99cdd7
Fix (?) for vector-correlation

darcs-hash:20070525165241-40ec0-3fccec4b7b3b87ed31c3ea29a872ae6b63c2cf15.gz

diff -r 163c5cb24993 -r 262aa7a3d500 utils/utils.lisp
--- a/utils/utils.lisp	Thu May 24 11:07:31 2007 +0100
+++ b/utils/utils.lisp	Fri May 25 17:52:41 2007 +0100
@@ -115,13 +115,15 @@
 	 (equation-tr (* sum-x sum-y))
 	 (equation-t 0)
 	 (results-array (make-array n)))
-    (do ((i 0 (1+ i)))
-	((= i n) results-array)
-      (setf equation-t (- (* n (loop for j from 0 to (1- n)
-				       sum (* (aref vector1 (mod (+ i j) n))
-					      (aref vector2 j))))
-			  equation-tr)
-	    (aref results-array i) (/ equation-t equation-b)))))
+    (if (= equation-b 0)
+	(make-array 12 :initial-element 0)
+	(do ((i 0 (1+ i)))
+	    ((= i n) results-array)
+	  (setf equation-t (- (* n (loop for j from 0 to (1- n)
+					 sum (* (aref vector1 (mod (+ i j) n))
+						(aref vector2 j))))
+			      equation-tr)
+		(aref results-array i) (/ equation-t equation-b))))))
 
 
 (defparameter *krumhansl-schmuckler-major-key*