Cost-matrix almost right, but not quite, fails due to forced test fai…

…lure

fluid/example/dtw/cost-matrix.fld

@@ -1,9 +1,9 @@
 let abs x y = if x - y < 0 then negate (x - y) else (x - y);
-
     costMatrixInit rows cols window = 
       let ns = [0 .. rows];
           ms = [0 .. cols]
       in 
-        [| let initV = if ((abs n m )<= window) then FNum (abs n m) else Infty  in initV | (n, m) in (rows, cols) |]
+        [| let initV = if ((abs n m )<= window)  then FNum 0 else Infty 
+           in initV | (n, m) in (rows, cols) |]
 in costMatrixInit 3 4 1