Changeset 594560 in git


Ignore:
Timestamp:
Jan 24, 2023, 3:33:45 PM (15 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
2234726c50d679d6664181a5c72f75a6fd64a787
Parents:
99a5bb30e8c720a076862891ab9f708ee74b9e4d
Message:
call std in many places only if attribute isSB is not set
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • Singular/LIB/brnoeth.lib

    r99a5bb r594560  
    5757"
    5858{
    59   ideal II=std(I);
     59  ideal II;
     60  if (attrib(I,"isSB")) { II=I; } else { II=std(I); }
    6061  if (II[1]==1)
    6162  {
    … …  
    511512  int s=ncols(I);
    512513  int i;
    513   J=std(J);
     514  if (!attrib(J,"isSB")) { J=std(J);}
    514515  for (i=1;i<=s;i=i+1)
    515516  {

  • Singular/LIB/deform.lib

    r99a5bb r594560  
    11//////////////////////////////////////////////////////////////////////////////
    2 version="version deform.lib 4.1.2.0 Feb_2019 "; // $Id$
     2version="version deform.lib 4.3.1.3 Jan_2023 "; // $Id$
    33category="Singularities";
    44info="
    … …  
    674674{
    675675  poly p = product(maxideal(1));
    676   M = std(M);
     676  if (!attrib(M,"isSB")) { M = std(M);}
    677677  if (size(#)>0) { p=#[2]; module kbaseM=#[1];}
    678678  else

  • Singular/LIB/elim.lib

    r99a5bb r594560  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="version elim.lib 4.1.2.0 Feb_2019 "; // $Id$
     2version="version elim.lib 4.3.1.3 Jan_2023 "; // $Id$
    33category="Commutative Algebra";
    44info="
    … …  
    731731   int ii,kk;
    732732   def i=id;
    733    id=std(id);
     733   if (!attrib(id,"isSB")) { id=std(id);}
    734734   int p = printlevel-voice+2;  // p=printlevel (default: p=0)
    735735   while( ii<=ncols(i) )

  • Singular/LIB/normal.lib

    r99a5bb r594560  
    11//////////////////////////////////////////////////////////////////////////////
    2 version="version normal.lib 4.3.0.1 Feb_2022 "; // $Id$
     2version="version normal.lib 4.3.1.1 Jan_2023 "; // $Id$
    33category="Commutative Algebra";
    44info="
    … …  
    821821   }
    822822
    823    //map psi1 = P,maxideal(1);          //### psi1 durch fetch ersetzt
    824    //ideal SBid = psi1(SBid);
    825823   ideal SBid = fetch(P,SBid);
    826824   attrib(SBid,"isSB",1);
    827825
    828    qring newR = std(SBid);
    829 
    830    //map psi = R,ideal(X(1..nvars(R)));  //### psi durch fetch ersetzt
    831    //ideal id = psi(id);
    832    //ideal f = psi(f);
    833    //module syzf = psi(syzf);
     826   qring newR = SBid;
     827
    834828   ideal id = fetch(R,id);
    835829   ideal f = fetch(R,f);

  • Singular/LIB/primdec.lib

    r99a5bb r594560  
    11////////////////////////////////////////////////////////////////////////////
    2 version="version primdec.lib 4.2.1.1 Jul_2021 "; // $Id$
     2version="version primdec.lib 4.3.1.3 Jan_2023 "; // $Id$
    33category="Commutative Algebra";
    44info="
    … …  
    7979
    8080  int @k;
    81   ideal inew=std(id);
     81  ideal inew=id;
     82  if (!attrib(id,"isSB")) { inew=std(id);}
    8283  ideal iold;
    8384  intvec op=option(get);
    … …  
    385386proc idealsEqual( ideal k, ideal j)
    386387{
    387   return(stdIdealsEqual(std(k),std(j)));
     388  if (!attrib(k,"isSB")) { k=std(k);}
     389  if (!attrib(j,"isSB")) { j=std(j);}
     390  return(stdIdealsEqual(k,j));
    388391}
    389392
    … …  
    68226825      dbprint(printlevel - voice, "zero_rad passed");
    68236826      // SL 2
    6824       zero_rad = std(zero_rad);
     6827      if(!attrib(zero_rad,"isSB")) { zero_rad = std(zero_rad);}
    68256828    }
    68266829    else

  • Singular/LIB/resolve.lib

    r99a5bb r594560  
    11////////////////////////////////////////////////////////////////////////////
    2 version="version resolve.lib 4.1.2.0 Feb_2019 "; // $Id$
     2version="version resolve.lib 4.3.1.3 Jan_2023 "; // $Id$
    33category="Algebraic Geometry";
    44info="
    … …  
    14401440  }
    14411441  potid=std(potid);
    1442   potid2=std(potid2);
     1442  if(!attrib(potid2,"isSB")) { potid2=std(potid2); }
    14431443  for(kk=1;(((kk<=count)||(kk<=maxkk+1))&&(kk<=count2));kk++)
    14441444  {

  • Singular/LIB/spcurve.lib

    r99a5bb r594560  
    11//////////////////////////////////////////////////////////////////////////
    2 version="version spcurve.lib 4.2.1.1 Jul_2021 "; // $Id$
     2version="version spcurve.lib 4.3.1.3 Jan_2023 "; // $Id$
    33category="Singularities";
    44info="
    … …  
    199199// Initialization
    200200//---------------------------------------------------------------------------
    201   t1=std(t1);
     201  if(!attrib(t1,"isSB")) { t1=std(t1); }
    202202  module t1erz=kbase(t1);
    203203  int tau=vdim(t1);

  • Singular/LIB/zeroset.lib

    r99a5bb r594560  
    11////////////////////////////////////////////////////////////////////////////
    2 version="version zeroset.lib 4.1.2.0 Feb_2019 "; // $Id$
     2version="version zeroset.lib 4.3.1.3 Jan_2023 "; // $Id$
    33category="Symbolic-numerical solving";
    44info="
    … …  
    912912  newA = var(n + 1);
    913913
    914   I = std(id);
     914  if(attrib(id,"isSB")) { I=id;} else { I = std(id);}
    915915
    916916  // find linear solutions of univariate generators

  • doc/NEWS.texi

    r99a5bb r594560  
    3131@item chern.lib: fixed @code{symNsym} (@nref{chern_lib})
    3232@item homolog.lib: fixed corner cases for @code{depth} (@nref{homolog_lib})
     33@item many: call std in many places only if attribute @code{isSB} is not set
    3334@end itemize
    3435
Note: See TracChangeset for help on using the changeset viewer.