diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-20 20:05:35 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-20 20:05:35 +0000 |
commit | 003d8009ff08ef11901956ac887422cea0cc4b55 (patch) | |
tree | 490f1f62576c12798021f11af19bea21f8cc579a /src/algebra/wtpol.spad.pamphlet | |
parent | 87f397a2fabcf265efb39d1be4c2b87633579e19 (diff) | |
download | open-axiom-003d8009ff08ef11901956ac887422cea0cc4b55.tar.gz |
* algebra/wtpol.spad.pamphlet (WeightedPolynomials): No
HomotopicTo P.
(OrdinaryWeightedPolynomials): Likewise.
* algebra/modmonom.spad.pamphlet (ModuleMonomial): Now
HomotopicTo MM.
* algebra/matrix.spad.pamphlet (coerce$RectangularMatrix): Remove
redundant signature.
* algebra/lodop.spad.pamphlet (OrdinaryDifferentialRing): Now
HomotopicTo HomotopicTo R.
* algebra/alql.spad.pamphlet (DataList): Now HomotopicTo List S.
* algebra/array1.spad.pamphlet (Tuple): Now HomotopicTo
PrimitiveArray S.
* algebra/kl.spad.pamphlet (CachableSet): Now HomotopicTo S.
* algebra/java.spad.pamphlet (JavaBytecode): Now HomotopicTo Byte.
* algebra/fname.spad.pamphlet (FileNameCategory): Extends
HomotopicTo String.
* algebra/data.spad.pamphlet (Byte): Now HomotopicTo Character.
Diffstat (limited to 'src/algebra/wtpol.spad.pamphlet')
-rw-r--r-- | src/algebra/wtpol.spad.pamphlet | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/src/algebra/wtpol.spad.pamphlet b/src/algebra/wtpol.spad.pamphlet index 12129139..bd7f9805 100644 --- a/src/algebra/wtpol.spad.pamphlet +++ b/src/algebra/wtpol.spad.pamphlet @@ -40,15 +40,11 @@ WeightedPolynomials(R:Ring,VarSet: OrderedSet, E:OrderedAbelianMonoidSup, P:PolynomialCategory(R,E,VarSet), vl:List VarSet, wl:List NonNegativeInteger, wtlevel:NonNegativeInteger): - Ring with + Join(Ring, HomotopicTo P) with if R has CommutativeRing then Algebra(R) - coerce: $ -> P - ++ convert back into a "P", ignoring weights if R has Field then "/": ($,$) -> Union($,"failed") ++ x/y division (only works if minimum weight ++ of divisor is zero, and if R is a Field) - coerce: P -> $ - ++ coerce(p) coerces p into Weighted form, applying weights and ignoring terms changeWeightLevel: NonNegativeInteger -> Void ++ changeWeightLevel(n) changes the weight level to the new value given: ++ NB: previously calculated terms are not affected @@ -153,13 +149,8 @@ import NonNegativeInteger OrdinaryWeightedPolynomials(R:Ring, vl:List Symbol, wl:List NonNegativeInteger, wtlevel:NonNegativeInteger): - Ring with + Join(Ring, HomotopicTo Polynomial R) with if R has CommutativeRing then Algebra(R) - coerce: $ -> Polynomial(R) - ++ coerce(p) converts back into a Polynomial(R), ignoring weights - coerce: Polynomial(R) -> $ - ++ coerce(p) coerces a Polynomial(R) into Weighted form, - ++ applying weights and ignoring terms if R has Field then "/": ($,$) -> Union($,"failed") ++ x/y division (only works if minimum weight ++ of divisor is zero, and if R is a Field) |