Searched refs:coefgcd (Results 1 – 5 of 5) sorted by relevance
/dports/math/reduce/Reduce-svn5758-src/packages/crack/ |
H A D | crlinalg.red | 317 begin scalar pdes,flcp,p,f,h,coefgcd,pdescp,casesub,nocasub,s,ff,q$ 327 coefgcd:=nil; 329 while pdescp and coefgcd neq 1 do << 345 coefgcd:= 346 if null coefgcd then mk!*sq caar h 347 else err_catch_gcd(mk!*sq caar h,coefgcd); 351 if coefgcd neq 1 then << 352 if pairp coefgcd and car coefgcd='!*sq then 354 h:=simplifySQ(cadr coefgcd,get(p,'fcts),t,nil,nil) 357 if h neq {(1 . 1)} then casesub:=cons((coefgcd . f),casesub) [all …]
|
/dports/math/reduce/Reduce-svn5758-src/packages/alg/ |
H A D | logsort.red | 93 % g := coefgcd(c := lc y,0); a := quotf(c,g); 101 a2: b := coefgcd(a := lc r,0); a := quotf!-fail(a,b); 102 d := coefgcd(c := lc y,0); c := quotf!-fail(c,d); 133 symbolic procedure coefgcd(u,g); 134 if domainp u then gcdf(u,g) else coefgcd(lc u,coefgcd(red u,g));
|
/dports/math/singular/Singular-Release-4-2-1/kernel/GBEngine/ |
H A D | syz2.cc | 228 number coefgcd = in syCreateNewPairs_Hilb() 232 pSetCoeff0(tt,nDiv(pGetCoeff(tso.p1),coefgcd)); in syCreateNewPairs_Hilb() 235 coefgcd = nInpNeg(coefgcd); in syCreateNewPairs_Hilb() 238 pSetCoeff0(tt,nDiv(pGetCoeff(tso.p2),coefgcd)); in syCreateNewPairs_Hilb() 242 nDelete(&coefgcd); in syCreateNewPairs_Hilb()
|
H A D | syz3.cc | 737 number coefgcd = n_Gcd(pGetCoeff(tso.p1),pGetCoeff(tso.p2),currRing->cf); in redOnePair() local 743 pSetCoeff(tt,nDiv(pGetCoeff(tso.p1),coefgcd)); in redOnePair() 746 coefgcd = nInpNeg(coefgcd); in redOnePair() 752 pSetCoeff(tt,nDiv(pGetCoeff(tso.p2),coefgcd)); in redOnePair() 764 nDelete(&coefgcd); in redOnePair() 1260 number coefgcd = n_Gcd(pGetCoeff(tso.p1),pGetCoeff(tso.p2),currRing->cf); in redOnePairHIndex() local 1266 pSetCoeff(tt,nDiv(pGetCoeff(tso.p1),coefgcd)); in redOnePairHIndex() 1269 coefgcd = nInpNeg(coefgcd); in redOnePairHIndex() 1275 pSetCoeff(tt,nDiv(pGetCoeff(tso.p2),coefgcd)); in redOnePairHIndex() 1279 nDelete(&coefgcd); in redOnePairHIndex()
|
H A D | syz1.cc | 777 number coefgcd; in syRedNextPairs() local 800 coefgcd = in syRedNextPairs() 804 pSetCoeff(p,nDiv(pGetCoeff(tso.p1),coefgcd)); in syRedNextPairs() 812 pSetCoeff(p,nDiv(pGetCoeff(tso.p2),coefgcd)); in syRedNextPairs() 813 nDelete(&coefgcd); in syRedNextPairs()
|