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

Diff for /OpenXM_contrib2/asir2018/builtin/dp.c between version 1.25 and 1.28

version 1.25, 2020/06/30 01:52:17 version 1.28, 2021/02/18 05:35:01
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2018/builtin/dp.c,v 1.24 2020/06/19 10:18:13 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2018/builtin/dp.c,v 1.27 2021/01/25 00:39:51 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 79  void Pdp_nf_mod(),Pdp_true_nf_mod();
Line 79  void Pdp_nf_mod(),Pdp_true_nf_mod();
 void Pdp_criB(),Pdp_nelim();  void Pdp_criB(),Pdp_nelim();
 void Pdp_minp(),Pdp_sp_mod();  void Pdp_minp(),Pdp_sp_mod();
 void Pdp_homo(),Pdp_dehomo();  void Pdp_homo(),Pdp_dehomo();
 void Pdpm_homo(),Pdpm_dehomo();  void Pdpm_homo(),Pdpm_dehomo(),Pdpm_mod();
 void Pdp_gr_mod_main(),Pdp_gr_f_main();  void Pdp_gr_mod_main(),Pdp_gr_f_main();
 void Pdp_gr_main(),Pdp_gr_hm_main(),Pdp_gr_d_main(),Pdp_gr_flags();  void Pdp_gr_main(),Pdp_gr_hm_main(),Pdp_gr_d_main(),Pdp_gr_flags();
 void Pdp_interreduce();  void Pdp_interreduce();
Line 114  void Pdpm_nf_f(),Pdpm_weyl_nf_f();
Line 114  void Pdpm_nf_f(),Pdpm_weyl_nf_f();
 void Pdp_lnf_f();  void Pdp_lnf_f();
 void Pnd_gr(),Pnd_gr_trace(),Pnd_f4(),Pnd_f4_trace();  void Pnd_gr(),Pnd_gr_trace(),Pnd_f4(),Pnd_f4_trace();
 void Pnd_sba(),Pnd_sba_f4();  void Pnd_sba(),Pnd_sba_f4();
   void Pnd_weyl_sba();
 void Pnd_gr_postproc(), Pnd_weyl_gr_postproc();  void Pnd_gr_postproc(), Pnd_weyl_gr_postproc();
 void Pnd_gr_recompute_trace(), Pnd_btog();  void Pnd_gr_recompute_trace(), Pnd_btog();
 void Pnd_weyl_gr(),Pnd_weyl_gr_trace();  void Pnd_weyl_gr(),Pnd_weyl_gr_trace();
