Changeset 4f86a6 in git

Timestamp:

Jan 19, 2015, 9:15:04 PM (9 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

4f2aed6d338208a9af82e4da005570718c40093f

Parents:

0aa248bce27cf5733670e130d1c774a07cbdf251

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2015-01-19 21:15:04+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2015-01-19 21:18:44+01:00

Message:

Fix correct rank for modules

File:

• Singular/LIB/gradedModules.lib (modified) (3 diffs)

Singular/LIB/gradedModules.lib

@@ -298 +298 @@
 
   // grades & ordering permutation for N.  d[p] should be sorted!
-
+  
   def N = module(M[p]);  // reorder the starting ideal/module
 
   attrib( N, "isHomog", w ); // set the grading
+  attrib( N, "rank", size(w) ); // set the grading
 
   d = d[p];
@@ -644 +645 @@
   
   ASSUME( 0, r == size(a) );
-
+  
   module T; T[r] = 0; T = T, module(transpose(B));
   module AB = module(A), transpose(T);
 
   attrib(AB, "isHomog", c);
+  attrib(AB, "rank", size(c));
+  
   return(AB);
 }
@@ -718 +721 @@
 "
 {
-  matrix zero[a][a]; // TODO ???
-  module Z = zero;
+  module Z; Z[a] = 0; 
   attrib(Z, "isHomog", intvec(d:a));
+  attrib(Z, "rank", a);
 
   ASSUME(2, grisequal(Z, grpower( grshift(grzero(), d), a ) )); // optional check