Changeset e79e26 in git for libpolys/polys/ext_fields/transext.cc
- Timestamp:
- Jan 23, 2014, 1:41:47 PM (10 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 616d68556ae75bb7c49364150bb827162c506899
- Parents:
- 190da3f8a1812ae3bf31c5c7fe7a441c0452abea
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/ext_fields/transext.cc
r190da3 re79e26 2363 2363 } 2364 2364 2365 number ntChineseRemainder(number *x, number *q,int rl, BOOLEAN sym,const coeffs cf) 2366 { 2367 fraction result = (fraction)omAlloc0Bin(fractionObjectBin); 2368 int i; 2369 2370 poly *P=(poly*)omAlloc(rl*sizeof(poly*)); 2371 number *X=(number *)omAlloc(rl*sizeof(number)); 2372 2373 for(i=0;i<rl;i++) P[i]=p_Copy(NUM((fraction)(x[i])),cf->extRing); 2374 NUM(result)=p_ChineseRemainder(P,X,q,rl,cf->extRing); 2375 2376 for(i=0;i<rl;i++) 2377 { 2378 P[i]=p_Copy(DEN((fraction)(x[i])),cf->extRing); 2379 if (P[i]==NULL) P[i]=p_One(cf->extRing); 2380 } 2381 DEN(result)=p_ChineseRemainder(P,X,q,rl,cf->extRing); 2382 2383 omFreeSize(X,rl*sizeof(number)); 2384 omFreeSize(P,rl*sizeof(poly*)); 2385 return ((number)result); 2386 } 2387 2365 2388 BOOLEAN ntInitChar(coeffs cf, void * infoStruct) 2366 2389 { … … 2398 2421 cf->cfInit = ntInit; 2399 2422 cf->cfInit_bigint = ntInit_bigint; 2423 //cf->cfFarey 2424 cf->cfChineseRemainder = ntChineseRemainder; 2400 2425 cf->cfInt = ntInt; 2401 2426 cf->cfNeg = ntNeg;
Note: See TracChangeset
for help on using the changeset viewer.