diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-03 04:23:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-03 04:23:42 +0000 |
| commit | 001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532 (patch) | |
| tree | da9e2fe5d81ff4cd7709d12e44b8c3e348b8a8e3 /src/algebra/mlift.spad.pamphlet | |
| parent | a7bab9a6c2070d05e2dbd256ce455079c8ced385 (diff) | |
| download | open-axiom-001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532.tar.gz | |
Replace `^=' with `~='.
Diffstat (limited to 'src/algebra/mlift.spad.pamphlet')
| -rw-r--r-- | src/algebra/mlift.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/mlift.spad.pamphlet b/src/algebra/mlift.spad.pamphlet index 4ec8d14c..8ccdf72a 100644 --- a/src/algebra/mlift.spad.pamphlet +++ b/src/algebra/mlift.spad.pamphlet @@ -85,7 +85,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] @@ -167,7 +167,7 @@ MultivariateLifting(E,OV,R,P) : C == T 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 @@ -225,7 +225,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 |