**TI86** { kSIGNRANKkiClLCDÖDisp "1 ALT. X>Y","2 ALT. X0ÖThenÖSortA L3L3:dimL L3NÖL3L6:L3(1)-1L3(N+1)Ö1B:1IÖLbl AÖIf I0ÖThenÖ1+JJ:abs ((yStat(I)-xStat(I))L5(J)ÖEnd:EndÖsortA L5L5Ö1I:0JÖIf L5(1)>0ÖThenÖLbl CÖWhile IdimL L5ÖLbl DÖIf L5(I)==L3(I+J)ÖThenÖV+L4(I+J)VÖElseÖ1+JJÖGoto DÖEndÖI+1IÖGoto CÖEnd:EndÖL6fStat:0dimL L6ÖL4LW:0dimL L4ÖL5L1:0dimL L5ÖN(N+1)/2T:N(N+1)/4UÖ(N(N+1)(2N+1)/24)DÖIf int(V)==VÖThenÖV+0.5ZÖ.5-nmcdf(Z,U,U,D)LÖV-0.5ZÖ.5-nmcdf(U,Z,U,D)RÖElseÖ.5-nmcdf(V,U,U,D)LÖ.5-nmcdf(U,V,U,D)RÖEndÖClLCDÖDisp "EXP + SUM:",N*(N+1)/4ÖDisp "SUMS -,+ RANKS"ÖDisp {T-V,V}ÖDisp "P VALUE"ÖIf C==1ÖThenÖDisp LÖElseÖIf C==2ÖThenÖDisp RÖElseÖDisp 2*min(L,R)ÖEndÖEnd*o