Changeset fa3c79 in git
- Timestamp:
- Oct 28, 2017, 12:54:15 PM (6 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 31b08bdfb2b872de7d9d6ff2103b35e771edcd78
- Parents:
- 0295e4d87eff012ab050926b956ceff356c50508
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/freegb.lib
r0295e4d rfa3c79 3355 3355 if (intvec(V[1..size(W)])-W == 0){R[1]=0;} 3356 3356 for (i =2; i <=k; i++) 3357 {// printf("dShiftDiv: for (i=%p, k=%p)", i, k); 3358 r = 0; kill T; intvec T; 3357 {r = 0; kill T; intvec T; 3359 3358 for (j =1; j <= i; j++) {r = r + V[j];} 3360 3359 //if (i==1) {T[1] = r-(i-1)*n;} else … … 3478 3477 " 3479 3478 {poly l,r,qt; int i; 3480 printf("reduce p=%p, g=%p, s=%p", p,g,s);3481 3479 g = shiftPoly(g,s); 3482 3480 list K = getlpCoeffs(lead(g),lead(p)); … … 3486 3484 {qt = qt + lpMult(lpMult(l,g[i]),r); 3487 3485 } 3488 poly reduced = leadcoef(qt)*p - leadcoef(p)*qt; 3489 printf("reduced poly = %p", reduced); 3490 return (reduced); 3486 return((leadcoef(qt)*p - leadcoef(p)*qt)); 3491 3487 } 3492 3488
Note: See TracChangeset
for help on using the changeset viewer.