...

...

@@ 528,27 +528,30 @@ 


;; for arg(z) < pi.



;;



;;



(cond ((and (realp v) (minusp v))



;; E(v, z) = z^(v1)*incomplete_gamma_tail(v+1,z)



(let ((v ( v)))



(let* ((prec (floatcontagion v z))



(v (applycontagion v prec))



(z (applycontagion z prec)))



(cond ((and (realp v) (minusp v))



;; E(v, z) = z^(v1)*incomplete_gamma_tail(v+1,z)



(let ((v ( v)))



(* (expt z ( v 1))



(incompletegammatail (+ v 1) z))))



((< (abs z) 1)



;; Use series for small z



(sexpintegrale v z))



((>= (abs (phase z)) 3.1)



;; The continued fraction doesn't converge on the negative



;; real axis, and converges very slowly near the negative



;; real axis, so use the incompletegammatail function in



;; this region. "Closeness" to the negative real axis is



;; teken to mean that z is in a sector near the axis.



;;



;; E(v,z) = z^(v1)*incomplete_gamma_tail(1v,z)



(* (expt z ( v 1))



(incompletegammatail (+ v 1) z))))



((< (abs z) 1)



;; Use series for small z



(sexpintegrale v z))



((>= (abs (phase z)) 3.1)



;; The continued fraction doesn't converge on the negative



;; real axis, and converges very slowly near the negative



;; real axis, so use the incompletegammatail function in



;; this region. "Closeness" to the negative real axis is



;; teken to mean that z is in a sector near the axis.



;;



;; E(v,z) = z^(v1)*incomplete_gamma_tail(1v,z)



(* (expt z ( v 1))



(incompletegammatail ( 1 v) z)))



(t



;; Use continued fraction for everything else.



(cfexpintegrale v z))))



(incompletegammatail ( 1 v) z)))



(t



;; Use continued fraction for everything else.



(cfexpintegrale v z)))))






;; Series for Fresnel S



;;

...

...

