diff options
Diffstat (limited to 'src/algebra/matrix.spad.pamphlet')
| -rw-r--r-- | src/algebra/matrix.spad.pamphlet | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/algebra/matrix.spad.pamphlet b/src/algebra/matrix.spad.pamphlet index 595a9b6a..6aded198 100644 --- a/src/algebra/matrix.spad.pamphlet +++ b/src/algebra/matrix.spad.pamphlet @@ -222,8 +222,7 @@ RectangularMatrix(m,n,R): Exports == Implementation where mini ==> minIndex maxi ==> maxIndex - ZERO := per new(m,n,0)$Matrix(R) - 0 == ZERO + 0 == per new(m,n,0)$Matrix(R) coerce(x:$):OutputForm == rep(x)::OutputForm @@ -329,10 +328,8 @@ SquareMatrix(ndim,R): Exports == Implementation where mini ==> minIndex maxi ==> maxIndex - ZERO := scalarMatrix 0 - 0 == ZERO - ONE := scalarMatrix 1 - 1 == ONE + 0 == scalarMatrix 0 + 1 == scalarMatrix 1 characteristic == characteristic$R |