diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-21 02:03:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-21 02:03:15 +0000 |
| commit | 58dc9f8145468998071a2a69d3dbfb6c710eab39 (patch) | |
| tree | 55dc479b3854da39e13abd1281904e148e7f3f7e /src/algebra/oderf.spad.pamphlet | |
| parent | 8887fe1d244a40fdc3980d87e30f445249ecdf2e (diff) | |
| download | open-axiom-58dc9f8145468998071a2a69d3dbfb6c710eab39.tar.gz | |
* interp/modemap.boot (augModemapsFromDomain): Don't add modemaps
for element types of Vector or List aggregates.
* algebrar/: Adjust algebras that depended on this behaviour.
Diffstat (limited to 'src/algebra/oderf.spad.pamphlet')
| -rw-r--r-- | src/algebra/oderf.spad.pamphlet | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/oderf.spad.pamphlet b/src/algebra/oderf.spad.pamphlet index 2fb8bf0a..45decdf3 100644 --- a/src/algebra/oderf.spad.pamphlet +++ b/src/algebra/oderf.spad.pamphlet @@ -220,6 +220,7 @@ PrimitiveRatDE(F, UP, L, LQ): Exports == Implementation where indicialEquation(op:L, a:F) == indeq(monomial(1, 1) - a::UP, op) splitDenominator(op, lg) == + import RF cd := splitDenominator coefficients op f := cd.den / gcd(cd.num) l:L := 0 |