Changeset a87b34 in git for Singular/LIB/multigrading.lib

Timestamp:

Mar 23, 2011, 6:49:20 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1628b149b92bdbe06e7d660a7fd23fea4f95ad3e

Parents:

4a5e7737ad753b22e48ca36afe5aa8c4afb5c5c0

Message:

*Simon Keicher: Fixed some issues in isSublattice, latticeBasis and preimageLattice and intersectLattices

From: Oleksandr Motsak <motsak@mathematik.uni-kl.de>

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

File:

• Singular/LIB/multigrading.lib (modified) (5 diffs)

Singular/LIB/multigrading.lib

@@ -4429 +4429 @@
     }
 
-    if ( g != 1 )
+    if ( g != 1 and g != -1 )
     {
       return(0);
@@ -4445 +4445 @@
 
   //ring R = 0,(x,y),dp;
-  intmat S2[3][2]=
+  intmat S2[3][3]=
     0, 2, 3,
     0, 1, 1,
     3, 0, 2;
 
-  intmat S1[3][3]=
+  intmat S1[3][2]=
     0, 6,
     0, 2,
@@ -4526 +4526 @@
     3,6,12;
 
-  intmat B = latticeBasis(B); 
+  intmat B = latticeBasis(L); 
   print(B); // should be a matrix with columns [1,2,3] and [0,3,6]
 
@@ -4676 +4676 @@
   intmat L = preimageLattice(P,B);
 
-  print(L); // should be a 2x2? matrix with columns [1,1,-1] and [-2,1,0]?
+  print(L); // should be a (3x2)-matrix with columns e.g. [1,1,-1] and [0,3,-2] (the generated lattice should be identical)
   
   kill B, P, L;
@@ -4917 +4917 @@
 
   // should result in a (2x4)-matrix with columns
-  // [3, 3, 3], [0, 3, 6]
+  //  e.g. [3, 3, 3], [-3, 0, 3] (the lattice should be the same)
   print(U);
 }