Listing of file='11A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 520, program filename = '11A'
0010 PRINT "TO COMPUTE X^2 INPUT 0, TO COMPUTE P(X^2,V) INPUT 1"
0015 INPUT N
0020 IF N=1 THEN 95
0025 PRINT
0030 PRINT "NO. OF OBSERVED VALUES?"
0035 INPUT N
0040 V=N-1
0050 C=0
0055 PRINT "INPUT OBSERVED VALUES"
0060 FOR I=1 TO N
0065 INPUT O,E
0070 C=C+(O-E)^2/E
0075 NEXT I
0080 PRINT
0085 PRINT "CHI-SQUARE=";C
0090 GOTO 130
0095 PRINT
0100 PRINT "DEGREES OF FREEDOM?"
0105 INPUT V
0110 PRINT "CHI-SQUARE?"
0115 INPUT C
0120 PRINT
0130 J=1
0140 FOR I=V TO 2 STEP -2
0150 J=J*I
0160 NEXT I
0170 A=C^(INT((V+1)/2))*EXP(-C/2)/J
0180 IF INT(V/2)=V/2 THEN 210
0190 B=SQR(2/C/3.1415927)
0200 GOTO 220
0210 B=1
0220 S,T=1
0230 W=V
0240 V=V+2
0245 T=T*C/V
0250 IF T<.00001 THEN 280
0260 S=S+T
0270 GOTO 240
0280 PRINT "P(";C;",";W;")=";A*B*S
0290 PRINT
0300 PRINT
0310 PRINT "MORE INPUT? (1=YES,0=NO)"
0320 INPUT V
0330 PRINT
0340 IF V=1 THEN 10
0999 END