Commit 8c5195a8 authored by Raymond Toy's avatar Raymond Toy
Browse files

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

parent 78801d63
......@@ -410,6 +410,7 @@
;; bessel_i(v,z) = exp(-v*%pi*%i/2)*bessel_j(v, %i*z)
;; when Im(z) >> Re(z)
(defvar *big-n* 100)
(defun bessel-j (v z)
(let ((vv (ftruncate v)))
;; Clear the caches for now.
......@@ -420,7 +421,7 @@
(integer-bessel-j-exp-arc v z))
;; Need to fine-tune the value of big-n.
(let ((big-n 10)
(let ((big-n *big-n*)
(vpi (* v (float-pi (realpart z)))))
(+ (integer-bessel-j-exp-arc v z)
(if (= vv v)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment