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 @@ ...@@ -410,6 +410,7 @@
;; bessel_i(v,z) = exp(-v*%pi*%i/2)*bessel_j(v, %i*z) ;; bessel_i(v,z) = exp(-v*%pi*%i/2)*bessel_j(v, %i*z)
;; when Im(z) >> Re(z) ;; when Im(z) >> Re(z)
;; ;;
(defvar *big-n* 100)
(defun bessel-j (v z) (defun bessel-j (v z)
(let ((vv (ftruncate v))) (let ((vv (ftruncate v)))
;; Clear the caches for now. ;; Clear the caches for now.
...@@ -420,7 +421,7 @@ ...@@ -420,7 +421,7 @@
(integer-bessel-j-exp-arc v z)) (integer-bessel-j-exp-arc v z))
(t (t
;; Need to fine-tune the value of big-n. ;; Need to fine-tune the value of big-n.
(let ((big-n 10) (let ((big-n *big-n*)
(vpi (* v (float-pi (realpart z))))) (vpi (* v (float-pi (realpart z)))))
(+ (integer-bessel-j-exp-arc v z) (+ (integer-bessel-j-exp-arc v z)
(if (= vv v) (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