| version 1.58, 2021/12/07 08:58:08 |
version 1.59, 2021/12/14 01:02:40 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.57 2021/12/07 08:48:34 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.58 2021/12/07 08:58:08 noro Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 2505 void setup_hpdata(HPDATA final,HPDATA current) |
|
| Line 2505 void setup_hpdata(HPDATA final,HPDATA current) |
|
| |
|
| final->n = n = nd_nvar; |
final->n = n = nd_nvar; |
| final->hn = (P)BDY(nd_hpdata); |
final->hn = (P)BDY(nd_hpdata); |
| |
#if 0 |
| if ( NEXT(nd_hpdata) != 0 && (weight=(LIST)BDY(NEXT(nd_hpdata))) != 0 ) { |
if ( NEXT(nd_hpdata) != 0 && (weight=(LIST)BDY(NEXT(nd_hpdata))) != 0 ) { |
| wlen = length(BDY(weight)); |
wlen = length(BDY(weight)); |
| if ( n != wlen ) |
if ( n != wlen ) |
| Line 2514 void setup_hpdata(HPDATA final,HPDATA current) |
|
| Line 2515 void setup_hpdata(HPDATA final,HPDATA current) |
|
| w[i] = ZTOS((Z)BDY(nd)); |
w[i] = ZTOS((Z)BDY(nd)); |
| } else |
} else |
| w = 0; |
w = 0; |
| |
#else |
| |
w = current_dl_weight_vector; |
| |
#endif |
| MKVECT(x,n); |
MKVECT(x,n); |
| for ( i = 0; i < n; i++ ) { |
for ( i = 0; i < n; i++ ) { |
| NEWDL(dl,n); dl->d[i] = 1; dl->td = 1; BDY(x)[i] = dl; |
NEWDL(dl,n); dl->d[i] = 1; dl->td = 1; BDY(x)[i] = dl; |
| Line 2712 get_eg(&eg2); add_eg(&eg_update,&eg1,&eg2); |
|
| Line 2716 get_eg(&eg2); add_eg(&eg_update,&eg1,&eg2); |
|
| fprintf(asir_out,"We found a gb\n"); |
fprintf(asir_out,"We found a gb\n"); |
| d = 0; |
d = 0; |
| } |
} |
| if ( dg > sugar ) { |
|
| // printexpr(CO,(Obj)current_hpdata.hn); |
|
| fprintf(asir_out,"\n"); |
|
| } |
|
| sugar0 = sugar; |
sugar0 = sugar; |
| while ( d && dg > sugar0 ) { |
while ( d && dg > sugar0 ) { |
| if ( DP_Print ) fprintf(asir_out,"sugar=%d done.\n",sugar0); |
if ( DP_Print ) { fprintf(asir_out,"[%d]",sugar0); fflush(asir_out); } |
| d = nd_remove_same_sugar(d,sugar0); |
d = nd_remove_same_sugar(d,sugar0); |
| sugar0++; |
sugar0++; |
| } |
} |
|
|
| fprintf(asir_out,"We found a gb\n"); |
fprintf(asir_out,"We found a gb\n"); |
| d = 0; |
d = 0; |
| } |
} |
| if ( dg > sugar ) { |
|
| // printexpr(CO,(Obj)current_hpdata.hn); |
|
| fprintf(asir_out,"\n"); |
|
| } |
|
| sugar0 = sugar; |
sugar0 = sugar; |
| while ( d && dg > sugar0 ) { |
while ( d && dg > sugar0 ) { |
| if ( DP_Print ) fprintf(asir_out,"sugar=%d done.\n",sugar0); |
if ( DP_Print ) { fprintf(asir_out,"[%d]",sugar0); fflush(asir_out); } |
| d = nd_remove_same_sugar(d,sugar0); |
d = nd_remove_same_sugar(d,sugar0); |
| sugar0++; |
sugar0++; |
| } |
} |