Changeset 0afa07 in git for libpolys/polys/ext_fields/transext.cc
- Timestamp:
- Jul 12, 2011, 11:31:27 AM (13 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 44d5adb209a6c64fd34d3985f93a7c9dc6e37179
- Parents:
- 6a7368df0618cc5b104f43cceb2a3f3b41ba9366
- git-author:
- Frank Seelisch <seelisch@mathematik.uni-kl.de>2011-07-12 11:31:27+02:00
- git-committer:
- Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:39:14+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/ext_fields/transext.cc
r6a7368 r0afa07 70 70 number ntNeg(number a, const coeffs cf); 71 71 number ntInvers(number a, const coeffs cf); 72 number ntPar(int i, const coeffs cf);73 72 number ntAdd(number a, number b, const coeffs cf); 74 73 number ntSub(number a, number b, const coeffs cf); … … 343 342 PrintS(") with\n"); 344 343 PrintS("// K: "); n_CoeffWrite(cf->extRing->cf); 345 }346 347 /* the i-th parameter */348 number ntPar(int i, const coeffs cf)349 {350 assume((1 <= i) && (i <= rVar(ntRing)));351 poly p = p_ISet(1, ntRing);352 p_SetExp(p, i, 1, ntRing);353 p_Setm(p, ntRing);354 fraction result = (fraction)omAlloc0Bin(fractionObjectBin);355 NUM(result) = p;356 DEN(result) = NULL;357 COM(result) = 0;358 return (number)result;359 344 } 360 345 … … 1072 1057 cf->cfInt = ntInt; 1073 1058 cf->cfNeg = ntNeg; 1074 cf->cfPar = ntPar;1075 1059 cf->cfAdd = ntAdd; 1076 1060 cf->cfSub = ntSub;
Note: See TracChangeset
for help on using the changeset viewer.