sum-an was summing one too many terms.
authorRaymond Toy <toy.raymond@gmail.com>
Tue, 17 Apr 2012 16:32:27 +0000 (09:32 -0700)
committerRaymond Toy <toy.raymond@gmail.com>
Tue, 17 Apr 2012 16:32:27 +0000 (09:32 -0700)
qd-bessel.lisp

index 37a4c8e..bf3ca04 100644 (file)
                   (an n k v)))
          (sum term (+ sum term)))
         ((or (<= (abs term) (* eps (abs sum)))
-             (> k big-n))
+             (>= k big-n))
          sum))))
 
 ;; SUM-AB computes the series