Home
last modified time | relevance | path

Searched refs:coefgcd (Results 1 – 5 of 5) sorted by relevance

/dports/math/reduce/Reduce-svn5758-src/packages/crack/
H A Dcrlinalg.red317 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 Dlogsort.red93 % 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 Dsyz2.cc228 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 Dsyz3.cc737 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 Dsyz1.cc777 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()