Changeset e571dbe in tol for tol_tests

Timestamp:

Dec 11, 2009, 9:40:41 AM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

bf5e53b

Parents:

50cb4a6

Message:

Now Matrix Sort ensures original order of rows with the same criterium value

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1789 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol_tests/tol/LinearAlgebra/test_0008/test.tol (modified) (1 diff)

tol_tests/tol/LinearAlgebra/test_0008/test.tol

@@ -22 +22 @@
 
   Set set = MatSet(mat);
-  Set sorted = Sort(set,Real(Set a, Set b)
+  Set sorted.index = Sort(Range(1,Card(set),1),Real(Real a, Real b)
   {
-    Compare(a[1],b[1])*100+
-    Compare(b[2],a[2])*10+
-    Compare(a[3],b[3])
+    Compare(set[a][1],set[b][1])*1000+
+    Compare(set[b][2],set[a][2])*100+
+    Compare(set[a][3],set[b][3])*10+
+    Compare(a,b)
   });
+  Set sorted = ExtractByIndex(set,sorted.index);
   Real ok = MatMax(Abs(s-SetMat(sorted)))==0;