C-FOCAL,1969 01.05 T !,"WILCOXON T",!! 01.07 E 01.10 A "N",N,!!;S M=N;T " X Y",!! 01.20 F I=1,N;T %2.0,"I"I;T %4.2;A " "X," "Y,!;S D(I)=Y-X 01.24 A "OK",A;I (A-0Y)1.25,1.29 01.25 A !"I?",I; 01.26 A " X?",X," Y?",Y;S D(I)=Y-X;G 1.24 01.29 T ! 01.30 S X=0;F I=1,N;D 2 01.33 I (X)1.3 01.35 S T=0 01.40 F I=1,N-1; S K=I+1;D 3 01.50 I (T)1.35,1.6 01.60 F I=1,N-1;S K=I+1;S Y=2;D 4 01.70 D 6;T %2.0, "N",N,!!!! 01.80 G 1.07 02.05 I (I-N)2.1,2.1 02.06 R 02.10 I (D)2.5,2.3,2.5 02.30 S N=N-1 02.40 F T=I,N;S K=T+1;S D(T)=D(K); 02.45 S X=-1 02.50 C 03.10 I (FABS-FABS)3.2,3.2,3.3 03.20 G 3.4 03.30 S H=D(I);S D(I)=D(K);S D(K)=H;S T=-1 03.40 C 04.10 I (FABS-FABS)4.2,4.25,4.2 04.20 S D(I)=I*FSGN(D);S H=I;DO 5;G 4.7 04.25 S J=K 04.30 S J=J+1;I (N-J)4.5,4.4,4.4 04.40 I (FABS-FABS)4.5,4.3,4.5 04.50 F C=I,J-1;S D(C)=((I+J-1)/Y)*FSGN(D);S H=C;D 5 04.60 S I=J-1;I (J-N)4.9,4.65,4.9 04.65 S K=J;G 4.8 04.70 I (K-N)4.9,4.8,4.8 04.80 S D(K)=K*FSGN(D);S H=K;D 5 04.90 C 05.10 I (D)5.2,5.4,5.3 05.20 S SN=SN+FABS(D);G 5.5 05.30 S SP=SP+D;G 5.5 05.40 T "PROGRAM ERROR";Q 05.50 C 06.05 I (N)5.4,6.5,6.1 06.10 I (SN-SP)6.2,6.4,6.3 06.20 T "NEGS SMALLER: T",SN," ","(SP ",SP," ";R 06.30 T "POSV SMALLER: T",SP," ","(SN ",SN," ";R 06.40 T "NEG AND POSV EQUAL: SUMS:",SP," ";R 06.50 T "ALL PAIRS EQUAL";Q *