Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0020/phicoe.sta
There are 2 other files named phicoe.sta in the archive. Click here to see a list.
100' NAME--PHICOE
110'
120' DESCRIPTION--COMPUTES THE VALUE OF THE PHI COEFFICIENT AND
130' THE NUMBER OF CASES,N, FOR DATA ON TWO VARIABLES, X AND Y,
140' PRESENTED IN A 2 BY 2 TABLE SUCH AS:
150' X1 X2
160' -- --
170' Y1 A B
180' Y2 C D
190'
200' SOURCE--UNKNOWN
210'
220' INSTRUCTIONS--ENTER DATA IN ORDER A,B,C,D IN A DATA STATEMENT IN
230' LINE 900.
240'
250'
260' * * * * * * MAIN PROGRAM * * * * * * * * *
270'
280 READ A,B,C,D
290 LET P=(B*C-A*D)/SQR((A+C)*(B+D)*(A+B)*(C+D))
300 LET N=A+B+C+D
310 PRINT "PHI COEFFICIENT = "P, "N = "N
900 DATA 10,15,10,30
910 END