Changeset c78800 in git


Ignore:
Timestamp:
Jul 29, 2004, 6:46:21 PM (20 years ago)
Author:
Viktor Levandovskyy <levandov@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
4a0d8619de8e3809d598fa74e5a0f8813326c7fe
Parents:
ec547b3b2b0402480b5905eadcad74f76d9ffa45
Message:
*levandov: cosmetic casts from module to ideal in the center


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/ncdecomp.lib

    rec547b3 rc78800  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: ncdecomp.lib,v 1.2 2004-06-01 13:53:35 levandov Exp $";
     2version="$Id: ncdecomp.lib,v 1.3 2004-07-29 16:46:21 levandov Exp $";
    33category="Noncommutative";
    44info="
    55LIBRARY:  ncdecomp.lib      Central character decomposition of a module
    6 AUTHORS:  Viktor Levandovskyy,     levandov@mathematik.uni-kl.de,
    7 @*        Oleksandr Khomenko,      Oleksandr.Khomenko@math.uni-freiburg.de.
     6AUTHORS:  Viktor Levandovskyy,     levandov@mathematik.uni-kl.de.
    87
    98PROCEDURES:
     
    1514
    1615  LIB "ncalg.lib";
     16  LIB "primdec.lib";
    1717///////////////////////////////////////////////////////////////////////////////
    1818static proc CharKernel(list L, int i)
     
    7575static proc MyIsEqual(module A, module B)
    7676{
     77// both A and B are submodules of free module
    7778  option(redSB);
    7879  option(redTail);
     
    224225//  print(@JcapZ);
    225226// 2. compute the min.ass.primes of the ideal in the center
    226   LIB "primdec.lib";
    227227  list @L = minAssGTZ(@JcapZ);
    228228  int sL = size(@L);
     
    249249  {
    250250    @R[1] = L[i];
     251    if (nrows(@R[1])==1)
     252    {
     253      @R[1] = ideal(@R[1]);
     254    }
    251255    @R[2] = CentralSaturation(I,L[i]);
    252256    if (nrows(@R[2])==1)
     
    262266example
    263267{ "EXAMPLE:"; echo = 2;
    264 
    265268   option(returnSB);
    266269   def a = sl2();
Note: See TracChangeset for help on using the changeset viewer.