Changeset fffc51 in git for Singular/LIB/gkdim.lib
 Timestamp:
 Nov 3, 2009, 5:16:32 PM (14 years ago)
 Branches:
 (u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')
 Children:
 151f85d6b8f7459eb6a91452f5ce85020f49ae7a
 Parents:
 27bb11bdff118bbedea3e49fe9190759ba0895fc
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/gkdim.lib
r27bb11b rfffc51 61 61 M=std(M); 62 62 } 63 int n = ncols(M); // Num of vectors defining M 64 int m = nrows(M); // The rank of the free module where M is imbedded 65 int i,j; 66 for (j=1; j<=n; j++) 67 { 68 M[j] = leadmonom(M[j]); // Only consider the leader monomial of each vector 69 } 70 intmat v[1][m]; // v will be the dimension of each stable subset 71 ideal I; 72 for (i=1; i<=m; i++) 73 { 74 I=0; 75 for (j=1; j<=n; j++) 76 { // Extract each row like an ideal .LV: ???? 77 I=I, M[i,j]; 78 } 79 v[1,i] = idGKdim(I); 80 if (v[1,i]>d) { d = v[1,i]; } 81 } 63 d=dim(M); 82 64 } 83 65 else
Note: See TracChangeset
for help on using the changeset viewer.