Changeset fae8e8 in git

Timestamp:

Jan 21, 2015, 5:02:44 PM (9 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

fa4a4056e9dbacf0845ce625e256da875426ff88

Parents:

4e33058a3cced5901e5f2b51d7435047555c71ca

git-author:

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

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2015-01-21 17:03:27+01:00

Message:

Fixes due to Wolfram and Hanieh

File:

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

Singular/LIB/gradedModules.lib

@@ -689 +689 @@
 {
   intvec a = attrib(M, "isHomog");
-  return (grobj(M, intvec( a + intvec(d:size(a))) ));
+  return (grobj(M, intvec( a - intvec(d:size(a))) ));
 }
 
@@ -704 +704 @@
 {
   module Z; Z[a] = 0; 
-  Z = grobj(Z, intvec(d:a));
-
-  ASSUME(2, grisequal(Z, grpower( grshift(grzero(), d), a ) )); // optional check
+  Z = grobj(Z, -intvec(d:a));
+
+  ASSUME(2, grisequal(Z, grpower( grshift(grzero(), -d), a ) )); // optional check
   return(Z); 
 }