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

Diff for /OpenXM_contrib2/asir2000/builtin/dp.c between version 1.16 and 1.22

version 1.16, 2001/09/04 08:48:18 version 1.22, 2001/11/19 00:57:10
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/asir2000/builtin/dp.c,v 1.15 2001/01/11 08:43:21 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.21 2001/10/09 01:36:05 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 76  void Pdp_gr_print();
Line 76  void Pdp_gr_print();
 void Pdp_mbase(),Pdp_lnf_mod(),Pdp_nf_tab_mod(),Pdp_mdtod();  void Pdp_mbase(),Pdp_lnf_mod(),Pdp_nf_tab_mod(),Pdp_mdtod();
 void Pdp_vtoe(), Pdp_etov(), Pdp_dtov(), Pdp_idiv(), Pdp_sep();  void Pdp_vtoe(), Pdp_etov(), Pdp_dtov(), Pdp_idiv(), Pdp_sep();
 void Pdp_cont();  void Pdp_cont();
   void Pdp_gr_checklist();
   
 void Pdp_weyl_red();  void Pdp_weyl_red();
 void Pdp_weyl_sp();  void Pdp_weyl_sp();
Line 118  struct ftab dp_tab[] = {
Line 119  struct ftab dp_tab[] = {
         {"dp_gr_main",Pdp_gr_main,5},          {"dp_gr_main",Pdp_gr_main,5},
         {"dp_gr_mod_main",Pdp_gr_mod_main,5},          {"dp_gr_mod_main",Pdp_gr_mod_main,5},
         {"dp_gr_f_main",Pdp_gr_f_main,4},          {"dp_gr_f_main",Pdp_gr_f_main,4},
           {"dp_gr_checklist",Pdp_gr_checklist,1},
   
         /* F4 algorithm */          /* F4 algorithm */
         {"dp_f4_main",Pdp_f4_main,3},          {"dp_f4_main",Pdp_f4_main,3},
         {"dp_f4_mod_main",Pdp_f4_mod_main,4},          {"dp_f4_mod_main",Pdp_f4_mod_main,4},
         {"dp_f4_f_main",Pdp_f4_f_main,3},  
   
 /* weyl algebra */  /* weyl algebra */
         /* multiplication */          /* multiplication */
Line 148  struct ftab dp_tab[] = {
Line 149  struct ftab dp_tab[] = {
         /* F4 algorithm */          /* F4 algorithm */
         {"dp_weyl_f4_main",Pdp_weyl_f4_main,3},          {"dp_weyl_f4_main",Pdp_weyl_f4_main,3},
         {"dp_weyl_f4_mod_main",Pdp_weyl_f4_mod_main,4},          {"dp_weyl_f4_mod_main",Pdp_weyl_f4_mod_main,4},
         {"dp_weyl_f4_f_main",Pdp_weyl_f4_f_main,3},  
   
         /* misc */          /* misc */
         {"dp_weyl_set_weight",Pdp_weyl_set_weight,-1},          {"dp_weyl_set_weight",Pdp_weyl_set_weight,-1},
Line 1286  LIST *rp;
Line 1286  LIST *rp;
         asir_assert(ARG1(arg),O_LIST,"dp_f4_main");          asir_assert(ARG1(arg),O_LIST,"dp_f4_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
         create_order_spec(ARG2(arg),&ord);          create_order_spec(ARG2(arg),&ord);
         dp_f4_main(f,v,0,&ord,rp);          dp_f4_main(f,v,&ord,rp);
 }  }
   
 void Pdp_f4_f_main(arg,rp)  /* dp_gr_checklist(list of dp) */
   
   void Pdp_gr_checklist(arg,rp)
 NODE arg;  NODE arg;
 LIST *rp;  LIST *rp;
 {  {
         LIST f,v;          VECT g;
         struct order_spec ord;          LIST dp;
           NODE r;
   
         do_weyl = 0;          do_weyl = 0;
         asir_assert(ARG0(arg),O_LIST,"dp_f4_f_main");          asir_assert(ARG0(arg),O_LIST,"dp_gr_checklist");
         asir_assert(ARG1(arg),O_LIST,"dp_f4_f_main");          gbcheck_list(BDY((LIST)ARG0(arg)),&g,&dp);
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          r = mknode(2,g,dp);
         create_order_spec(ARG2(arg),&ord);          MKLIST(*rp,r);
         dp_f4_main(f,v,1,&ord,rp);  
 }  }
   
 void Pdp_f4_mod_main(arg,rp)  void Pdp_f4_mod_main(arg,rp)
Line 1313  LIST *rp;
Line 1315  LIST *rp;
         struct order_spec ord;          struct order_spec ord;
   
         do_weyl = 0;          do_weyl = 0;
         asir_assert(ARG0(arg),O_LIST,"dp_f4_main");          asir_assert(ARG0(arg),O_LIST,"dp_f4_mod_main");
         asir_assert(ARG1(arg),O_LIST,"dp_f4_main");          asir_assert(ARG1(arg),O_LIST,"dp_f4_mod_main");
         asir_assert(ARG2(arg),O_N,"dp_f4_main");          asir_assert(ARG2(arg),O_N,"dp_f4_mod_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));
           if ( !m )
                   error("dp_f4_mod_main : invalid argument");
         create_order_spec(ARG3(arg),&ord);          create_order_spec(ARG3(arg),&ord);
         dp_f4_mod_main(f,v,m,&ord,rp);          dp_f4_mod_main(f,v,m,&ord,rp);
 }  }
Line 1337  LIST *rp;
Line 1341  LIST *rp;
         asir_assert(ARG3(arg),O_N,"dp_gr_mod_main");          asir_assert(ARG3(arg),O_N,"dp_gr_mod_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
         homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));          homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));
           if ( !m )
                   error("dp_gr_mod_main : invalid argument");
         create_order_spec(ARG4(arg),&ord);          create_order_spec(ARG4(arg),&ord);
         dp_gr_mod_main(f,v,homo,m,&ord,rp);          dp_gr_mod_main(f,v,homo,m,&ord,rp);
 }  }
