1Test of J1(X) VS Maclaurin expansion


   2000 random arguments were tested from the interval (  0.0,  1.0)


 ABS(J1(X)) was larger  1328 times
                agreed   554 times, and
           was smaller   118 times.


 There are  24 base   2 significant digits in a floating-point number.


 The maximum relative error of     0.3569E-06 =    2 ** -21.42
    occurred for X = 0.518211E+00
 The estimated loss of base   2 significant digits is   2.58


 The root mean square relative error was     0.1115E-06 =    2 ** -23.10
 The estimated loss of base   2 significant digits is   0.90


1Test of J1(X) VS local Taylor expansion


   2000 random arguments were tested from the interval (  1.0,  4.0)


 ABS(J1(X)) was larger   791 times
                agreed   718 times, and
           was smaller   491 times.


 There are  24 base   2 significant digits in a floating-point number.


 The maximum relative error of     0.1020E-05 =    2 ** -19.90
    occurred for X = 0.380011E+01
 The estimated loss of base   2 significant digits is   4.10


 The root mean square relative error was     0.1338E-06 =    2 ** -22.83
 The estimated loss of base   2 significant digits is   1.17


1Test of J1(X) VS local Taylor expansion


   2000 random arguments were tested from the interval (  4.0,  8.0)


 ABS(J1(X)) was larger   628 times
                agreed   603 times, and
           was smaller   769 times.


 There are  24 base   2 significant digits in a floating-point number.


 The maximum relative error of     0.3815E-06 =    2 ** -21.32
    occurred for X = 0.695078E+01
 The estimated loss of base   2 significant digits is   2.68


 The root mean square relative error was     0.1150E-06 =    2 ** -23.05
 The estimated loss of base   2 significant digits is   0.95


1Test of J1(X) VS local Taylor expansion


   2000 random arguments were tested from the interval (  8.0, 20.0)


 ABS(J1(X)) was larger   766 times
                agreed   573 times, and
           was smaller   661 times.


 There are  24 base   2 significant digits in a floating-point number.


 The maximum relative error of     0.4931E-06 =    2 ** -20.95
    occurred for X = 0.101357E+02
 The estimated loss of base   2 significant digits is   3.05


 The root mean square relative error was     0.1238E-06 =    2 ** -22.95
 The estimated loss of base   2 significant digits is   1.05


1Special Tests


 Accuracy near zeros

          X               BESJ1(X)             Loss of base  2 digits

    0.3832031250E+01   -0.131003966089338E-03           1.90

    0.7015625000E+01    0.115034608825226E-04           0.00



 Test with extreme arguments



 J1 will be called with the argument  0.3402823466E+39
 This may stop execution.


 J1 returned the value  0.00000000000000000E+00

 This concludes the tests.
