C-FOCAL,1969

01.10 E
01.20 A "CORR. BETWEEN 1&2"A(1) !; A "CORR. BETWEEN 1&3"A(2) !
01.21 A "CORR. BETWEEN 1&4"A(3) !; A "CORR. BETWEEN 2&3"A(4) !
01.22 A "CORR. BETWEEN 2&4"A(5) !; A "CORR. BETWEEN 3&4"A(6) !
01.23 S X=A(1); S Y=A(2); S Z=A(4); DO 3
01.26 S A(7)=PR; S X=A(3); S Z=A(6); DO 3
01.28 S A(8)=PR; S X=A(5); S Y=A(4); DO 3
01.30 S A(9)=PR;; S X=A(1); S Y=A(3); S Z=A(5); DO 3
01.32 S A(10)=PR; S X=A(2); S Z=A(6); DO 3
01.34 S A(11)=PR; S X=A(4); S Y=A(5); DO 3
01.36 S A(12)=PR; S X=A(4); S Y=A(1); S Z=A(2); DO 3
01.38 S A(13)=PR; S X=A(5); S Z=A(3); DO 3
01.40 S A(14)=PR; S X=A(6); S Y=A(2); DO 3
01.42 S A(15)=PR; S X=A(2); S Y=A(1); S Z=A(4); DO 3
01.44 S A(16)=PR; S X=A(3); S Z=A(5); DO 3
01.46 S A(17)=PR; S X=A(6); S Y=A(4); DO 3
01.48 S A(18)=PR; S X=A(7); S Y=A(8); S Z=A(9); DO 3
01.50 T ! "2ND ORDER PARTIAL 1&2, CONTROLLING 3&4"%5.03PR, !
01.51 S C(1)=PR; S X=A(16); S Y=A(17); S Z=A(18); DO 3
01.52 T "2ND ORDER PARTIAL 1&3, CONTROLLING 2&4"PR, !
01.53 S C(2)=PR; S X=A(17); S Y=A(16); S Z=A(18); DO 3
01.55 T "2ND ORDER PARITAL 1&4, CONTROLLING 2&3"PR, !
01.56 S C(3)=PR; S X=A(13); S Y=A(14); S Z=A(15); DO 3
01.58 T "2ND ORDER PARTIAL 2&3, CONTROLLING 1&4"PR, !
01.59 S C(4)=PR; S X=A(14); S Y=A(13); S Z=A(15); DO 3
01.61 T "2ND ORDER PARTIAL 2&4, CONTROLLING 1&3"PR, !
01.63 S C(5)=PR; S X=A(15); S Y=A(13); S Z=A(14); DO 3
01.65 T "2ND ORDER PARTIAL 3&4, CONTROLLING 1&2"PR, !; S C(6)=PR
01.70 T !!!!, "              CORRELATION MATRICES",!!!
01.71 T "ORIGINAL MATRIX--ZERO ORDER CORRELATIONS", !!
01.72 T "            1       2       3", !
01.73 T "     2",A(1), !
01.74 T "     3",A(2), A(4), !
01.75 T "     4",A(3), A(5), A(6), !!!
01.77 T "2ND ORDER PARTIAL CORRELATION MATRIX", !!
01.81 T "            1       2       3", !
01.83 T "     2",C(1), !
01.84 T "     3",C(2), C(4), !
01.85 T "     4",C(3), C(5), C(6), !!!

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