Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/conlim.bas
There are 2 other files named conlim.bas in the archive. Click here to see a list.
10	REM  NORMAL CURVE PROBABILITIES:
11	DATA 5000000,5398278,5792597,6179114,6554217,6914625,7257469
12	DATA 7580363,7881446,8159399,8413447,8643339,8849303,9031995
13	DATA 9192433,9331928,9452007,9554345,9640697,9712834,9772499
14	DATA 9821356,9860966,9892759,9918025,9937903,9953388,9965330
15	DATA 9974449,9981342,9986501,9990324,9993129,9995166,9996631
16	DATA 9997674,9998409,9998922,9999277,9999519,9999683,9999793
17	DATA 9999867,9999915,9999946,9999966,9999979,9999987,9999992
18	DIM X(48)
19	DEF FNQ(V)=M+V*S
20	DEF FND(V)=X(V)-X(V-1)
21	DEF FNB(V)=U-V*(V-1)*(D2/(2*D1)+(V-2)*D3/(6*D1))
23	DATA 0,0,0
50	DATA 1E20
100	GOTO 600
200	DATA 3E33
205	DATA .5,.75,.9,.95,.99,.999,.9999,.99999,1E37
210	FOR K1= 0 TO 48
211	READ X(K1)
212	NEXT K1
215	READ I,S1,S2
220	READ H
225	LET I=I+1
230	READ W
235	IF W=3E33 THEN 255
240	LET S1=S1+W
245	LET S2=S2+W^2
250	GOTO 225
255	LET N=I-1
260	PRINT
265	PRINT "VALUES OF SAMPLE STATISTICS:"
270	PRINT
275	PRINT "   SIZE OF SAMPLE",N
280	LET M=S1/N
285	PRINT "   SAMPLE MEAN VALUE",M
290	LET S8=S2/N-M^2
295	PRINT "   VARIANCE OF SAMPLE",S8
300	PRINT "   SAMPLE STD DEVIATION",SQR(S8)
305	LET S5=S8*N*(H-1)/(H*(N-1))
310	PRINT "   ESTIMATED POPN STD DEV",SQR(S5)
315	LET S6=S5*(H-N)/(N*(H-1))
320	LET S=SQR(S6)
325	PRINT "   STANDARD ERROR OF MEAN",S
330	PRINT
335	PRINT
340	PRINT "CONFIDENCE LIMITS ON POPULATION MEAN:"
345	PRINT
350	PRINT "CONF LEVEL","LOWER LIM","UPPER LIM"
355	PRINT
360	READ P
365	IF P=1 E37 THEN 700
370	LET A1=0.5*(1+P)
375	GOSUB 405
395	PRINT 100*P,FNQ(-A2),FNQ(A2)
400	GOTO 360
405	IF A1>0.5 THEN 430
410	LET A1=1-A1
415	GOSUB 450
420	LET A2=-Q
425	GOTO 440
430	GOSUB 450
435	LET A2=Q
440	RETURN
445	REM  REVERSE INTERPOLATION FOR STD NORMAL DEVIATE:
450	LET Z=1E7*A1
455	FOR I=0 TO 45
460	IF Z<X(I) THEN 470
465	NEXT I
470	LET D1=FND(I)
475	LET E1=FND(I+1)
480	LET D2=E1-D1
485	LET D3=FND(I+2)-E1-D2
490	LET U=(Z-X(I-1))/D1
495	LET Q=FNB(FNB(U))
500	LET Q=0.1*(Q+I-1)
505	RETURN
600	PRINT
605	PRINT "THIS PROGRAM COMPUTES CONFIDENCE LIMITS FOR"
610	PRINT "AN UNKNOWN POPULATION MEAN, BASED ON RANDOM"
615	PRINT "SAMPLE DATA GIVEN.   TO USE, TYPE:"
620	PRINT
625	PRINT "   50  DATA  (SIZE OF POPULATION)"
630	PRINT "      (OMIT THIS INPUT IF INFINITE POP'N)"
635	PRINT "   100 DATA  X(1), X(2),.....,X(N)"
640	PRINT
645	PRINT "WHERE THE (I) ARE THE SAMPLE OBSERVATIONS."
700	END