14 August 2022 08:21:09 PM

asa152_test():
  C version
  Test asa152().

test01():
  chyper() computes cumulative probablities
  of the hypergeometric PDF.
  Compare to tabulated values.

   SAM   SUC   POP     X      CDF                       CDF                     DIFF
                             (tabulated)               (CHYPER)

    10    90   100     7        0.0600185817750058        0.0600185817750060  1.8041e-16
    10    90   100     8        0.2615284665839845        0.2615284665839848  2.7756e-16
    10    90   100     9        0.6695237889132748        0.6695237889132748  0.0000e+00
    10    90   100    10        1.0000000000000000        1.0000000000000000  0.0000e+00
     6    90   100     6        1.0000000000000000        1.0000000000000000  0.0000e+00
     7    90   100     6        0.5332595856827856        0.5332595856827855  1.1102e-16
     8    90   100     6        0.1819495964117640        0.1819495964117638  2.2204e-16
     9    90   100     6        0.0444804701752773        0.0444804701752768  5.1348e-16
    10    10   100     6        0.9999991751316731        0.9999991751316730  1.1102e-16
    10    30   100     6        0.9926860896560750        0.9926860896560750  0.0000e+00
    10    50   100     6        0.8410799901444538        0.8410799901444538  0.0000e+00
    10    70   100     6        0.3459800113391901        0.3459800113391900  1.1102e-16
    10    90    90     0        0.0000000000000000        0.0000000000000000  0.0000e+00
    10    90   200     0        0.0020888881396345        0.0020888881396345  4.3368e-19
    10    90  1000     0        0.3876752992448843        0.3876752992452282  3.4389e-13
    10    90  10000     0        0.9135215248834896        0.9135215248774926  5.9970e-12

test02():
  chyper() computes point probablities
  of the hypergeometric PDF.
  Compare to tabulated values.

   SAM   SUC   POP     X      PDF                       PDF                     DIFF
                             (tabulated)               (CHYPER)

    10    90   100     7        0.0517937053324283        0.0517937053324283  0.0000e+00
    10    90   100     8        0.2015098848089788        0.2015098848089787  1.1102e-16
    10    90   100     9        0.4079953223292903        0.4079953223292903  0.0000e+00
    10    90   100    10        0.3304762110867252        0.3304762110867252  0.0000e+00
     6    90   100     6        0.5223047493549779        0.5223047493549779  0.0000e+00
     7    90   100     6        0.3889503452643453        0.3889503452643454  1.1102e-16
     8    90   100     6        0.1505614239732950        0.1505614239732950  0.0000e+00
     9    90   100     6        0.0392768932104248        0.0392768932104248  2.0817e-17
    10    10   100     6        0.0000309982846552        0.0000309982846552  0.0000e+00
    10    30   100     6        0.0314511609393820        0.0314511609393820  0.0000e+00
    10    50   100     6        0.2114132170316862        0.2114132170316863  5.5511e-17
    10    70   100     6        0.2075776621999210        0.2075776621999210  2.7756e-17
    10    90    90     0        0.0000000000000000        0.0000000000000000  0.0000e+00
    10    90   200     0        0.0020888881396345        0.0020888881396345  4.3368e-19
    10    90  1000     0        0.3876752992448843        0.3876752992452282  3.4389e-13
    10    90  10000     0        0.9135215248834896        0.9135215248774926  5.9970e-12

asa152_test():
  Normal end of execution.

14 August 2022 08:21:09 PM