diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-25 23:56:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-25 23:56:07 +0000 |
| commit | 0e0de56cc9aae9694b31e3d31407590295d69fd3 (patch) | |
| tree | e64614192c9a8a1b38774d6eea372110c91cd7a3 /src/algebra | |
| parent | 2f29c4b8dd326e773597dee1606d297711bcba57 (diff) | |
| download | open-axiom-0e0de56cc9aae9694b31e3d31407590295d69fd3.tar.gz | |
* algebra/cycles.spad.pamphlet (CycleIndicators) [spol]: Rename
from nniBump. Fix thinko.
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/cycles.spad.pamphlet | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/algebra/cycles.spad.pamphlet b/src/algebra/cycles.spad.pamphlet index c25d4443..7b1b7c0d 100644 --- a/src/algebra/cycles.spad.pamphlet +++ b/src/algebra/cycles.spad.pamphlet @@ -196,15 +196,14 @@ CycleIndicators: Exports == Implementation where wreath(spol1,spol2) == evspol(mtpol(#1,spol2),spol1) - nniBump(x: Integer): NNI == + spol(x: Integer): SPOL RN == x < 0 => 0 x = 0 => 1 - x::NNI + complete(x::NNI) SFunction li== a:Matrix SPOL RN := - matrix [[complete nniBump(k -j+i) for k in li for j in 1..#li] - for i in 1..#li] + matrix [[spol(k -j+i) for k in li for j in 1..#li] for i in 1..#li] determinant a roundup:(L I,L I)-> L I @@ -216,7 +215,7 @@ CycleIndicators: Exports == Implementation where #li1 < #li2 => error "skewSFunction: partition1 does not include partition2" li2:=roundup (li1,li2) - a:Matrix SPOL RN:=matrix [[complete nniBump(k-li2.i-j+i) + a:Matrix SPOL RN:=matrix [[spol(k-li2.i-j+i) for k in li1 for j in 1..#li1] for i in 1..#li1] determinant a |