Changeset bf5e53b in tol

Timestamp:

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

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

a1affcf

Parents:

e571dbe

Message:

New method SortAndCount

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

File:

• tol_pkg/MatQuery/MatQuery.tol (modified) (1 diff)

tol_pkg/MatQuery/MatQuery.tol

@@ -213 +213 @@
   });
   class
-})}
-
-
+})};
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.SortAndCount = "Sorts the rows of a column matrix and "
+"returns a matrix with two columns. The first one contains sorted unique "
+"values found in given matrixand second one conatins the number of times "
+"that this value is presented.";
+VMatrix SortAndCount(VMatrix A)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Matrix B = VMat2Mat(A);
+  VMatrix C = Mat2VMat(PivotByRows(B,Sort(B,[[1]])));
+  Real m = VRows(C);
+  Set change = Col2Set(Sort(VMat2Mat(C),[[1]],True));
+  Set next = ExtractByIndex(change,Range(2,Card(change),1))<<[[Real m+1]];
+  VMatrix aux.1 = DifEq(1/(1-B),Rand(m+1,1,1,1));
+  VMatrix aux.2 = SubRow(aux.1,change);
+  VMatrix aux.3 = SubRow(aux.1,next);
+  SubRow(C,change) | (aux.3-aux.2)
+}
 
 ]];