diff options
Diffstat (limited to 'src/algebra/fff.spad.pamphlet')
| -rw-r--r-- | src/algebra/fff.spad.pamphlet | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/fff.spad.pamphlet b/src/algebra/fff.spad.pamphlet index 858b9505..0cfca8d4 100644 --- a/src/algebra/fff.spad.pamphlet +++ b/src/algebra/fff.spad.pamphlet @@ -145,18 +145,18 @@ FiniteFieldFunctions(GF): Exports == Implementation where lvj:M I:=zero(k::NNI,n) for v in 1..k repeat for j in 1..n repeat - if (j^=jt) or (v^=vt) then + if (j~=jt) or (v~=vt) then help:PF(p1):=t**(v-1)*pkn**(j-1)+1@PF(p1) setelt(lvj,v,j,vec.(help pretend I +1)) for j in 1..n repeat - if j^=jt then + if j~=jt then for v in 1..k repeat lvjh:=elt(lvj,v,j) setelt(multmat,j,lvjh,elt(multmat,j,lvjh)+1) for i in 1..n repeat setelt(multmat,jt,i,positiveRemainder(-k,p)::PF(p)) for v in 1..k repeat - if v^=vt then + if v~=vt then lvjh:=elt(lvj,v,jt) setelt(multmat,jt,lvjh,elt(multmat,jt,lvjh)+1) -- multmat @@ -166,7 +166,7 @@ FiniteFieldFunctions(GF): Exports == Implementation where l:L TERM:=nil()$(L TERM) v:V PF(p):=row(multmat,i) for j in (1::I)..(m::I) repeat - if (v.j ^= 0) then + if (v.j ~= 0) then -- take -v.j to get trace 1 instead of -1 term:TERM:=[(convert(-v.j)@I)::GF,(j-2) pretend SI]$TERM l:=cons(term,l)$(L TERM) @@ -203,7 +203,7 @@ FiniteFieldFunctions(GF): Exports == Implementation where setColumn_!(mat,2,Vectorise(h)$MM)$(M GF) for i in 2..m1 repeat g:=0$MM - while h ^= 0 repeat + while h ~= 0 repeat g:=g + leadingCoefficient(h) * qpow.degree(h)$MM h:=reductum(h)$MM qexp.i:=g @@ -219,7 +219,7 @@ FiniteFieldFunctions(GF): Exports == Implementation where l:L TERM:=nil()$(L TERM) v:V GF:=mat *$(M GF) Vectorise(qexp.(i-1) *$MM qexp.0)$MM for j in (1::SI)..(m::SI) repeat - if (v.j ^= 0$GF) then + if (v.j ~= 0$GF) then term:TERM:=[(v.j),j-(2::SI)]$TERM l:=cons(term,l)$(L TERM) qsetelt_!(multtable,i,copy l)$(V L TERM) |