**TI89**mainRsignrank©¥ZO() Prgm ClrIO Disp "1 alt. x>y","2 alt. x0 Then SortA list3:dim(list3)n list3list6:list3[1]-1list3[n+1] 1b:1i Lbl lbl1 If i0 Then 1+jj:abs(list2[i]-list1[i])list5[j] EndIf EndFor SortA list5 1i:0j If list5[1]>0 Then Lbl lbl3 While iœdim(list5) Lbl lbl4 If list5[i]=list3[i+j] Then v+list4[i+j]v Else 1+jj Goto lbl4 EndIf i+1i Goto lbl3 EndWhile EndIf EndIf NewData dist,list1,list2,list6,list4,list5 DelVar list6 n*(n+1)/2t:n*(n+1)/4u ¨(n*(n+1)(2n+1)/24)d If int(v)=v Then v+0.5z .5-s\nrmcdff(z,u,u,d)l v-0.5Z .5-s\nrmcdff(u,z,u,d)r Else .5-s\nrmcdff(V,u,u,d)l .5-s\nrmcdff(u,V,u,d)r EndIf ClrIO Disp "expected + sum" Disp n*(n+1)/4 Disp "sums of signed 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) EndIf EndIf EndPrgmäåÜ Ÿ