**TI89**mainRtmntesty¥Z() Prgm ClrIO Disp "test mean" Input m Disp "sample size" Input n Disp "xbar" Input x Disp "sample deviation" Input s Disp "level of significance" Input a (x-m)/(s/¨(n))z s\tcdff(0,z,n-1)b b+.5l .5-br ClrIO If a>r Then Disp "reject mean œ m" Else Disp "accept mean œ m" EndIf If a>l Then Disp "reject mean ž m" Else Disp "accept mean ž m" EndIf If (a/2>r) or (a/2>l) Then Disp "reject mean = m" Else Disp "accept mean = m" EndIf Output 36,1,"test stat =" Output 36,70,round(z) Disp "tail values",{round(l,4),round(r,4)} EndPrgm äåÜE©