Changeset 625767 in git for kernel/tgb.cc
 Timestamp:
 May 16, 2006, 10:38:39 AM (17 years ago)
 Branches:
 (u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')
 Children:
 b8b01af0e7839f5203fa9378d74dad8732160032
 Parents:
 45c9af467659b9010e2fc67a7cb8da665abaf595
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/tgb.cc
r45c9af4 r625767 5 5 * Computer Algebra System SINGULAR * 6 6 ****************************************/ 7 /* $Id: tgb.cc,v 1.8 7 20060507 06:16:01bricken Exp $ */7 /* $Id: tgb.cc,v 1.88 20060516 08:38:39 bricken Exp $ */ 8 8 /* 9 9 * ABSTRACT: slimgb and F4 implementation … … 1230 1230 1231 1231 #undef ENLARGE 1232 if (p_GetComp(h,currRing)<=c>syz_comp){ 1232 1233 for (j=0;j<i;j++){ 1233 1234 … … 1346 1347 //} 1347 1348 } 1348 1349 }//if syz_comp end 1350 1351 1352 1353 1349 1354 assume(spc<=i); 1350 1355 //now ideal quotient crit … … 2091 2096 return 0; 2092 2097 } 2093 slimgb_alg::slimgb_alg(ideal I, BOOLEAN F4){2094 2095 2098 slimgb_alg::slimgb_alg(ideal I, int syz_comp,BOOLEAN F4){ 2099 2100 this>syz_comp=syz_comp; 2096 2101 r=currRing; 2097 2102 nc=rIsPluralRing(r); … … 2360 2365 { 2361 2366 assume(c>S>m[i]!=NULL); 2367 if (p_GetComp(c>S>m[i],currRing)>this>syz_comp) continue; 2362 2368 for(j=0;j<c>n;j++) 2363 2369 { … … 2393 2399 delete c>strat; 2394 2400 } 2395 ideal t_rep_gb(ring r,ideal arg_I, BOOLEAN F4_mode){2401 ideal t_rep_gb(ring r,ideal arg_I, int syz_comp, BOOLEAN F4_mode){ 2396 2402 2397 2403 // Print("QlogSize(0) %d, QlogSize(1) %d,QlogSize(2) %d, QlogSize(5) %d\n", QlogSize(nlInit(0)),QlogSize(nlInit(1)),QlogSize(nlInit(2)),QlogSize(nlInit(5))); 2398 2404 2399 2405 if (TEST_OPT_PROT) 2400 2406 if (F4_mode) … … 2417 2423 //Print("Idelems %i \n\n",IDELEMS(I)); 2418 2424 //slimgb_alg* c=(slimgb_alg*) omalloc(sizeof(slimgb_alg)); 2419 slimgb_alg* c=new slimgb_alg(I, F4_mode); 2425 //int syz_comp=arg_I>rank; 2426 slimgb_alg* c=new slimgb_alg(I, syz_comp,F4_mode); 2420 2427 2421 2428
Note: See TracChangeset
for help on using the changeset viewer.