1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        FISHER:   FISHER'S EXACT PROBABILITY TEST
4  REM
5  REM        36606 REV  A   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
9000  PRINT "Fisher's EXACT Probability Test"
9010  PRINT "==============================="
9020  PRINT "ENTER THE FREQUENCY IN CELL 'A'"
9030  INPUT A
9040  PRINT "ENTER THE FREQUENCY IN CELL 'B'"
9050  INPUT B
9060  PRINT "ENTER THE FREQUENCY IN CELL 'C'"
9070  INPUT C
9080  PRINT "ENTER THE FREQUENCY IN CELL 'D'"
9090  INPUT D
9100  N=A+B+C+D
9110  D1=D2=D3=D4=D5=1
9120  N1=N2=N3=N4=N5=1
9130  FOR I=1 TO A+B
9140  N1=N1*I
9150  NEXT I
9160  FOR I=1 TO C+D
9170  N2=N2*I
9180  NEXT I
9190  FOR I=1 TO A+C
9200  N3=N3*I
9210  NEXT I
9220  FOR I=1 TO B+D
9230  N4=N4*I
9240  NEXT I
9250  FOR I=1 TO A+B+C+D
9260  D1=D1*I
9270  NEXT I
9280  FOR I=1 TO A
9290  D2=D2*I
9300  NEXT I
9310  FOR I=1 TO B
9320  D3=D3*I
9330  NEXT I
9340  FOR I=1 TO C
9350  D4=D4*I
9360  NEXT I
9370  FOR I=1 TO D
9380  D5=D5*I
9390  NEXT I
9400  PRINT 
9410  PRINT "     Summary Table"
9420  PRINT "     ============="
9430  PRINT 
9440  PRINT "+----------+----------+"
9450  PRINT  USING 9460;A,B,A+B
9460  IMAGE "   ",DD,"           ",DD,"           ",DD
9470  PRINT "+----------+----------+"
9480  PRINT  USING 9460;C,D,C+D
9490  PRINT "+----------+----------+"
9500  PRINT  USING 9460;A+C,B+D,A+B+C+D
9510  PRINT 
9520  P=N1*N2*N3*N4
9530  P=P/(D1*D2*D3*D4*D5)
9540  PRINT  USING 9550;P
9550  IMAGE "P =",XXXDD.DDDDD
9560  PRINT LIN(5)
9570  END 
