Skip to content
Toggle navigation
P
Projects
G
Groups
S
Snippets
Help
oct
/
oct
This project
Loading...
Sign in
Toggle navigation
Go to a project
Project
Repository
Issues
0
Merge Requests
0
Pipelines
Wiki
Snippets
Members
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Commit
d80256d6
authored
Mar 23, 2012
by
Raymond Toy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Need to apply contagion for expintegrale.
parent
b1ae6953
Hide whitespace changes
Inline
Sidebyside
Showing
1 changed file
with
23 additions
and
20 deletions
+23
20
qdgamma.lisp
+23
20
No files found.
qdgamma.lisp
View file @
d80256d6
...
...
@@ 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
;;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment