diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-12 16:22:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-12 16:22:50 +0000 |
commit | a5396a491b1b308b622db3e12da734e6fb1fdb53 (patch) | |
tree | cab6fb51f6da78e515bba628b569a4920fff65f0 /src/algebra/algext.spad.pamphlet | |
parent | b630bc7d49b335b41b50293952ffc64b65718a7b (diff) | |
download | open-axiom-a5396a491b1b308b622db3e12da734e6fb1fdb53.tar.gz |
* algebra/boolean.spad.pamphlet (Reference) [elt]: Remove.
[setelt]: Likewise.
* algebra/lodof.spad.pamphlet: Adjust use.
* algebra/float.spad.pamphlet: Likewise.
* algebra/divisor.spad.pamphlet: Likewise.
* algebra/curve.spad.pamphlet: Likewise.
* algebra/card.spad.pamphlet: Likewise.
* algebra/algext.spad.pamphlet: Likewise.
* algebra/op.spad.pamphlet: Likewise.
* algebra/suls.spad.pamphlet: Likewise.
* algebra/sups.spad.pamphlet: Likewise.
* algebra/supxs.spad.pamphlet: Likewise.
* algebra/suts.spad.pamphlet: Likewise.
* algebra/symbol.spad.pamphlet: Likewise.
* algebra/view3D.spad.pamphlet: Likewise.
* algebra/viewDef.spad.pamphlet: Likewise.
Diffstat (limited to 'src/algebra/algext.spad.pamphlet')
-rw-r--r-- | src/algebra/algext.spad.pamphlet | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/algext.spad.pamphlet b/src/algebra/algext.spad.pamphlet index b5e2d470..ddd0a29b 100644 --- a/src/algebra/algext.spad.pamphlet +++ b/src/algebra/algext.spad.pamphlet @@ -118,19 +118,19 @@ SimpleAlgebraicExtension(R:CommutativeRing, map(lift, v)$VectorFunctions2($, UP)) discriminant() == - if nodisc?() then mkDisc false - disc() + if deref nodisc? then mkDisc false + deref disc mkDisc b == - nodisc?() := b - disc() := discriminant M + setref(nodisc?,b) + setref(disc,discriminant M) traceMatrix() == - if nodiscmat?() then mkDiscMat false + if deref nodiscmat? then mkDiscMat false discmat mkDiscMat b == - nodiscmat?() := b + setref(nodiscmat?,b) mr := minRowIndex discmat; mc := minColIndex discmat for i in 0..d1 repeat for j in 0..d1 repeat |