[BACK]Return to nd.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2018 / engine

Diff for /OpenXM_contrib2/asir2018/engine/nd.c between version 1.32 and 1.33

version 1.32, 2020/07/07 08:08:26 version 1.33, 2020/07/09 02:33:38
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.31 2020/07/07 08:04:30 noro Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.32 2020/07/07 08:08:26 noro Exp $ */
   
 #include "nd.h"  #include "nd.h"
   
Line 3691  ND_pairs nd_minsugarp_s( ND_pairs d, ND_pairs *prest )
Line 3691  ND_pairs nd_minsugarp_s( ND_pairs d, ND_pairs *prest )
   int msugar;    int msugar;
   ND_pairs t,last;    ND_pairs t,last;
   
 #if 1  
   for ( msugar = SG(d), t = d; t; t = NEXT(t) )    for ( msugar = SG(d), t = d; t; t = NEXT(t) )
     if ( SG(t) == msugar ) last = t;      if ( SG(t) == msugar ) last = t;
 #else  
   msugar = (d->sig->dl->td)+nd_sba_hm[d->sig->pos]->td;  
   for ( t = d; t; t = NEXT(t) )  
     if ( ((t->sig->dl->td)+nd_sba_hm[t->sig->pos]->td) == msugar ) last = t;  
 #endif  
   *prest = last->next;    *prest = last->next;
   last->next = 0;    last->next = 0;
   return d;    return d;
