Changeset e6a3f286122ea99d65a6448c3c41d0bdc411b2d7

Timestamp:

04/17/12 09:32:27 (13 months ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

de65a54b545af76b6df16f3de36e54763ce97235

Parents:

64c424b7f41413424bbab93d4f5dd4f8461b784d

git-committer:

Raymond Toy <toy.raymond@…> (04/17/12 09:32:27)

Message:

sum-an was summing one too many terms.

Files:

• qd-bessel.lisp (modified) (1 diff)

qd-bessel.lisp

@@ -351 +351 @@
           (sum term (+ sum term)))
          ((or (<= (abs term) (* eps (abs sum)))
-              (> k big-n))
+              (>= k big-n))
           sum))))