We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5a03646 commit 6d241dfCopy full SHA for 6d241df
src/besseli.jl
@@ -24,10 +24,10 @@ end
24
function besseli1(x::T) where T <: Union{Float32, Float64}
25
z = abs(x)
26
if x <= 8
27
- y = muladd(x, T(.5), T(-2))
+ y = muladd(z, T(.5), T(-2))
28
z = chbevl(y, A_i1(T)) * z * exp(z)
29
else
30
- z = exp(z) * chbevl(T(32) / x - T(-2), B_i1(T)) / sqrt(z)
+ z = exp(z) * chbevl(T(32) / z - T(-2), B_i1(T)) / sqrt(z)
31
end
32
if x < zero(x)
33
z = -z
@@ -37,10 +37,10 @@ end
37
function besseli1x(x::T) where T <: Union{Float32, Float64}
38
39
if z <= 8
40
41
z = chbevl(y, A_i1(T)) * z
42
43
- z = chbevl(T(32) / x - T(-2), B_i1(T)) / sqrt(z)
+ z = chbevl(T(32) / z - T(-2), B_i1(T)) / sqrt(z)
44
45
46
0 commit comments