Integer, Intent (In)	::	n
Integer, Intent (Inout)	::	ifail
Integer, Intent (Out)	::	ivalid(n)
Real (Kind=nag_wp), Intent (In)	::	x(n)
Real (Kind=nag_wp), Intent (Out)	::	f(n)

C Header Interface

#include <nag.h>

void	s19anf_ (const Integer n, const double x[], double f[], Integer ivalid[], Integer ifail)

The routine may be called by the names s19anf or nagf_specfun_kelvin_ber_vector.

3 Description

s19anf evaluates an approximation to the Kelvin function

ber x_{i}

for an array of arguments

x_{i}

, for

i = 1, 2, \dots, n

Note:

ber (- x) = ber x

, so the approximation need only consider

x \geq 0.0

The routine is based on several Chebyshev expansions:

For

0 \leq x \leq 5

ber x = \underset{r = 0}{\sum^{'}} a_{r} T_{r} (t),   with ​ t = 2 {(\frac{x}{5})}^{4} - 1 .

For

x > 5

\begin{array}{l} ber x = & \frac{e^{x / \sqrt{2}}}{\sqrt{2 π x}} [(1 + \frac{1}{x} a (t)) \cos α + \frac{1}{x} b (t) \sin α] \\ + \frac{e^{- x / \sqrt{2}}}{\sqrt{2 π x}} [(1 + \frac{1}{x} c (t)) \sin β + \frac{1}{x} d (t) \cos β], \end{array}

where

α = \frac{x}{\sqrt{2}} - \frac{π}{8}

β = \frac{x}{\sqrt{2}} + \frac{π}{8}

and

a (t)

b (t)

c (t)

, and

d (t)

are expansions in the variable

t = \frac{10}{x} - 1

When

x

is sufficiently close to zero, the result is set directly to

ber 0 = 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 routine must fail.

4 References

NIST Digital Library of Mathematical Functions

5 Arguments

1: $n$ – Integer Input

On entry:

n

, the number of points.

Constraint:

n \geq 0

2: $x (n)$ – Real (Kind=nag_wp) array Input

On entry: the argument

x_{i}

of the function, for

i = 1, 2, \dots, n

3: $f (n)$ – Real (Kind=nag_wp) array Output

On exit:

ber x_{i}

, the function values.

4: $ivalid (n)$ – Integer array Output

On exit:

ivalid (i)

contains the error code for

x_{i}

, for

i = 1, 2, \dots, n

$ivalid (i) = 0$: No error.
$ivalid (i) = 1$: $abs (x_{i})$ is too large for an accurate result to be returned. $f (i)$ contains zero. The threshold value is the same as for $ifail = 1$ in s19aaf , as defined in the Users' Note for your implementation.

5: $ifail$ – Integer Input/Output

On entry: ifail must be set to

0

−1

1

to set behaviour on detection of an error; these values have no effect when no error is detected.

A value of

0

causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of

−1

means that an error message is printed while a value of

1

means that it is not.

If halting is not appropriate, the value

−1

1

is recommended. If message printing is undesirable, then the value

1

is recommended. Otherwise, the value

0

is recommended. When the value $- 1$ or $1$ is used it is essential to test the value of ifail on exit.

On exit:

ifail = 0

unless the routine detects an error or a warning has been flagged (see Section 6).

6 Error Indicators and Warnings

If on entry

ifail = 0

−1

, explanatory error messages are output on the current error message unit (as defined by x04aaf).

Errors or warnings detected by the routine:

$ifail = 1$: On entry, at least one value of x was invalid.
Check ivalid for more information.

$ifail = 2$: On entry, $n = ⟨ value ⟩$ .
Constraint: $n \geq 0$ .

$ifail = - 99$: An unexpected error has been triggered by this routine. Please contact NAG.
See Section 7 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 399$: Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 999$: Dynamic memory allocation failed.
See Section 9 in the Introduction to the NAG Library FL Interface for further information.

7 Accuracy

Since the function is oscillatory, the absolute error rather than the relative error is important. Let

E

be the absolute error in the result and

δ

be the relative error in the argument. If

δ

is somewhat larger than the machine precision, then we have:

E ≃ | \frac{x}{\sqrt{2}} ({ber}_{1} x + {bei}_{1} x) | δ

(provided

E

is within machine bounds).

For small

x

the error amplification is insignificant and thus the absolute error is effectively bounded by the machine precision.

For medium and large

x

, the error behaviour is oscillatory and its amplitude grows like

\sqrt{\frac{x}{2 π}} e^{x / \sqrt{2}}

. Therefore, it is not possible to calculate the function with any accuracy when

\sqrt{x} e^{x / \sqrt{2}} > \frac{\sqrt{2 π}}{δ}

. Note that this value of

x

is much smaller than the minimum value of

x

for which the function overflows.

8 Parallelism and Performance

s19anf is not threaded in any implementation.

9 Further Comments

None.

10 Example

This example reads values of x from a file, evaluates the function at each value of

x_{i}

and prints the results.

s19an: FL CL CPP AD

NAG FL Interfaces19anf (kelvin_​ber_​vector)

▸▿ Contents

1 Purpose

2 Specification

3 Description

4 References

5 Arguments

6 Error Indicators and Warnings

7 Accuracy

8 Parallelism and Performance

9 Further Comments

10 Example

10.1 Program Text

10.2 Program Data

10.3 Program Results

NAG FL Interface
s19anf (kelvin_ber_vector)