Commit e6a3f286122ea99d65a6448c3c41d0bdc411b2d7

Authored by Raymond Toy
1 parent 64c424b7

sum-an was summing one too many terms.

Showing 1 changed file with 1 additions and 1 deletions
qd-bessel.lisp
... ... @@ -350,7 +350,7 @@
350 350 (an n k v)))
351 351 (sum term (+ sum term)))
352 352 ((or (<= (abs term) (* eps (abs sum)))
353   - (> k big-n))
  353 + (>= k big-n))
354 354 sum))))
355 355  
356 356 ;; SUM-AB computes the series
... ...