diff options
Diffstat (limited to 'src/algebra/mlift.spad.jhd.pamphlet')
| -rw-r--r-- | src/algebra/mlift.spad.jhd.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/mlift.spad.jhd.pamphlet b/src/algebra/mlift.spad.jhd.pamphlet index 637d1b32..ea1a70ed 100644 --- a/src/algebra/mlift.spad.jhd.pamphlet +++ b/src/algebra/mlift.spad.jhd.pamphlet @@ -82,7 +82,7 @@ MultivariateLifting(E,OV,R,P) : C == T flcoef:=corrPoly(um,lvar,fval.rest,ld.rest,listpolv,table,pmod) if flcoef case "failed" then return "failed" else lcoef:=flcoef :: L SUP - listcong:=[*/[flist.i for i in 1..np | i^=l] for l in 1..np] + listcong:=[*/[flist.i for i in 1..np | i~=l] for l in 1..np] polc:SUP:= (monomial(1,y,1) - a)::SUP pol := 1$SUP diff:=m- +/[lcoef.i*listcong.i for i in 1..np] @@ -156,13 +156,13 @@ MultivariateLifting(E,OV,R,P) : C == T else lalpha:=flalpha :: L SUP plist:=[term-alpha*pol for term in plist for alpha in lalpha] for term in plist repeat degj:=degj-maxDegree(term,x) - degj ^= 0 => return "failed" + degj ~= 0 => return "failed" plist --There are not extraneous factors maxDegree(um:SUP,x:OV):NonNegativeInteger == ans:NonNegativeInteger:=0 - while um ^= 0 repeat + while um ~= 0 repeat ans:=max(ans,degree(leadingCoefficient um,x)) um:=reductum um ans @@ -220,7 +220,7 @@ MultivariateLifting(E,OV,R,P) : C == T new:=monomial(leadingCoefficient um,dm) for k in dm-1..0 by -1 repeat i:NNI:=k::NNI - empty?(lterm) or lterm.first.expt^=i => + empty?(lterm) or lterm.first.expt~=i => new:=new+monomial(coefficient(um,i),i) new:=new+monomial(lterm.first.pcoef,i) lterm:=lterm.rest |