Changeset fffc51 in git for Singular/LIB/gkdim.lib

Timestamp:

Nov 3, 2009, 5:16:32 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')

Children:

151f85d6b8f7459eb6a91452f5ce85020f49ae7a

Parents:

27bb11bdff118bbedea3e49fe9190759ba0895fc

Message:

*hannes: use dim for GKdim

git-svn-id: file:///usr/local/Singular/svn/trunk@12235 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/gkdim.lib (modified) (1 diff)

Singular/LIB/gkdim.lib

@@ -61 +61 @@
         M=std(M);
       }
-      int n = ncols(M); // Num of vectors defining M
-      int m = nrows(M); // The rank of the free module where M is imbedded
-      int i,j;
-      for (j=1; j<=n; j++)
-      {
-        M[j] = leadmonom(M[j]); // Only consider the leader monomial of each vector
-      }
-      intmat v[1][m]; // v will be the dimension of each stable subset
-      ideal I;
-      for (i=1; i<=m; i++)
-      {
-        I=0;
-        for (j=1; j<=n; j++)
-        { // Extract each row like an ideal .LV: ????
-          I=I, M[i,j];
-        }
-        v[1,i] = idGKdim(I);
-        if (v[1,i]>d) { d = v[1,i]; }
-      }
+      d=dim(M);
     }
     else