aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/npcoef.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-04-03 04:23:42 +0000
committerdos-reis <gdr@axiomatics.org>2008-04-03 04:23:42 +0000
commit001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532 (patch)
treeda9e2fe5d81ff4cd7709d12e44b8c3e348b8a8e3 /src/algebra/npcoef.spad.pamphlet
parenta7bab9a6c2070d05e2dbd256ce455079c8ced385 (diff)
downloadopen-axiom-001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532.tar.gz
Replace `^=' with `~='.
Diffstat (limited to 'src/algebra/npcoef.spad.pamphlet')
-rw-r--r--src/algebra/npcoef.spad.pamphlet6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/npcoef.spad.pamphlet b/src/algebra/npcoef.spad.pamphlet
index ef842223..c89d9382 100644
--- a/src/algebra/npcoef.spad.pamphlet
+++ b/src/algebra/npcoef.spad.pamphlet
@@ -63,7 +63,7 @@ NPCoef(BP,E,OV,R,P) : C == T where
changed:Boolean:=true
ltochange:List(NNI):=empty()
ltodel:List(NNI):=empty()
- while changed and ndet^=1 repeat
+ while changed and ndet~=1 repeat
changed :=false
dt:=#tablecoef
for i in 1..dt while ^changed repeat
@@ -104,7 +104,7 @@ NPCoef(BP,E,OV,R,P) : C == T where
#termlist=1 =>
vterm:=termlist.first
for elterm in vterm while doit<2 repeat
- (cu1:=elterm.pcoef)^=0 => cfu:=cu1*cfu
+ (cu1:=elterm.pcoef)~=0 => cfu:=cu1*cfu
doit:=doit+1
poselt:=position(elterm,vterm):NNI
doit=2 or (pp:=tterm.coefu exquo cfu) case "failed" => "failed"
@@ -148,7 +148,7 @@ NPCoef(BP,E,OV,R,P) : C == T where
for celt in ctdet repeat
if celt.cfpos.expt=cfexp then
celt.cfpos.pcoef:=cfcoef
- if (and/[cc.pcoef ^=0 for cc in celt]) then
+ if (and/[cc.pcoef ~=0 for cc in celt]) then
k:=position(celt,ctdet):NNI
lterase:=cons(k,lterase)
cterm.coefu:=(cterm.coefu - */[cc.pcoef for cc in celt])