C-FOCAL,1969

01.01 C   A PROGRAM TO COMPUTE FIRST ORDER PARTIAL CORRELATIONS
01.02 C   FROM THE ZERO ORDER CORRELATIONS BETWEEN THREE VARIABLES.
01.03 C   WRITTEN BY BILL WILMOT, 4/26/71
01.10 E
01.20 A "CORR. BETWEEN 1 & 2"X !
01.22 A "CORR. BETWEEN 1 & 3"Y !
01.24 A "CORR. BETWEEN 2 & 3"Z !; DO 3
01.25 T "PARTIAL CORR. 1 & 2, CONTROLLING FOR 3"%5.03PR, !
01.27 S X1=X; S X=Y; S Y=X1; DO 3
01.28 T "PARTIAL CORR. 1 & 3, CONTROLLING FOR 2"%5.03PR, !
01.30 S X1=X; S X=Z; S Z=X1; DO 3
01.32 T "PARTIAL CORR. 2 & 3, CONTROLLING FOR 1"%5.03PR, !!!!
01.34 Q

03.01 S PS=(FSQT(1-Y^2)* FSQT(1-Z^2)); S PR=(X-(Y*Z))/PS
*