10 ! PROGRAM DIFFPROP
20 ! TO CALCULATE DIFFERENCE IN PROPORTIONS AND GIVE LEVEL
30 ! OF SIGNIFICANCE OF DIFFERENCE
40 ! L. SIMPSON  20-JUL-78
100 INPUT "PROPORTION SURVIVING (1ST) AND SAMPLE SIZE",X1,N1
110 INPUT "PROPORTION SURVIVING (2ND) AND SAMPLE SIZE",X2,N2
120 INPUT "Z(1/2 ALPHA) (P. 232 DIXON AND MASSEY)",A
130 D1=X1-X2
140 R=A*SQR(X1*(1-X1)/N1+X2(1-X2)/N2)
150 PRINT "RANGE =";D1-R;"TO";D1+R
160 STOP