diff options
Diffstat (limited to 'src/algebra/ffnb.spad.pamphlet')
-rw-r--r-- | src/algebra/ffnb.spad.pamphlet | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/ffnb.spad.pamphlet b/src/algebra/ffnb.spad.pamphlet index d37fe749..758e4d9a 100644 --- a/src/algebra/ffnb.spad.pamphlet +++ b/src/algebra/ffnb.spad.pamphlet @@ -346,7 +346,7 @@ InnerNormalBasisFieldFunctions(GF): Exports == Implementation where dy:=#y for j in 1..dy repeat for k in 0..((dx quo dy)-1) repeat - qsetelt_!(m,j+k*dy,i,y.j)$(M GF) + qsetelt!(m,j+k*dy,i,y.j)$(M GF) y:=y *$$ x v:=first nullSpace(m)$(M GF) pol(v)$$ @@ -355,13 +355,13 @@ InnerNormalBasisFieldFunctions(GF): Exports == Implementation where bas:(V VGF):=new(n,zero(n)$VGF)$(V VGF) for i in 1..n repeat uniti:=zero(n)$VGF - qsetelt_!(uniti,i,1$GF)$VGF - qsetelt_!(bas,i,uniti)$(V VGF) + qsetelt!(uniti,i,1$GF)$VGF + qsetelt!(bas,i,uniti)$(V VGF) bas normalElement(n) == v:=zero(n)$VGF - qsetelt_!(v,1,1$GF) + qsetelt!(v,1,1$GF) v -- normalElement(n) == index(n,1)$$ @@ -627,9 +627,9 @@ FiniteFieldNormalBasisExtensionByPolynomial(GF,uni): Exports == _ tbl:TBL:=table()$TBL a:$:=1 for i in (0::NNI)..(n-1)::NNI repeat - insert_!([lookup(a),i::NNI]$R,tbl)$TBL + insert!([lookup(a),i::NNI]$R,tbl)$TBL a:=a*base - insert_!([fac::PI,copy(tbl)$TBL]_ + insert!([fac::PI,copy(tbl)$TBL]_ $Record(key:PI,entry:TBL),discLogTable)$Table(PI,TBL) initlog?:=false -- tell user about initialization |