aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/multpoly.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-09-01 16:23:42 +0000
committerdos-reis <gdr@axiomatics.org>2008-09-01 16:23:42 +0000
commit00796f7b8bc97b964a01d647487214579f91775a (patch)
treea8ff76fd793331b7810dc0bbcdba472680c51697 /src/algebra/multpoly.spad.pamphlet
parent25f1c7c591229dcd84d651542e33a24fc13f837c (diff)
downloadopen-axiom-00796f7b8bc97b964a01d647487214579f91775a.tar.gz
2008-09-01 Martin Rubey <martin.rubey@univie.ac.at>
Gabriel Dos Reis <gdr@cs.tamu.edu> Fix AW/431 * algebra/ore.spad.pamphlet (SpareUnivariateSkewPolynomial): Implement **. 2008-09-01 Gabriel Dos Reis <gdr@cs.tamu.edu> Make ^ an alias for **. * interp/postpar.boot (postAtom): Replace "^" with "**". * interp/format.boot (reportOpSymbol): Announce that "^" is an alias for "**". * interp/nrungo.boot (compiledLookup): Be sure to look for "**" when operation is "^". * interp/define.boot (noteCapsuleFunctionDefinition): New. (clearCapsuleFunctionTable): Likewise. (noteExport): Likewise. (clearExportsTable): Likewise. (compDefineCapsuleFunction): Rename "^" to "**". Take a note of the capsule function being compiled. (compCapsule): Clear previous capsule functions table. (doItIf): Keep track of predicate validity. (compCategory): Clear previous exports table. (compCategoryItem): Take notes of declared attributes and signatures. * algebra/catdef.spad.pamphlet (DivisionRing): Remove duplicate definition for "^". (Group): Likewise. (Monoid): Likewise. (SemiGroup): Likewise. * algebra/poly.spad.pamphlet (PolynomialRing): Remove duplicate definitins of "^". (SparseUnivariatePolynomial): Likewise. * algebra/multpoly.spad.pamphlet (SparseMultivariatePolynomial): Remove duplicate definitions for "^". * algebra/interval.spad.pamphlet (Interval): Remove duplicate definition for "^". * algebra/curve.spad.pamphlet (FunctionFieldCategory): Remove duplicate declaration for represents. * algebra/strap/: Update cached Lisp translations. * share/algebra: Update databases.
Diffstat (limited to 'src/algebra/multpoly.spad.pamphlet')
-rw-r--r--src/algebra/multpoly.spad.pamphlet2
1 files changed, 0 insertions, 2 deletions
diff --git a/src/algebra/multpoly.spad.pamphlet b/src/algebra/multpoly.spad.pamphlet
index 864d4343..91c26a01 100644
--- a/src/algebra/multpoly.spad.pamphlet
+++ b/src/algebra/multpoly.spad.pamphlet
@@ -348,9 +348,7 @@ SparseMultivariatePolynomial(R: Ring,VarSet: OrderedSet): C == T where
up:=p1*p2.ts
if ground? up then leadingCoefficient(up) else [mvar,up]$VPoly
- p ^ kp == p ** (kp pretend NonNegativeInteger)
p ** kp == p ** (kp pretend NonNegativeInteger )
- p ^ k == p ** k
p ** k ==
p case R => p::R ** k
-- univariate special case