Changeset a87b34 in git


Ignore:
Timestamp:
Mar 23, 2011, 6:49:20 PM (12 years ago)
Author:
Oleksandr Motsak <motsak@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/multigrading.lib

    r4a5e77 ra87b34  
    44294429    }
    44304430
    4431     if ( g != 1 )
     4431    if ( g != 1 and g != -1 )
    44324432    {
    44334433      return(0);
     
    44454445
    44464446  //ring R = 0,(x,y),dp;
    4447   intmat S2[3][2]=
     4447  intmat S2[3][3]=
    44484448    0, 2, 3,
    44494449    0, 1, 1,
    44504450    3, 0, 2;
    44514451
    4452   intmat S1[3][3]=
     4452  intmat S1[3][2]=
    44534453    0, 6,
    44544454    0, 2,
     
    45264526    3,6,12;
    45274527
    4528   intmat B = latticeBasis(B);
     4528  intmat B = latticeBasis(L);
    45294529  print(B); // should be a matrix with columns [1,2,3] and [0,3,6]
    45304530
     
    46764676  intmat L = preimageLattice(P,B);
    46774677
    4678   print(L); // should be a 2x2? matrix with columns [1,1,-1] and [-2,1,0]?
     4678  print(L); // should be a (3x2)-matrix with columns e.g. [1,1,-1] and [0,3,-2] (the generated lattice should be identical)
    46794679 
    46804680  kill B, P, L;
     
    49174917
    49184918  // should result in a (2x4)-matrix with columns
    4919   // [3, 3, 3], [0, 3, 6]
     4919  //  e.g. [3, 3, 3], [-3, 0, 3] (the lattice should be the same)
    49204920  print(U);
    49214921}
Note: See TracChangeset for help on using the changeset viewer.