diff --git a/src/besselj.jl b/src/besselj.jl index 32eb9bb..96a3efa 100644 --- a/src/besselj.jl +++ b/src/besselj.jl @@ -85,8 +85,8 @@ function _besselj0(x::Float32) w = sqrt(q) p = w * evalpoly(q, MO_j0(T)) w = q * q - xn = q * evalpoly(w, PH_j0(T)) - PIO4(Float32) - p = p * cos(xn + x) + xn = q * evalpoly(w, PH_j0(T)) + p = p * sin_sum(xn, PIO4(T), x) return p end end @@ -151,8 +151,8 @@ function _besselj1(x::Float32) w = sqrt(q) p = w * evalpoly(q, MO132) w = q * q - xn = q * evalpoly(w, PH132) - THPIO4(T) - p = p * cos(xn + x) + xn = q * evalpoly(w, PH132) + p = p * sin_sum(xn, -PIO4(T), x) return p * s end end