diff options
Diffstat (limited to 'src/algebra/naalg.spad.pamphlet')
| -rw-r--r-- | src/algebra/naalg.spad.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/naalg.spad.pamphlet b/src/algebra/naalg.spad.pamphlet index 9937d9aa..52a2e17b 100644 --- a/src/algebra/naalg.spad.pamphlet +++ b/src/algebra/naalg.spad.pamphlet @@ -76,7 +76,7 @@ AlgebraGivenByStructuralConstants(R:Field, n : PositiveInteger,_ m : NonNegativeInteger := (maxIndex b) :: NonNegativeInteger transitionMatrix : Matrix R := new(n,m,0$R)$Matrix(R) for i in 1..m repeat - setColumn_!(transitionMatrix,i,coordinates(b.i)) + setColumn!(transitionMatrix,i,coordinates(b.i)) res : REC := solve(transitionMatrix,coordinates(x))$LSMP if (not every?(zero?$R,first res.basis)) then error("coordinates: warning your 'basis' is linearly dependent") @@ -467,7 +467,7 @@ StructuralConstantsPackage(R:Field): public == private where n : NonNegativeInteger := nrows(b.1) * ncols(b.1) transitionMatrix : Matrix R := new(n,m,0$R)$Matrix(R) for i in 1..m repeat - setColumn_!(transitionMatrix,i,matrix2Vector(b.i)) + setColumn!(transitionMatrix,i,matrix2Vector(b.i)) res : REC := solve(transitionMatrix,matrix2Vector(x))$LSMP if (not every?(zero?$R,first res.basis)) then error("coordinates: the second argument is linearly dependent") @@ -504,7 +504,7 @@ agree with number of generators" totalDegree(p,ls) > 1 => error "structuralConstants: entries of second argument _ must be linear polynomials in the generators" - if (c := coefficient(p, s, 1) ) ~= 0 then qsetelt_!(mat,i,j,c) + if (c := coefficient(p, s, 1) ) ~= 0 then qsetelt!(mat,i,j,c) gamma := cons(mat, gamma) lscopy := rest lscopy vector reverse gamma @@ -530,7 +530,7 @@ must be (linear) polynomials in the generators" totalDegree(p,ls) > 1 => error "structuralConstants: entries of second argument _ must be linear polynomials in the generators" - if (c := coefficient(p, s, 1) ) ~= 0 then qsetelt_!(mat,i,j,c/q) + if (c := coefficient(p, s, 1) ) ~= 0 then qsetelt!(mat,i,j,c/q) gamma := cons(mat, gamma) lscopy := rest lscopy vector reverse gamma |