diff options
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 |