Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
O
oct
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
oct
oct
Commits
cb1a5d41
Commit
cb1a5d41
authored
Apr 09, 2012
by
Raymond Toy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix some mistakes in expintegrale when changing algorithm to use
series.
parent
6cfb0ac4
Hide whitespace changes
Inline
Sidebyside
Showing
1 changed file
with
9 additions
and
24 deletions
+9
24
qdgamma.lisp
qdgamma.lisp
+9
24
No files found.
qdgamma.lisp
View file @
cb1a5d41
...
...
@@ 532,36 +532,21 @@
;; for arg(z) < pi.
;;
;;
(
let*
((
prec
(
floatcontagion
v
z
))
(
v
(
applycontagion
v
prec
))
(
z
(
applycontagion
z
prec
)))
(
withfloatingpointcontagion
(
v
z
)
(
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
((
or
(
<
(
abs
z
)
1
)
(
>=
(
abs
(
phase
z
))
3.1
))
;; Use series for small z or if z is near the negative real
;; axis because the continued fraction does not converge on
;; the negative axis and converges slowly near the negative
;; axis.
(
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
))))
((
or
(
<
(
abs
z
)
1
)
(
>=
(
abs
(
phase
z
))
3.1
))
;; Use series for small z or if z is near the negative real
;; axis because the continued fraction does not converge on
;; the negative axis and converges slowly near the negative
;; axis.
(
sexpintegrale
v
z
))
(
t
;; Use continued fraction for everything else.
(
cfexpintegrale
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