bessel_cpp.txt

BESSEL PROGRAMS IN C/C

/********************************************************
* Program to demonstrate Bessel Coefficients Subroutine *
* ----------------------------------------------------- *
*    Reference: BASIC Scientific Subroutines, Vol. II   *
*    by F.R. Ruckdeschel, BYTE/McGRAWW-HILL, 1981.      *
*                                                       *
*               C++ Version by J.-P. Moreau, Paris.     *
* ----------------------------------------------------- *
* SAMPLE RUN:                                           *
*                                                       *
* BESSEL COEFFICIENTS                                   *
*                                                       *
* What is the order of the Bessel function ?  0         *
* What degree is desired ? 41                           *
*                                                       *
* The coefficients are:                                 ***************
*                                                                     *       
* A( 0) =  0.100000E+01  A( 1) =  0.000000E+00  A( 2) = -0.250000E+00 *
* A( 3) =  0.000000E+00  A( 4) =  0.156250E-01  A( 5) =  0.000000E+00 *
* A( 6) = -0.434028E-03  A( 7) =  0.000000E+00  A( 8) =  0.678168E-05 *
* A( 9) =  0.000000E+00  A(10) = -0.678168E-07  A(11) =  0.000000E+00 *
* A(12) =  0.470950E-09  A(13) =  0.000000E+00  A(14) = -0.240281E-11 *
* A(15) =  0.000000E+00  A(16) =  0.938597E-14  A(17) =  0.000000E+00 *
* A(18) = -0.289690E-16  A(19) =  0.000000E+00  A(20) =  0.724226E-19 *
* A(21) =  0.000000E+00  A(22) = -0.149633E-21  A(23) =  0.000000E+00 *
* A(24) =  0.259780E-24  A(25) =  0.000000E+00  A(26) = -0.384290E-27 *
* A(27) =  0.000000E+00  A(28) =  0.490166E-30  A(29) =  0.000000E+00 *
* A(30) = -0.544629E-33  A(31) =  0.000000E+00  A(32) =  0.531864E-36 *
* A(33) =  0.000000E+00  A(34) = -0.460090E-39  A(35) =  0.000000E+00 *
* A(36) =  0.355008E-42  A(37) =  0.000000E+00  A(38) = -0.245850E-45 *
* A(39) =  0.000000E+00  A(40) =  0.153657E-48  A(41) =  0.000000E+00 *
*                                                                     *
* Argument ?  1                                                       *
* Y=  0.765198                                                        *
**********************************************************************/
#include <stdio.h>
#include <math.h>

double A[52], B[52];
double x,y;
int    i, m, n;


/************************************************************
* Bessel function series coefficient evaluation subroutine  *
* m+1 is the number of coefficients desired, n is the order *
* of the Bessel function. The coefficients are returned in  *
* A(i).                                                     *
************************************************************/
void Bessel_coeff()  {
  double a1,b1;
  int    i;
  a1 = 1.0; b1 = 1.0;
  for (i = 1; i < n+1; i++)  {
    B[i - 1] = 0; b1 = b1 * i; a1 = a1 / 2.0;
  }
  b1 = a1 / b1; a1 = 1.0;
  i = 0;
  while (i <= m)  {
    A[i] = a1 * b1; A[i + 1] = 0;
    a1 = -a1 / ((i + 2) * (n + n + i + 2));
    i = i + 2;
  }
  a1 = a1 / 2.0;
  for (i = 0; i < m+1; i++)  B[i + n] = A[i];
  for (i = 0; i < n+m+1; i++)  A[i] = B[i];
}


void main() {
  printf(" BESSEL COEFFICIENTS\n\n");
  printf(" What is the order of the Bessel function ? "); scanf("%d",&n);
  printf(" What degree is desired ? "); scanf("%d",&m);
  printf("\n");
  
  Bessel_coeff();

  printf(" The coefficients are:\n\n");
  for (i = 0; i < m+1; i++)  {
	printf(" A(%2d) = %14.6E  ",i,A[i]);
    if (i==2) printf("\n");
    if (i > 3)
       if (((i+1) % 3) == 0)  printf("\n");
  }
  printf("\n Argument ? "); scanf("%lf",&x);
  y = A[0] + A[1] * x;
  if (m > 1)  y = y + A[2] * x * x;
  if (m > 2)  y = y + A[3] * x * x * x;
  if (m > 3)  y = y + A[4] * pow(x,4);
  for (i = 4; i < m; i++)
    if (m > i)  y = y + A[i + 1] * pow(x,i+1);
  printf(" Y=%10.6f\n",y);
}

// End file Bessel.cpp