Changeset e6a3f286122ea99d65a6448c3c41d0bdc411b2d7

Show
Ignore:
Timestamp:
04/17/12 09:32:27 (2 years 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:
1 modified

Legend:

Unmodified
Added
Removed
  • qd-bessel.lisp

    r64c424 re6a3f2  
    351351          (sum term (+ sum term))) 
    352352         ((or (<= (abs term) (* eps (abs sum))) 
    353               (> k big-n)) 
     353              (>= k big-n)) 
    354354          sum)))) 
    355355