1Test of J1(X) VS Maclaurin expansion


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


 ABS(J1(X)) was larger   482 times
                agreed   791 times, and
           was smaller   727 times.


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


 The maximum relative error of     0.5400E-15 =    2 ** -50.72
    occurred for X = 0.914821E+00
 The estimated loss of base   2 significant digits is   2.28


 The root mean square relative error was     0.1577E-15 =    2 ** -52.49
 The estimated loss of base   2 significant digits is   0.51


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   520 times
                agreed   704 times, and
           was smaller   776 times.


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


 The maximum relative error of     0.1742E-14 =    2 ** -49.03
    occurred for X = 0.379479E+01
 The estimated loss of base   2 significant digits is   3.97


 The root mean square relative error was     0.2428E-15 =    2 ** -51.87
 The estimated loss of base   2 significant digits is   1.13


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   807 times
                agreed   584 times, and
           was smaller   609 times.


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


 The maximum relative error of     0.7160E-15 =    2 ** -50.31
    occurred for X = 0.486964E+01
 The estimated loss of base   2 significant digits is   2.69


 The root mean square relative error was     0.2263E-15 =    2 ** -51.97
 The estimated loss of base   2 significant digits is   1.03


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   741 times
                agreed   577 times, and
           was smaller   682 times.


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


 The maximum relative error of     0.1151E-14 =    2 ** -49.63
    occurred for X = 0.164361E+02
 The estimated loss of base   2 significant digits is   3.37


 The root mean square relative error was     0.2391E-15 =    2 ** -51.89
 The estimated loss of base   2 significant digits is   1.11


1Special Tests


 Accuracy near zeros

          X               BESJ1(X)             Loss of base  2 digits

    0.3832031250E+01   -0.131003930013280E-03           0.90

    0.7015625000E+01    0.115034607023017E-04           0.00



 Test with extreme arguments



 J1 will be called with the argument  0.1797693135+309
 This may stop execution.


 J1 returned the value  0.00000000000000000E+00

 This concludes the tests.
