diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-09 16:40:30 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-09 16:40:30 +0000 |
commit | 4233705a72aa0f223e5567ba21ea7e0aaaa49280 (patch) | |
tree | 2a875936a349bab87bf40a7e1d0f317c1b03872b /src/algebra | |
parent | 78a10a3795011b28c3f143512a9b935edbb4e9c9 (diff) | |
download | open-axiom-4233705a72aa0f223e5567ba21ea7e0aaaa49280.tar.gz |
* algebra/indexedp.spad.pamphlet (IndexedDirectProductObject)
[combineWithIf]: New.
Diffstat (limited to 'src/algebra')
-rw-r--r-- | src/algebra/indexedp.spad.pamphlet | 39 |
1 files changed, 38 insertions, 1 deletions
diff --git a/src/algebra/indexedp.spad.pamphlet b/src/algebra/indexedp.spad.pamphlet index bbb78cd0..c296f271 100644 --- a/src/algebra/indexedp.spad.pamphlet +++ b/src/algebra/indexedp.spad.pamphlet @@ -93,7 +93,12 @@ IndexedProductTerm(A,S): Public == Private where IndexedDirectProductObject(A,S): Public == Private where A: BasicType S: OrderedType - Public == IndexedDirectProductCategory(A,S) + Public == IndexedDirectProductCategory(A,S) with + combineWithIf: (%,%, (A,A) -> A, (A,A) -> Boolean) -> % + ++ \spad{combineWithIf(u,v,f,p)} returns the result of combining + ++ index-wise, coefficients of \spad{u} and \spad{u} if when + ++ satisfy the predicate \spad{p}. Those pairs of coefficients + ++ which fail\spad{p} are implicitly ignored. Private == List IndexedProductTerm(A,S) add if A has CoercibleTo OutputForm and S has CoercibleTo OutputForm then coerce(x:%):OutputForm == @@ -113,6 +118,38 @@ IndexedDirectProductObject(A,S): Public == Private where index first rep x terms x == rep x convert l == per l + combineWithIf(u, v, f, p) == + x := rep u + y := rep v + empty? x => v + empty? y => u + z: Rep := nil + prev: Rep := nil + while not empty? x and not empty? y repeat + xt := first x + yt := first y + index xt > index yt => + t := [xt] + if empty? z then z := t + else setrest!(prev,t) + prev := t + x := rest x + index xt < index yt => + t := [yt] + if empty? z then z := t + else setrest!(prev,t) + prev := t + y := rest y + not p(coefficient xt, coefficient yt) => iterate + t := [term(index xt, f(coefficient xt, coefficient yt))] + if empty? z then z := t + else setrest!(prev,t) + prev := t + x := rest x + y := rest y + if empty? x then setrest!(prev,y) + else if empty? y then setrest!(prev,x) + per z @ \section{domain IDPAM IndexedDirectProductAbelianMonoid} |