naginterfaces.library.specfun.kelvin_​ber

naginterfaces.library.specfun.kelvin_ber(x)

kelvin_ber returns a value for the Kelvin function $ber\left(x\right)$.

For full information please refer to the NAG Library document for s19aa

https://support.nag.com/numeric/nl/nagdoc_30.2/flhtml/s/s19aaf.html

Parameters

xfloat

The argument $x$ of the function.

Returns

berfloat

The value of the function at $x$.

Raises

NagValueError

(errno $1$)

On entry, $x=⟨value⟩$.

Constraint: $\left|x\right|\le ⟨value⟩$.

$\left|x\right|$ is too large for an accurate result to be returned and the function returns zero.

Notes

kelvin_ber evaluates an approximation to the Kelvin function $ber\left(x\right)$.

Note: $ber(-x)=ber\left(x\right)$, so the approximation need only consider $x\ge 0.0$.

The function is based on several Chebyshev expansions:

For $0\le x\le 5$,

$$ber\left(x\right)={\sum ^{\prime }}_{r=0}{a}_r{T}_r\left(t\right)\text{, with}t=2{\left(\frac{x}{5}\right)}^4-1\text{.}$$

For $x>5$,

$$\begin{array}{c}\begin{array}{cc}ber\left(x\right)=& \frac{e^{x/\sqrt{2}}}{\sqrt{2\pi x}}[(1+\frac{1}{x}a\left(t\right))\cos \left(\alpha \right)+\frac{1}{x}b\left(t\right)\sin \left(\alpha \right)]\\ & \\ & +\frac{e^{-x/\sqrt{2}}}{\sqrt{2\pi x}}[(1+\frac{1}{x}c\left(t\right))\sin \left(\beta \right)+\frac{1}{x}d\left(t\right)\cos \left(\beta \right)]\text{,}\end{array}\end{array}$$

where $\alpha =\frac{x}{\sqrt{2}}-\frac{\pi }{8}$, $\beta =\frac{x}{\sqrt{2}}+\frac{\pi }{8}$,

and $a\left(t\right)$, $b\left(t\right)$, $c\left(t\right)$, and $d\left(t\right)$ are expansions in the variable $t=\frac{10}{x}-1$.

When $x$ is sufficiently close to zero, the result is set directly to $ber\left(0\right)=1.0$.

For large $x$, there is a danger of the result being totally inaccurate, as the error amplification factor grows in an essentially exponential manner;, therefore, the function must fail.

References

NIST Digital Library of Mathematical Functions