Dimension von testDivergence korrigiert

This commit is contained in:
tpajenka 2013-12-01 17:22:13 +01:00
parent cc2e3fd21c
commit 4b552083e6

View File

@ -56,18 +56,18 @@ testAdj = A.fromListUnboxed (ix2 10 10) [0,1,1,1,0,0,1,0,0,1,{----}1,0,0,0,1,0,1
1,1,0,1,1,1,0,0,1,0,{----}0,1,1,0,1,0,0,0,0,1,
0,0,0,0,0,1,1,0,0,1,{----}1,0,1,0,0,1,0,1,1,0]
testAttr :: Attr
testAttr = A.fromListUnboxed (ix2 10 4) [ 0.2, 1.3, -1.4, 0.3,
-0.3, 33.0, 0.0, -2.3,
-1.1,-12.0, 2.3, 1.1,
0.1, 1.7, 3.1, 0.7,
1.4, 35.1, -1.1, 1.6,
0.5, 13.4, -0.4, 0.5,
0.9, 13.6, 1.1, 0.1,
1.2, 12.9, -0.5, -0.3,
3.1, 2.4, -0.1, 0.7,
2.6, -7.4, -0.4, 1.3]
testAttr = A.fromListUnboxed (ix2 10 5) [ 0.2, 1.3, -1.4, 0.3, 0.0,
-0.3, 33.0, 0.0, -2.3, 0.1,
-1.1,-12.0, 2.3, 1.1, 3.2,
0.1, 1.7, 3.1, 0.7, 2.5,
1.4, 35.1, -1.1, 1.6, 1.4,
0.5, 13.4, -0.4, 0.5, 2.3,
0.9, 13.6, 1.1, 0.1, 1.9,
1.2, 12.9, -0.5, -0.3, 3.3,
3.1, 2.4, -0.1, 0.7, 0.4,
2.6, -7.4, -0.4, 1.3, 1.2]
testDivergence :: MaxDivergence
testDivergence = A.fromListUnboxed (ix1 4) [3.0, 0.0, 300.0, 2.0, 10.0]
testDivergence = A.fromListUnboxed (ix1 5) [3.0, 0.0, 300.0, 2.0, 10.0]
testDensity = 0.7::Density;
testReq = 3 ::Int