Line 1378  LIST *rp;
Line 1384  LIST *rp;
 {  {
         LIST f,v;          LIST f,v;
         Num homo;          Num homo;
         Q m;  
         int modular;  
         struct order_spec ord;          struct order_spec ord;
   
         asir_assert(ARG0(arg),O_LIST,"dp_weyl_gr_main");          asir_assert(ARG0(arg),O_LIST,"dp_weyl_gr_main");
Line 1406  LIST *rp;
Line 1410  LIST *rp;
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
         create_order_spec(ARG2(arg),&ord);          create_order_spec(ARG2(arg),&ord);
         do_weyl = 1;          do_weyl = 1;
         dp_f4_main(f,v,0,&ord,rp);          dp_f4_main(f,v,&ord,rp);
         do_weyl = 0;          do_weyl = 0;
 }  }
   
 void Pdp_weyl_f4_f_main(arg,rp)  
 NODE arg;  
 LIST *rp;  
 {  
         LIST f,v;  
         struct order_spec ord;  
   
         asir_assert(ARG0(arg),O_LIST,"dp_weyl_f4_main");  
         asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");  
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);  
         create_order_spec(ARG2(arg),&ord);  
         do_weyl = 1;  
         dp_f4_main(f,v,1,&ord,rp);  
         do_weyl = 0;  
 }  
   
 void Pdp_weyl_f4_mod_main(arg,rp)  void Pdp_weyl_f4_mod_main(arg,rp)
 NODE arg;  NODE arg;
 LIST *rp;  LIST *rp;
Line 1438  LIST *rp;
Line 1426  LIST *rp;
         asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");          asir_assert(ARG1(arg),O_LIST,"dp_weyl_f4_main");
         asir_assert(ARG2(arg),O_N,"dp_f4_main");          asir_assert(ARG2(arg),O_N,"dp_f4_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg); m = QTOS((Q)ARG2(arg));
           if ( !m )
                   error("dp_weyl_f4_mod_main : invalid argument");
         create_order_spec(ARG3(arg),&ord);          create_order_spec(ARG3(arg),&ord);
         do_weyl = 1;          do_weyl = 1;
         dp_f4_mod_main(f,v,m,&ord,rp);          dp_f4_mod_main(f,v,m,&ord,rp);
Line 1459  LIST *rp;
Line 1449  LIST *rp;
         asir_assert(ARG3(arg),O_N,"dp_weyl_gr_mod_main");          asir_assert(ARG3(arg),O_N,"dp_weyl_gr_mod_main");
         f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);          f = (LIST)ARG0(arg); v = (LIST)ARG1(arg);
         homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));          homo = (Num)ARG2(arg); m = QTOS((Q)ARG3(arg));
           if ( !m )
                   error("dp_weyl_gr_mod_main : invalid argument");
         create_order_spec(ARG4(arg),&ord);          create_order_spec(ARG4(arg),&ord);
         do_weyl = 1;          do_weyl = 1;
         dp_gr_mod_main(f,v,homo,m,&ord,rp);          dp_gr_mod_main(f,v,homo,m,&ord,rp);
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>