Changeset c0e12d
 Timestamp:
 04/12/12 03:06:38 (3 years ago)
 Branches:
 master
 Children:
 d795ba
 Parents:
 7c5a31
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

qdbessel.lisp
r7c5a31 rc0e12d 214 214 (defun alpha (n z) 215 215 (let ((n (float n (realpart z)))) 216 (/ ( cfincompletegamma (1+ n) (/ z 2))216 (/ (incompletegamma (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 (/ ( ( cfincompletegamma (1+ n) (/ z 2))222 ( cfincompletegamma (1+ n) (/ z 2)))221 (/ ( (incompletegamma (1+ n) (/ z 2)) 222 (incompletegamma (1+ n) (/ z 2))) 223 223 (expt z (1+ n))))) 224 224
Note: See TracChangeset
for help on using the changeset viewer.