Changeset 1d9ec007bb4172eaccb8ca1db543c1218192cdb5 for qdgamma.lisp
 Timestamp:
 03/21/12 22:24:48 (2 years ago)
 Children:
 e10e402d446339130042607357b0129b35a1faa7
 Parents:
 4b332ed2140e56c6fcaa689e6b8a48be36c988f6
 gitcommitter:
 Raymond Toy <toy.raymond@…> (03/21/12 22:24:48)
 Files:

 1 modified
Legend:
 Unmodified
 Added
 Removed

qdgamma.lisp
r4b332e r1d9ec0 528 528 ;; 529 529 ;; 530 (cond ((< (abs z) 1) 530 (cond ((and (realp v) (minusp v)) 531 ;; E(v, z) = z^(v1)*incomplete_gamma_tail(v+1,z) 532 (let ((v ( v))) 533 (* (expt z ( v 1)) 534 (incompletegammatail (+ v 1) z)))) 535 ((< (abs z) 1) 531 536 ;; Use series for small z 532 537 (sexpintegrale v z))