Changeset cb2f4dc in git

Timestamp:

Jan 19, 2015, 9:16:48 PM (9 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

374d8e1b4eb33ca5848ce22e0d05e58ecc908065

Parents:

4f2aed6d338208a9af82e4da005570718c40093f

git-author:

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

git-committer:

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

Message:

Starting to fix grdeg/grorder/grtranspose for zero columns + test for such a case

File:

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

Singular/LIB/gradedModules.lib

@@ -237 +237 @@
 
   module L = lead(M[1..m]); // leading module-terms for input column vectors
-  intvec d = deg(L[1..m]); // their degrees
+  intvec d = deg(L[1..m]); // their degrees  
   intvec c = leadexp(L[1..m])[n]; // their module-components
-  intvec gr = w[c]; // weights
+  
+  w = intvec(-6665, w); // 0?????
+  intvec gr = w[1+c]; // weights
   
   gr = gr + d; // finally we compute their graded degrees
@@ -664 +666 @@
   grview(grpower( grshift(grzero(), 10), 5 ) );
   
-  module A = [x+y, x, 0 ], [0, x+y, y];
-  attrib(A,"isHomog", intvec(1,1,1));
+  module A = [x+y, x, 0, 0], [0, x+y, y, 0];
+  attrib(A,"isHomog", intvec(0,0,0,1));
+  attrib(A,"rank", 4);
   grview(A);
   
-  matrix B[2][2] = z,0, 0,z;
-  attrib(B,"isHomog", intvec(-2,-3));
+  matrix B[3][1] = 0,x,y;
+  attrib(B,"isHomog", intvec(2,1,1));
   grview(B);
 
@@ -678 +681 @@
   grview(C);
 
-  def D = grsum(grpower(A, 2), grpower(B, 2));
+  def D = grsum(
+     grsum(grpower(A,2), grtwist(1,1)), 
+     grsum(grtwist(1,2), grpower(B,2))
+     );
 
   print(D);
   homog(D);
-  grview(D);  
+  grview(D);
 
   def D10 = grshift(D, 10);
@@ -690 +696 @@
   grview(D10);
 
-  "";  def T = grtwist(5, 10);
-  
-  print(T);
-  homog(T);
-  grview(T);
-  
-  "";  def TT = grsum(grtwist(3, 0), grtwist(5,-1));
-  
-  print(TT);
-  homog(TT);
-  grview(TT);
+  def DD = grorder(D10);
+
+  print(DD);
+  homog(DD);
+  grview(DD);
+
+  def TTT = grtranspose(DD);
+
+  print(TTT);
+  homog(TTT);
+  grview(TTT);
 }