Listing of file='20A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 768, program filename = '20A' 0005 PRINT "F-VALUE? (TO END PROGRAM INPUT 99999)" 0010 INPUT F 0012 IF F=99999 THEN 999 0015 PRINT "DEG. FREEDOM IN NUMERATOR?" 0020 INPUT N 0025 PRINT "DEG. FREEDOM IN DENOMINATOR?" 0030 INPUT D 0035 P=1 0040 IF F<1 THEN 65 0045 A=N 0050 B=D 0055 F1=F 0060 GOTO 80 0065 A=D 0070 B=N 0075 F1=1/F 0080 A1=2/9/A 0085 B1=2/9/B 0090 Z=ABS((1-B1)*F1^(1/3)-1+A1)/SQR(B1*F1^(2/3)+A1) 0100 IF B<4 THEN 140 0110 P=.5/(1+Z*(.196854+Z*(.115194+Z*(.000344+Z*.019527))))^4 0130 GOTO 160 0140 Z=Z*(1+.08*Z^4/B^3) 0150 GOTO 110 0160 IF F<1 THEN 180 0170 GOTO 200 0180 P=1-P 0200 PRINT "PROBABILITY OF F=";INT(P*1E6)/1E6 0210 PRINT 0220 PRINT "F-VALUE?" 0230 GOTO 10 0999 END