9000  REM ******** STAT2 ******* STATISTICS
9001  REM  *****  VERSION 1  *****  7/31/69  *****
9002  REM  MANN-WHITNEY TWO SAMPLE RANK TEST
9003  DIM A[30],B[330],D[900]
9004  READ M,N,C
9005  MAT  READ A[M]
9006  MAT  READ B[N]
9007  FOR I=1 TO M
9008  LET Q=(I-1)*N
9009  LET X=A[I]
9010  FOR J=1 TO N
9011  LET D[Q+J]=X-B[J]
9012  NEXT J
9013  NEXT I
9014  LET P=M*N
9015  LET I=1
9016  IF D[I] <= D[I+1] THEN 9023
9017  LET T=D[I]
9018  LET D[I]=D[I+1]
9019  LET D[I+1]=T
9020  IF I=1 THEN 9023
9021  LET I=I-1
9022  GOTO 9016
9023  LET I=I+1
9024  IF I<P THEN 9016
9025  LET C=C+1
9026  LET X=INT(C)
9027  LET R=C-X
9028  LET L=D[X]*(1-R)+D[X+1]*R
9029  LET X=P-X
9030  LET U=D[X+1]*(1-R)+D[X]*R
9031  PRINT "CONFIDENCE INTERVAL BY RANK SUM TEST."
9032  PRINT "LOWER LIMIT =  ";L,"UPPER LIMIT =  ";U
9033  STOP 
9900  DATA 4,6,2,5,190,160,160,140,117,120,120,145,147,150
9999  END 
