Changeset 2fad8f in git


Ignore:
Timestamp:
Jan 20, 2023, 3:02:11 PM (16 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
Children:
593673ae958ceeda0bbaa65e1eff4091eeff7760
Parents:
86bee1ff8da4bba6e2fbca2c65db204d0ae10144
Message:
opt: use of std (for already computed SB)
Location:
Singular/LIB
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/deform.lib

    r86bee1 r2fad8f  
    674674{
    675675  poly p = product(maxideal(1));
    676        M = std(M);
    677   matrix A;
     676  M = std(M);
    678677  if (size(#)>0) { p=#[2]; module kbaseM=#[1];}
    679678  else
     
    682681  }
    683682  N = reduce(N,M);
     683  matrix A;
    684684  if (simplify(N,10)[1]==[0]) {return(A);}
    685685  A = coeffs(N,kbaseM,p);
  • Singular/LIB/homolog.lib

    r86bee1 r2fad8f  
    11021102{"EXAMPLE";    echo=2;
    11031103  ring r;
    1104   ideal id=maxideal(4);
    1105   qring qr=std(id);
     1104  ideal id=maxideal(4); // GB
     1105  qring qr=id;
    11061106  module N=maxideal(3)*freemodule(2);
    11071107  module M=maxideal(2)*freemodule(2);
Note: See TracChangeset for help on using the changeset viewer.