Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.05 T !,"WILCOXON T",!!
 1.07 E
 1.10 A "N",N,!!;S M=N;T "       X     Y",!!
 1.20 F I=1,N;T %2.0,"I"I;T %4.2;A "  "X,"   "Y,!;S D(I)=Y-X
 1.24 A "OK",A;I (A-0Y)1.25,1.29
 1.25 A !"I
",I;
 1.26 A "     X
",X,"   Y
",Y;S D(I)=Y-X;G 1.24
 1.29 T !
 1.30 S X=0;F I=1,N;D 2
 1.33 I (X)1.3
 1.35 S T=0
 1.40 F I=1,N-1; S K=I+1;D 3
 1.50 I (T)1.35,1.6
 1.60 F I=1,N-1;S K=I+1;S Y=2;D 4
 1.70 D 6;T %2.0, "N",N,!!!!
 1.80 G 1.07
 2.05 I (I-N)2.1,2.1
 2.06 R
 2.10 I (D<I>)2.5,2.3,2.5
 2.30 S N=N-1
 2.40 F T=I,N;S K=T+1;S D(T)=D(K);
 2.45 S X=-1
 2.50 C
 3.10 I (FABS<D[I]>-FABS<D[K]>)3.2,3.2,3.3
 3.20 G 3.4
 3.30 S H=D(I);S D(I)=D(K);S D(K)=H;S T=-1
 3.40 C
 4.10 I (FABS<D[I]>-FABS<D[K]>)4.2,4.25,4.2
 4.20 S D(I)=I*FSGN(D<I>);S H=I;DO 5;G 4.7
 4.25 S J=K
 4.30 S J=J+1;I (N-J)4.5,4.4,4.4
 4.40 I (FABS<D[K]>-FABS<D[J]>)4.5,4.3,4.5
 4.50 F C=I,J-1;S D(C)=((I+J-1)/Y)*FSGN(D<C>);S H=C;D 5
 4.60 S I=J-1;I (J-N)4.9,4.65,4.9
 4.65 S K=J;G 4.8
 4.70 I (K-N)4.9,4.8,4.8
 4.80 S D(K)=K*FSGN(D<K>);S H=K;D 5
 4.90 C
 5.10 I (D<H>)5.2,5.4,5.3
 5.20 S SN=SN+FABS(D<H>);G 5.5
 5.30 S SP=SP+D<H>;G 5.5
 5.40 T "PROGRAM ERROR";Q
 5.50 C
 6.05 I (N)5.4,6.5,6.1
 6.10 I (SN-SP)6.2,6.4,6.3
 6.20 T "NEGS SMALLER:    T",SN,"     ","(SP   ",SP,"    ";R
 6.30 T "POSV SMALLER:    T",SP,"     ","(SN   ",SN,"    ";R
 6.40 T "NEG AND POSV EQUAL:  SUMS:",SP,"     ";R
 6.50 T "ALL PAIRS EQUAL";Q