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/suts.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/suts.spad.pamphlet')
| -rw-r--r-- | src/algebra/suts.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/suts.spad.pamphlet b/src/algebra/suts.spad.pamphlet index ecd46bad..8037b166 100644 --- a/src/algebra/suts.spad.pamphlet +++ b/src/algebra/suts.spad.pamphlet @@ -144,7 +144,7 @@ SparseUnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where -- if terms up to order n have not been computed, -- apply lazy evaluation nn := n :: COM - while (nx := elt refer) < nn repeat lazyEvaluate x + while (nx := deref refer) < nn repeat lazyEvaluate x -- must have nx >= n explicitEntries? x => xCoef := getCoef(xTerm := frst x); xExpon := getExpon xTerm @@ -163,8 +163,8 @@ SparseUnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where iSeries(st,n,refer) == delay -- when this function is called, we are creating the nth order -- term of a series - empty? st => (setelt(refer,plusInfinity()); empty()) - setelt(refer,n :: COM) + empty? st => (setref(refer,plusInfinity()); empty()) + setref(refer,n :: COM) zero? (coef := frst st) => iSeries(rst st,n + 1,refer) concat(makeTerm(n,coef),iSeries(rst st,n + 1,refer)) |