**TI89**mainRt2mntest¬¥ZR() Prgm ClrIO 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 Disp "pooled?" Input w If w=1 Then p+q-2n ¨(((p-1)s^2+(q-1)t^2)/n)d (x-y-m)/d/¨(1/p+1/q)z Else int((s^2/p+t^2/q)^2/((s^2/p)^2/(p-1)+(t^2/q)^2/(q-1)))n ¨(s^2/p+t^2/q)d (x-y-m)/¨(s^2/p+t^2/q)z EndIf s\tcdff(0,z,n)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 äåÜD