100 REM ******** STAT2 ******** STATISTICS
110 REM ***** VERSION 1 ***** 7/31/69
120 REM MANN-WHITNEY TWO SAMPLE RANK TEST
130 DIM A(30),B(330),D(900)
140 READ M,N,C
150 MAT READ A(M)
160 MAT READ B(N)
170 FOR I=1 TO M
180 LET Q=(I-1)*N
190 LET X=A(I)
200 FOR J=1 TO N
210 LET D(Q+J)=X-B(J)
220 NEXT J
230 NEXT I
240 LET P=M*N
250 LET I=1
260 IF D(I) <= D(I+1) THEN 330
270 LET T=D(I)
280 LET D(I)=D(I+1)
290 LET D(I+1)=T
300 IF I=1 THEN 330
310 LET I=I-1
320 GOTO 260
330 LET I=I+1
340 IF I<P THEN 260
350 LET C=C+1
360 LET X=INT(C)
370 LET R=C-X
380 LET L=D(X)*(1-R)+D(X+1)*R
390 LET X=P-X
400 LET U=D(X+1)*(1-R)+D(X)*R
410 PRINT "CONFIDENCE INTERVAL BY RANK SUM TEST."
420 PRINT "LOWER LIMIT = ";L,"UPPER LIMIT = ";U
430 STOP
440DATA 4,6,2.5,190,160,160,140,117,120,120,145,147,150
450 END