Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
oct
oct
Commits
8c5195a8
Commit
8c5195a8
authored
Apr 16, 2012
by
Raymond Toy
Browse files
Make big-n a defvar so we can change it easily.
parent
78801d63
Changes
1
Show whitespace changes
Inline
Side-by-side
qd-bessel.lisp
View file @
8c5195a8
...
...
@@ -410,6 +410,7 @@
;; bessel_i(v,z) = exp(-v*%pi*%i/2)*bessel_j(v, %i*z)
;; when Im(z) >> Re(z)
;;
(
defvar
*big-n*
100
)
(
defun
bessel-j
(
v
z
)
(
let
((
vv
(
ftruncate
v
)))
;; Clear the caches for now.
...
...
@@ -420,7 +421,7 @@
(
integer-bessel-j-exp-arc
v
z
))
(
t
;; Need to fine-tune the value of big-n.
(
let
((
big-n
10
)
(
let
((
big-n
*big-n*
)
(
vpi
(
*
v
(
float-pi
(
realpart
z
)))))
(
+
(
integer-bessel-j-exp-arc
v
z
)
(
if
(
=
vv
v
)
...
...
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