Commit c0e12ddf6b61f571555d46c6f168e6bebabc80b1

Authored by Raymond Toy
1 parent 7c5a3186

Correct the computation of alpha and beta.

Showing 1 changed file with 3 additions and 3 deletions
qd-bessel.lisp
... ... @@ -213,13 +213,13 @@
213 213  
214 214 (defun alpha (n z)
215 215 (let ((n (float n (realpart z))))
216   - (/ (cf-incomplete-gamma (1+ n) (/ z 2))
  216 + (/ (incomplete-gamma (1+ n) (/ z 2))
217 217 (expt z (1+ n)))))
218 218  
219 219 (defun beta (n z)
220 220 (let ((n (float n (realpart z))))
221   - (/ (- (cf-incomplete-gamma (1+ n) (/ z 2))
222   - (cf-incomplete-gamma (1+ n) (/ z -2)))
  221 + (/ (- (incomplete-gamma (1+ n) (/ z 2))
  222 + (incomplete-gamma (1+ n) (/ z -2)))
223 223 (expt z (1+ n)))))
224 224  
225 225 ;; a[0](k,v) := (k+sqrt(k^2+1))^(-v);
... ...