Line 196  struct ftab dp_tab[] = {
Line 197  struct ftab dp_tab[] = {
   {"nd_f4",Pnd_f4,-4},    {"nd_f4",Pnd_f4,-4},
   {"nd_gr",Pnd_gr,-4},    {"nd_gr",Pnd_gr,-4},
   {"nd_sba",Pnd_sba,-4},    {"nd_sba",Pnd_sba,-4},
     {"nd_weyl_sba",Pnd_weyl_sba,-4},
   {"nd_sba_f4",Pnd_sba_f4,-4},    {"nd_sba_f4",Pnd_sba_f4,-4},
   {"nd_gr_trace",Pnd_gr_trace,-5},    {"nd_gr_trace",Pnd_gr_trace,-5},
   {"nd_f4_trace",Pnd_f4_trace,-5},    {"nd_f4_trace",Pnd_f4_trace,-5},
Line 291  struct ftab dp_supp_tab[] = {
Line 293  struct ftab dp_supp_tab[] = {
   {"dpm_dtol",Pdpm_dtol,2},    {"dpm_dtol",Pdpm_dtol,2},
   {"dpm_homo",Pdpm_homo,1},    {"dpm_homo",Pdpm_homo,1},
   {"dpm_dehomo",Pdpm_dehomo,1},    {"dpm_dehomo",Pdpm_dehomo,1},
     {"dpm_mod",Pdpm_mod,2},
   
   /* criteria */    /* criteria */
   {"dp_cri1",Pdp_cri1,2},    {"dp_cri1",Pdp_cri1,2},
Line 1295  void Pdp_mod(NODE arg,DP *rp)
Line 1298  void Pdp_mod(NODE arg,DP *rp)
   dp_mod(p,mod,subst,rp);    dp_mod(p,mod,subst,rp);
 }  }
   
   void dpm_mod(DPM,int,DPM *);
   
   void Pdpm_mod(NODE arg,DPM *rp)
   {
     DPM p;
     int mod;
     NODE subst;
   
     asir_assert(ARG0(arg),O_DP,"dp_mod");
     asir_assert(ARG1(arg),O_N,"dp_mod");
     p = (DPM)ARG0(arg); mod = ZTOS((Q)ARG1(arg));
     dpm_mod(p,mod,rp);
   }
   
   
 void Pdp_rat(NODE arg,DP *rp)  void Pdp_rat(NODE arg,DP *rp)
 {  {
   asir_assert(ARG0(arg),O_DP,"dp_rat");    asir_assert(ARG0(arg),O_DP,"dp_rat");
Line 3021  void Pnd_sba(NODE arg,LIST *rp)
Line 3039  void Pnd_sba(NODE arg,LIST *rp)
   Z mq,z;    Z mq,z;
   Num nhomo;    Num nhomo;
   NODE node;    NODE node;
   struct order_spec *ord;    struct order_spec *ord,*current_spec;
   
     current_spec = dp_current_spec;
   do_weyl = 0;    do_weyl = 0;
   retdp = 0;    retdp = 0;
   if ( (ac=argc(arg)) == 4 ) {    if ( (ac=argc(arg)) == 4 ) {
Line 3054  void Pnd_sba(NODE arg,LIST *rp)
Line 3073  void Pnd_sba(NODE arg,LIST *rp)
   } else    } else
     error("nd_gr : invalid argument");      error("nd_gr : invalid argument");
   nd_sba(f,v,m,homo,retdp,0,ord,rp);    nd_sba(f,v,m,homo,retdp,0,ord,rp);
     initd(current_spec);
   }
   
   void Pnd_weyl_sba(NODE arg,LIST *rp)
   {
     LIST f,v;
     int m,homo,retdp,ac;
     Obj val;
     Z mq,z;
     Num nhomo;
     NODE node;
     struct order_spec *ord;
   
     do_weyl = 1;
     retdp = 0;
     if ( (ac=argc(arg)) == 4 ) {
       asir_assert(ARG0(arg),O_LIST,"nd_sba");
       asir_assert(ARG1(arg),O_LIST,"nd_sba");
       asir_assert(ARG2(arg),O_N,"nd_sba");
       f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
       f = remove_zero_from_list(f);
       if ( !BDY(f) ) {
         *rp = f; do_weyl = 0; return;
       }
         mq = (Z)ARG2(arg);
         STOZ(0x40000000,z);
         if ( cmpz(mq,z) >= 0 ) {
           node = mknode(1,mq);
           Psetmod_ff(node,&val);
           m = -2;
         } else
           m = ZTOS(mq);
       create_order_spec(0,ARG3(arg),&ord);
       homo = 0;
       if ( get_opt("homo",&val) && val ) homo = 1;
       if ( get_opt("dp",&val) && val ) retdp = 1;
     } else if ( ac == 1 ) {
       f = (LIST)ARG0(arg);
       parse_gr_option(f,current_option,&v,&nhomo,&m,&ord);
       homo = ZTOS((Q)nhomo);
       if ( get_opt("dp",&val) && val ) retdp = 1;
     } else
       error("nd_gr : invalid argument");
     nd_sba(f,v,m,homo,retdp,0,ord,rp);
     do_weyl = 0;
 }  }
   
 void Pnd_sba_f4(NODE arg,LIST *rp)  void Pnd_sba_f4(NODE arg,LIST *rp)
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.28
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>