diff options
Diffstat (limited to 'src/algebra/updecomp.spad.pamphlet')
| -rw-r--r-- | src/algebra/updecomp.spad.pamphlet | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/algebra/updecomp.spad.pamphlet b/src/algebra/updecomp.spad.pamphlet index fba1182a..cf0c85b3 100644 --- a/src/algebra/updecomp.spad.pamphlet +++ b/src/algebra/updecomp.spad.pamphlet @@ -86,10 +86,8 @@ UnivariatePolynomialDecompositionPackage(R,UP): Exports == Implementation where s := subtractIfCan(dq,1)::N lcp := leadingCoefficient p q: UP := monomial(lcq,dq) - k: N for k in 1..s repeat c: R := 0 - i: N for i in 0..subtractIfCan(k,1)::N repeat c := c+(k::R-(n::R+1)*(i::R))* coefficient(q,subtractIfCan(dq,i)::N)* |