PROGRAM FILE 137: POKER TEST FOR RND FUNCTION.
    ANSI STANDARD 8.4

SECTION 137.1: POKER TEST FOR RND FUNCTION.

THIS PROGRAM CATEGORIZES FIXED-SIZE GROUPS OF RANDOM NUMBERS
BASED ON HOW MANY DIFFERENT TYPES OF NUMBER ARE IN EACH
GROUP. A TYPE IS DETERMINED BY WHICH FRACTION OF THE 0 - 1
SEGMENT THE VALUE OF THE NUMBER FALLS WITHIN. CHI-SQUARE
IS THEN COMPUTED AND DISPLAYED AS THE RESULT TO SEE IF
IT IS COMPATIBLE WITH THE EXPECTED DISTRIBUTION FOR UNIFORM
RANDOM NUMBERS.

***** THIS TEST IS INFORMATIVE ONLY *****

                    BEGIN TEST

RUNNING  12005  TRIALS, SO THAT EACH POSSIBILITY HAS
EXPECTED VALUE >= 5, AS NEEDED FOR CHI-SQUARE TEST.

#TYPES         ACTUAL COUNT   EXPECTED COUNT
 1              6              5 
 2              435            450 
 3              3821           3750 
 4              5915           6000 
 5              1828           1800 

FOR FOUR D.F., SHOULD HAVE .710721 <= CHI-SQ <= 9.48773
(5% TAIL AT EACH END.)

ACTUAL CHI-SQ =  3.68399 

*** INFORMATIVE TEST PASSED ***

                   END TEST

END PROGRAM 137

Program interrupted at line 830