bessel_exp_K0
Evaluates the exponentially scaled modified Bessel function of the second kind of order zero.
Synopsis
#include <imsl.h>
float imsl_f_bessel_exp_K0 (float x)
The type double function is imsl_d_bessel_exp_K0.
Required Arguments
float x (Input)
Point at which the Bessel function is to be evaluated.
Return Value
The value of the scaled Bessel function exK0(x). If no solution can be computed, NaN is returned.
Description
The argument must be greater than zero for the result to be defined. The Bessel function K0(x) is defined to be
Example
The expression
is computed directly by calling imsl_f_bessel_exp_K0 and indirectly by calling imsl_f_bessel_K0. The absolute difference is printed. For large x, the internal scaling provided by imsl_f_bessel_exp_K0 avoids underflow that may occur in imsl_f_bessel_K0.
#include <imsl.h>
#include <stdio.h>
#include <math.h>
int main()
{
float x = 0.5;
float ans;
float error;
ans = imsl_f_bessel_exp_K0 (x);
printf("(e**0.5)K0(0.5) = %f\n\n", ans);
error = fabs(ans - (exp(x)*imsl_f_bessel_K0(x)));
printf ("Error = %e\n", error);
}
Output
(e**0.5)K0(0.5) = 1.524109
Error = 2.028498e-08