Changeset 1a4ddd in git


Ignore:
Timestamp:
Jan 5, 2015, 6:45:56 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4188d308699580d975efd0f6cca8dcb41c396f70')
Children:
404f45e7f2bbd4ead6ed034b30dbd5cd299dcb47
Parents:
f935621a6bf45cf043ca5689b1ae4ad916ce6aca
Message:
primdec: T -> var(1), changeordTo
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    rf93562 r1a4ddd  
    68276827  matrix n=imap(R,n);
    68286828  time = timer;
    6829   poly charpol=det(n-T*freemodule(d));
     6829  poly charpol=det(n-var(1)*freemodule(d));
    68306830  dbprint(printlevel-voice+2,"// time for computing char poly: "+
    68316831         string(timer-time));
     
    68596859    option(redSB);
    68606860    list re1;
    6861     ideal new = T-imap(R,p),imap(R,J);
     6861    ideal new = var(1)-imap(R,p),imap(R,J);
    68626862    attrib(new, "isSB",1);    //we know that new is a standard basis
    68636863    for(j=1;j<=f;j++)
     
    71467146      if (intersectOption == "intersect")
    71477147      {
    7148        list pr = result[1];
    7149        ideal intersection = result[2];
     7148        list pr = result[1];
     7149        ideal intersection = result[2];
    71507150      }
    71517151      else
     
    73467346  else
    73477347  {
    7348     execute( "ring @Phelp=("+charstr(gnir)+"),("+varstr(gnir)+"),(C,dp);");
     7348    def @Phelp=changeordTo(gnir,"dp");
     7349    setring @Phelp;
    73497350  }
    73507351
Note: See TracChangeset for help on using the changeset viewer.