aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/riccati.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/riccati.spad.pamphlet')
-rw-r--r--src/algebra/riccati.spad.pamphlet3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/riccati.spad.pamphlet b/src/algebra/riccati.spad.pamphlet
index 0f411bdf..43a3c5f1 100644
--- a/src/algebra/riccati.spad.pamphlet
+++ b/src/algebra/riccati.spad.pamphlet
@@ -149,8 +149,7 @@ PrimitiveRatRicDE(F, UP, L, LQ): Exports == Implementation where
sort_!(#1.deg > #2.deg, ans)
getPol(rec, c, l, ind) ==
--- one?(rec.deg) => getPol1(ind, c, l)
- (rec.deg = 1) => getPol1(ind, c, l)
+ one?(rec.deg) => getPol1(ind, c, l)
+/[monomial(tau0(c, coefficient(l, i::N)), i::N)$UP2 for i in ind]
getPol1(ind, c, l) ==