Changeset 1e8006 in git for libpolys/polys/ext_fields/transext.cc
 Timestamp:
 Sep 3, 2013, 5:34:18 PM (10 years ago)
 Branches:
 (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
 Children:
 fde4e42d36b6b8f24447bcbe2975e9d91dd95f13
 Parents:
 a57b655308776d26d2a30d610451d0b7955cf233
 gitauthor:
 Janko Boehm <boehm@mathematik.unikl.de>20130903 17:34:18+02:00
 gitcommitter:
 Janko Boehm <boehm@mathematik.unikl.de>20130903 19:36:12+02:00
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

libpolys/polys/ext_fields/transext.cc
ra57b65 r1e8006 768 768 769 769 fraction fa = (fraction)a; 770 771 poly g = p_Copy(NUM(fa), ntRing);772 poly f = p_Copy(DEN(fa), ntRing);773 poly dg =p_Diff(g,k,ntRing);774 770 if (DENIS1(fa)) { 775 771 776 772 fraction result = (fraction)omAlloc0Bin(fractionObjectBin); 777 NUM(result) = dg;773 NUM(result) = p_Diff(NUM(fa),k,ntRing); 778 774 DEN(result) = NULL; 779 775 COM(result) = COM(fa); … … 781 777 } 782 778 783 poly df =p_Diff(f,k,ntRing);784 779 fraction result = (fraction)omAlloc0Bin(fractionObjectBin); 785 poly fg = p_Mult_q(p_Copy(f,ntRing),dg,ntRing); 786 poly gf = p_Neg(p_Mult_q(g,df,ntRing),ntRing); 787 NUM(result) = p_Add_q(fg,gf,ntRing); 788 DEN(result) = p_Mult_q(p_Copy(f,ntRing), f, ntRing); 780 poly fg = p_Mult_q(p_Copy(DEN(fa),ntRing),p_Diff(NUM(fa),k,ntRing),ntRing); 781 poly gf = p_Mult_q(p_Copy(NUM(fa),ntRing),p_Diff(DEN(fa),k,ntRing),ntRing); 782 NUM(result) = p_Sub(fg,gf,ntRing); 783 if (NUM(result)==NULL) return(NULL); 784 DEN(result) = pp_Mult_qq(DEN(fa), DEN(fa), ntRing); 789 785 COM(result) = COM(fa) + COM(fa) + DIFF_COMPLEXITY; 790 if (NUM(result)==NULL) return(NULL);791 786 heuristicGcdCancellation((number)result, cf); 792 787
Note: See TracChangeset
for help on using the changeset viewer.