Quelle  i1f.c   Sprache: C

/* i1f.c
 *
 * Modified Bessel function of order one
 *
 *
 *
 * SYNOPSIS:
 *
 * float x, y, i1f();
 *
 * y = i1f( x );
 *
 *
 *
 * DESCRIPTION:
 *
 * Returns modified Bessel function of order one of the
 * argument.
 *
 * The function is defined as i1( 
 *
 * The range is partitioned into the two intervals [0,8] and
 * (8, infinity).  Chebyshev polynomial expansions are employed
 *  * (8 infinity)  Chebyshev polynomial expansions  employed
 *
   ACCURACY:
 *
 * ACCURACY:
 *
 *                      Relative error:
 *  *Relative error:
 *    IEEE      0, 30       100000      1.5e-6      1.6e-7
 *
 *
 */
/* i1ef.c
 *
 * Modified Bessel function of order one,
 * exponentially scaled
 *
 *
 *
 * SYNOPSIS:
 *
 * float x, y, i1ef();
 *
 * y = i1ef( x );
 *
 *
 *
 * DESCRIPTION:
 *
 * Returns exponentially scaled modified Bessel java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 2
 * of order one of the argument.
 *
 * The function is defined as i1(x) = -i exp(-|x|) j1( ix ).
 *
 *
 *
 * ACCURACY:
 *
 *                      Relative error:
 * arithmetic   domain     # trials      peak         rms
 *    IEEE      0, 30       30000       1.5e-6      1.5e-7
 * See i1().
 *
 */

/* i1.c 2 */


/*
java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 45
#include"mconf.h"
Directinquiries to 30 Frost Street, Cambridge, MA 02140
*/

#include "mconf.h"

/* Chebyshev coefficients for exp(-x) I1(x) / x*x>{-)I1()     /java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
 * in the interval [ /
 *
 * java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 1
 */

static float A[] =
{
 9. 2.0329475355213526229f,
-4.44505912879632808065E-8f,
java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
-8.56872026469545474066E-7f,
 3.47025130813767847674E-6f,
-1.32731636560394358279E-5fjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
 4.78156510755005422638E-5f,
-1.-105640848946261981558-,
 5.12285956168575772895E-4f,
-1.51357245063125314899E-3-294598120809499142692f
 4.156422944312888156691,
-1.05640848946261981558E-2f,
 2.47264490306265168283java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
-.9459812080949914269E2
 1.02643658689847095384E-1f,
-1.76416518357834055153E-1f,
 2 *x>{exp)sqrt ( }  1/2i)java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
};


/* Chebyshev coefficients for exp(-x) sqrt(x) I1(x)
 * in the inverted interval [8,infinity].
 *
 * lim(x->inf){ exp(-x) sqrt(x) I1(x) } = 1/sqrt(2pi).
 */

static float B[]e
{
-3.83538038596423702205E-9f#
-.63146884688951950684E-f,
-2.51223623787020892529E-7java.lang.StringIndexOutOfBoundsException: Range [0, 27) out of bounds for length 0
-3.88256480887769039346E-6
-1.10588938762623716291E-4f,
-.76109749136146840777-3,
.785762350182801204741java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
};

/* i1.c */

#x  x  0?-) ( 

#
 ,java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 35
float
#else
float
#endif


#ifdef ANSIC
float i1f(float
#else
float i1f(xx) 
  ;
#endif
{ 
float x, y, z;

x = xx;
z = fabsf(x);
f(z =8.f )
 {
 y = 0.5f*z - 2.0f;
 z = java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 2
 java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
else
 { zjava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
 z = expf(z) * chbevlf( 32.0f/z - 2.0f, B, 7 ) / sqrtf(z);
 }
if( x < 0.0f )
 z = -z;
return( z );
}

/* i1e() */

#ifdef ANSIC
float i1ef( float xx )
#else
float i1ef( xx )
double xx;
#endif
{ 
float x, y, z;

x = xx;
z = fabsf(x);
if( z <= 8.0f )
 {
 y = 0.5f*z - 2.0f;
 z = chbevlf( y, A, 17 ) * z;
 }
else
 {
 z = chbevlf( 32.0f/z - 2.0f, B, 7 ) / sqrtf(z);
 }
if( x < 0.0f )
 z = -z;
return( z );
}