diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-11 22:35:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-11 22:35:18 +0000 |
| commit | 8df117c9281b3f929e55431262d42a2da9ce0ab9 (patch) | |
| tree | 89e249e6c9154ad6b7b2fbc515f49d76e42196e1 /src/algebra/matrix.spad.pamphlet | |
| parent | 9df910dc2e9a9a1eaf7a0e8d726a2181b1e31862 (diff) | |
| download | open-axiom-8df117c9281b3f929e55431262d42a2da9ce0ab9.tar.gz | |
Remove IndexedTwoDimensionalArray.
Diffstat (limited to 'src/algebra/matrix.spad.pamphlet')
| -rw-r--r-- | src/algebra/matrix.spad.pamphlet | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/algebra/matrix.spad.pamphlet b/src/algebra/matrix.spad.pamphlet index 8d9242e5..1f0abdaf 100644 --- a/src/algebra/matrix.spad.pamphlet +++ b/src/algebra/matrix.spad.pamphlet @@ -30,8 +30,6 @@ Matrix(R): Exports == Implementation where R : Ring Row ==> Vector R Col ==> Vector R - mnRow ==> 1 - mnCol ==> 1 MATLIN ==> MatrixLinearAlgebraFunctions(R,Row,Col,$) MATSTOR ==> StorageEfficientMatrixOperations(R) @@ -60,7 +58,7 @@ Matrix(R): Exports == Implementation where -- ++ vector of vectors Implementation ==> - InnerIndexedTwoDimensionalArray(R,mnRow,mnCol,Row,Col) add + InnerIndexedTwoDimensionalArray(R,Row,Col) add minr ==> minRowIndex maxr ==> maxRowIndex minc ==> minColIndex @@ -68,8 +66,8 @@ Matrix(R): Exports == Implementation where mini ==> minIndex maxi ==> maxIndex - minRowIndex x == mnRow - minColIndex x == mnCol + minRowIndex x == 1 + minColIndex x == 1 swapRows!(x,i1,i2) == (i1 < minRowIndex(x)) or (i1 > maxRowIndex(x)) or _ |