**TI89**mainRz2mntest;Z() Prgm ClrIO ClrIO Disp "1 = large, large","2 = large, finite","3 = finite, large","4 = finite, finite" Input c ClrIO If c=3 or c=4 Then Disp "1st population size" Input k Else 0k EndIf If c=2 or c=4 Then Disp "2nd population size" Input l Else 0l EndIf Disp "test difference" Input m Disp "x sample size" Input p Disp "xbar" Input x Disp "x sample deviation" Input s Disp "y sample size" Input q Disp "ybar" Input y Disp "y sample deviation" Input t Disp "level of significance" Input a If k0 Then s*((k-p)/(k-1))s EndIf If l0 Then t*((l-q)/(l-1))t EndIf (x-y-m)/(s^2/p+t^2/q)z s\nrmcdff(0,z,0,1)b b+.5l .5-br ClrIO If a>r Then Disp "reject (xmn-ymn) m" Else Disp "accept (xmn-ymn) m" EndIf If a>l Then Disp "reject (xmn-ymn) m" Else Disp "accept (xmn-ymn) m" EndIf If (a/2>r) or (a/2>l) Then Disp "reject (xmn-ymn) = m" Else Disp "accept (xmn-ymn) = m" EndIf Output 36,1,"test stat =" Output 36,70,round(z) Disp "tail values",{round(l,4),round(r,4)} EndPrgm 4