diff options
Diffstat (limited to 'src/algebra/sum.spad.pamphlet')
| -rw-r--r-- | src/algebra/sum.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/sum.spad.pamphlet b/src/algebra/sum.spad.pamphlet index 0a4cd212..478a5e94 100644 --- a/src/algebra/sum.spad.pamphlet +++ b/src/algebra/sum.spad.pamphlet @@ -196,7 +196,7 @@ GosperSummationMethod(E, V, R, P, Q): Exports == Impl where dmz := degree mz mz := reductum mz dmz = 0 => vec(dz + minIndex vec) := -cmz - qsetelt_!(mat, dz + minRowIndex mat, + qsetelt!(mat, dz + minRowIndex mat, dmz + minColIndex(mat) - 1, cmz) (soln := particularSolution(mat, vec)) case "failed" => "failed" vec := soln::Vector RQ |