Commit 8c5195a87137fd61952a175a5dae676c70b480ef

Authored by Raymond Toy
1 parent 78801d63

Make big-n a defvar so we can change it easily.

Showing 1 changed file with 2 additions and 1 deletions
qd-bessel.lisp
... ... @@ -410,6 +410,7 @@
410 410 ;; bessel_i(v,z) = exp(-v*%pi*%i/2)*bessel_j(v, %i*z)
411 411 ;; when Im(z) >> Re(z)
412 412 ;;
  413 +(defvar *big-n* 100)
413 414 (defun bessel-j (v z)
414 415 (let ((vv (ftruncate v)))
415 416 ;; Clear the caches for now.
... ... @@ -420,7 +421,7 @@
420 421 (integer-bessel-j-exp-arc v z))
421 422 (t
422 423 ;; Need to fine-tune the value of big-n.
423   - (let ((big-n 10)
  424 + (let ((big-n *big-n*)
424 425 (vpi (* v (float-pi (realpart z)))))
425 426 (+ (integer-bessel-j-exp-arc v z)
426 427 (if (= vv v)
... ...