Line 4864  DL ndltodl(int n,UINT *ndl)
Line 4858  DL ndltodl(int n,UINT *ndl)
     int i,j,l,s,ord_l;      int i,j,l,s,ord_l;
     struct order_pair *op;      struct order_pair *op;
   
     NEWDL(dl,n);      NEWDL_NOINIT(dl,n);
     dl->td = TD(ndl);      dl->td = TD(ndl);
     d = dl->d;      d = dl->d;
     if ( nd_blockmask ) {      if ( nd_blockmask ) {
Line 10882  int nd_symbolic_preproc_s(PGeoBucket bucket,int trace,
Line 10876  int nd_symbolic_preproc_s(PGeoBucket bucket,int trace,
 NODE nd_sba_f4(int m,int **indp)  NODE nd_sba_f4(int m,int **indp)
 {  {
   int i,nh,stat,index,f4red;    int i,nh,stat,index,f4red;
   NODE r,g,tn0,tn,node;    int col,rank,len,k,j,a,sugar,nbase,psugar,ms;
   ND_pairs d,l,t,ll0,ll,lh;    NODE r,g,rp0,nflist;
   LIST l0,l1;    ND_pairs d,l,t;
   ND spol,red;    ND h,nf;
   NDV nf,redv;    NDV nfv;
   NM s0,s;    union oNDC hc;
   NODE rp0,srp0,nflist;    UINT *s0vect;
   int nsp,nred,col,rank,len,k,j,a,i1s,i2s;  
   UINT c;    UINT c;
   UINT **spmat;  
   UINT *s0vect,*svect,*p,*v;  
   int *colstat;  
   IndArray *imat;  
   int *rhead;  
   int spcol,sprow;  
   int sugar,sugarh;  
   int nbase;  
   PGeoBucket bucket;    PGeoBucket bucket;
   struct oEGT eg0,eg1,eg_f4;  
   Z i1,i2,sugarq;  
   NODE *syzlist;    NODE *syzlist;
     SIG sig;
     struct oEGT eg0,eg1,eg_f4;
     struct oEGT eg2,eg_update,eg_remove,eg_large,eg_nf,eg_nfzero;
   
   Nf4_red=0;    Nf4_red=0;
   d = 0;    d = 0;
Line 10912  NODE nd_sba_f4(int m,int **indp)
Line 10898  NODE nd_sba_f4(int m,int **indp)
   }    }
   nd_nbase = nd_psn;    nd_nbase = nd_psn;
   f4red = 1;    f4red = 1;
     psugar = 0;
   while ( d ) {    while ( d ) {
     l = nd_minsugarp_s(d,&d);      for ( t = d, ms = SG(d); t; t = NEXT(t) )
     if ( !l ) continue;        if ( SG(t) < ms ) ms = SG(t);
     sugar = nd_sugarweight?l->sugar2:SG(l);      if ( ms == psugar ) {
     if ( MaxDeg > 0 && sugar > MaxDeg ) break;  again:
     bucket = create_pbucket();        l = d; d = d->next;
     stat = nd_sp_f4(m,0,l,bucket);        if ( small_lcm(l) ) {
     if ( !stat ) {          if ( DP_Print ) fprintf(asir_out,"M");
       for ( t = l; NEXT(t); t = NEXT(t) );          continue;
       NEXT(t) = d; d = l;        }
       d = nd_reconstruct(0,d);        sig = l->sig;
       continue;        stat = nd_sp(m,0,l,&h);
     }        if ( !stat ) {
     if ( bucket->m < 0 ) continue;          NEXT(l) = d; d = l;
     col = nd_symbolic_preproc_s(bucket,0,&s0vect,&rp0);          d = nd_reconstruct(0,d);
     if ( !col ) {          goto again;
       for ( t = l; NEXT(t); t = NEXT(t) );        }
       NEXT(t) = d; d = l;    get_eg(&eg1);
       d = nd_reconstruct(0,d);    #if USE_GEOBUCKET
       continue;        stat = m?nd_nf_pbucket_s(m,h,nd_ps,!Top,&nf):nd_nf_s(m,0,h,nd_ps,!Top,&nf);
     }    #else
     if ( DP_Print ) fprintf(asir_out,"sugar=%d,",sugar);        stat = nd_nf_s(m,0,h,nd_ps,!Top,&nf);
     l = remove_large_lcm(l);    #endif
     nflist = nd_f4_red_s(m,l,0,s0vect,col,rp0,syzlist);    get_eg(&eg2);
     /* adding new bases */        if ( !stat ) {
     for ( r = nflist; r; r = NEXT(r) ) {          NEXT(l) = d; d = l;
 #if 0          d = nd_reconstruct(0,d);
       ND tmp,tmpred;          goto again;
       SIG sig;        } else if ( stat == -1 ) {
           if ( DP_Print ) { printf("S"); fflush(stdout); }
       nf = (NDV)BDY(r);          FREENDP(l);
       sig = nf->sig;        } else if ( nf ) {
       tmp = ndvtond(m,nf);          if ( DP_Print ) { printf("+"); fflush(stdout); }
       stat = nd_nf_s(m,0,tmp,nd_ps,!Top,&tmpred);          add_eg(&eg_nf,&eg1,&eg2);
 #if 0          hc = HCU(nf);
       if ( stat < 0 ) {          nd_removecont(m,nf);
         // top reducible          nfv = ndtondv(m,nf); nd_free(nf);
         if ( DP_Print ) { fprintf(asir_out,"S"); fflush(asir_out); }          nh = ndv_newps(m,nfv,0);
       } else if ( tmpred ) {  
 #else  
       if ( tmpred ) {  
 #endif  
         nf = ndtondv(m,tmpred);  
         ndv_removecont(m,nf);  
         nh = ndv_newps(m,nf,0);  
         d = update_pairs_s(d,nh,syzlist);          d = update_pairs_s(d,nh,syzlist);
         nd_sba_pos[sig->pos] = append_one(nd_sba_pos[sig->pos],nh);          nd_sba_pos[sig->pos] = append_one(nd_sba_pos[sig->pos],nh);
           FREENDP(l);
       } else {        } else {
           add_eg(&eg_nfzero,&eg1,&eg2);
          // syzygy
     get_eg(&eg1);
           d = remove_spair_s(d,sig);
     get_eg(&eg2); add_eg(&eg_remove,&eg1,&eg2);
         syzlist[sig->pos] = insert_sig(syzlist[sig->pos],sig);          syzlist[sig->pos] = insert_sig(syzlist[sig->pos],sig);
       }          if ( DP_Print ) { printf("."); fflush(stdout); }
 #else          FREENDP(l);
       nf = (NDV)BDY(r);        }
       ndv_removecont(m,nf);      } else {
       nh = ndv_newps(m,nf,0);  again2:
       d = update_pairs_s(d,nh,syzlist);        if ( DP_Print ) { printf("\n"); fflush(stdout); }
       nd_sba_pos[nf->sig->pos] = append_one(nd_sba_pos[nf->sig->pos],nh);        psugar = ms;
 #endif        l = nd_minsugarp_s(d,&d);
         sugar = nd_sugarweight?d->sugar2:SG(d);
         bucket = create_pbucket();
         stat = nd_sp_f4(m,0,l,bucket);
         if ( !stat ) {
           for ( t = l; NEXT(t); t = NEXT(t) );
           NEXT(t) = d; d = l;
           d = nd_reconstruct(0,d);
           goto again2;
         }
         if ( bucket->m < 0 ) continue;
         col = nd_symbolic_preproc_s(bucket,0,&s0vect,&rp0);
         if ( !col ) {
           for ( t = l; NEXT(t); t = NEXT(t) );
             NEXT(t) = d; d = l;
           d = nd_reconstruct(0,d);
           goto again2;
         }
         if ( DP_Print ) fprintf(asir_out,"sugar=%d,",psugar);
         nflist = nd_f4_red_s(m,l,0,s0vect,col,rp0,syzlist);
         /* adding new bases */
         for ( r = nflist; r; r = NEXT(r) ) {
           nfv = (NDV)BDY(r);
           ndv_removecont(m,nfv);
           nh = ndv_newps(m,nfv,0);
           d = update_pairs_s(d,nh,syzlist);
           nd_sba_pos[nfv->sig->pos] = append_one(nd_sba_pos[nfv->sig->pos],nh);
         }
         for ( i = 0; i < nd_nbase; i++ )
           for ( r = syzlist[i]; r; r = NEXT(r) )
               d = remove_spair_s(d,(SIG)BDY(r));
         d = remove_large_lcm(d);
         if ( DP_Print ) {
           fprintf(asir_out,"f4red=%d,gblen=%d\n",f4red,nd_psn); fflush(asir_out);
         }
         f4red++;
     }      }
     for ( i = 0; i < nd_nbase; i++ )  
       for ( r = syzlist[i]; r; r = NEXT(r) )  
         d = remove_spair_s(d,(SIG)BDY(r));  
     if ( DP_Print ) {  
       fprintf(asir_out,"f4red=%d,gblen=%d\n",f4red,nd_psn); fflush(asir_out);  
     }  
     f4red++;  
     if ( nd_f4red && f4red > nd_f4red ) break;  
     if ( nd_rank0 && !nflist ) break;  
   }    }
   if ( DP_Print ) {    if ( DP_Print ) {
     fprintf(asir_out,"number of red=%d,",Nf4_red);      fprintf(asir_out,"number of red=%d,",Nf4_red);
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>