Changeset 762afe1 in git


Ignore:
Timestamp:
Jun 8, 2022, 3:01:52 PM (22 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
c1b1bf0a5a008bf94ec2cec7e94317d388fd1f10
Parents:
ed6b03b61600c2241ea31223bf9c968b0285590d
Message:
remove tailRing from Hilbert Series stuff
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    red6b03 r762afe1  
    11021102
    11031103lists scIndIndset(ideal S, BOOLEAN all, ideal Q)
     1104// S mjust eb an ideal, not a module
    11041105{
    11051106  int i;
     
    11151116    res->m[0].rtyp=INTVEC_CMD;
    11161117    res->m[0].data=(intvec*)iv;
    1117     return res;
    1118   }
    1119   else if (hisModule!=0)
    1120   {
    1121     res->Init(0);
    11221118    return res;
    11231119  }
  • kernel/GBEngine/khstd.cc

    red6b03 r762afe1  
    7878    l = hilb->length()-1;
    7979    mw = (*hilb)[l];
    80     newhilb =hFirstSeries(strat->Shdl,w,Q,strat->kHomW,currRing);
     80    newhilb =hFirstSeries(strat->Shdl,w,Q,strat->kHomW);
    8181    ln = newhilb->length()-1;
    8282    deg = degp(strat->P.p,currRing)-mw;
     
    148148  Lm = id_Head(strat->Shdl,currRing);
    149149
    150   newhilb =hFirstSeries(Lm,w,Q,strat->kHomW,currRing);
     150  newhilb =hFirstSeries(Lm,w,Q,strat->kHomW);
    151151
    152152  if(newhilb->compare(hilb) == 0)
  • kernel/combinatorics/hilb.cc

    red6b03 r762afe1  
    765765*caller
    766766*/
    767 void hLookSeries(ideal S, intvec *modulweight, ideal Q, intvec *wdegree, ring src)
     767void hLookSeries(ideal S, intvec *modulweight, ideal Q, intvec *wdegree)
    768768{
    769769  id_LmTest(S, currRing);
    770770
    771   intvec *hseries1 = hFirstSeries(S, modulweight, Q, wdegree, src);
     771  intvec *hseries1 = hFirstSeries(S, modulweight, Q, wdegree);
    772772  if (errorreported) return;
    773773
     
    18751875
    18761876
    1877 intvec* hFirstSeries(ideal A,intvec *module_w,ideal Q, intvec *wdegree, ring src)
     1877intvec* hFirstSeries(ideal A,intvec *module_w,ideal Q, intvec *wdegree)
    18781878{
    18791879  static ring hilb_Qt=NULL;
    18801880  if (hilb_Qt==NULL) hilb_Qt=makeQt();
    1881   if (!isModule(A,src))
    1882     return hFirstSeries0(A,Q,wdegree,src,hilb_Qt);
     1881  if (!isModule(A,currRing))
     1882    return hFirstSeries0(A,Q,wdegree,currRing,hilb_Qt);
    18831883  intvec *res=NULL;
    18841884  int w_max=0,w_min=0;
     
    18901890  for(int c=1;c<=A->rank;c++)
    18911891  {
    1892     ideal Ac=getModuleComp(A,c,src);
    1893     intvec *res_c=hFirstSeries0(Ac,Q,wdegree,src,hilb_Qt);
     1892    ideal Ac=getModuleComp(A,c,currRing);
     1893    intvec *res_c=hFirstSeries0(Ac,Q,wdegree,currRing,hilb_Qt);
    18941894    intvec *tmp=NULL;
    18951895    if (res==NULL)
  • kernel/combinatorics/hilb.h

    red6b03 r762afe1  
    1212#include "misc/intvec.h"
    1313
    14 intvec * hFirstSeries(ideal S, intvec *modulweight, ideal Q=NULL, intvec *wdegree=NULL, ring src = currRing);
     14intvec * hFirstSeries(ideal S, intvec *modulweight, ideal Q=NULL, intvec *wdegree=NULL);
    1515intvec * hFirstSeries0(ideal S, ideal Q, intvec *wdegree, const ring src, const ring Qt);
    1616poly hilbert_series(ideal A, const ring src,  const intvec *wdegree, const ring Qt);
     
    1818intvec * hSecondSeries(intvec *hseries1);
    1919
    20 void hLookSeries(ideal S, intvec *modulweight, ideal Q=NULL, intvec *wdegree=NULL, ring src = currRing);
     20void hLookSeries(ideal S, intvec *modulweight, ideal Q=NULL, intvec *wdegree=NULL);
    2121#endif
Note: See TracChangeset for help on using the changeset viewer.