diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-12 01:11:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-12 01:11:00 +0000 |
| commit | 4965e7c63ebe71d2b15fcf737dad9f67c494f6aa (patch) | |
| tree | 892d02b1fd1def685da50ff21b3cc36e0fdab800 /src/algebra/matrix.spad.pamphlet | |
| parent | 855b1bf7b9e3fb6bab70968782c03edaf02449c6 (diff) | |
| download | open-axiom-4965e7c63ebe71d2b15fcf737dad9f67c494f6aa.tar.gz | |
* algebra/matrix.spad.pamphlet (RectangularMatrix) [ZERO]: Remove.
(SquareMatrix) [ZERO, ONE]: Likewise.
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 |