**TI89**mainRptest7¥ZÝ() Prgm ClrIO Disp "1 = large","2 = finite" Input c ClrIO If c=2 Then Disp "population size" Input k Else 0k EndIf Disp "test proportion" Input p Disp "number of yes" Input m Disp "sample size" Input n Disp "level of significance" Input a If k=0 Then (m/n-p)/¨(p*(1-p)/n)z Else (m/n-p)/¨(p*(1-p)/n)/¨((k-n)/(k-1))z EndIf s\nrmcdff(0,z,0,1)b b+.5l .5-br ClrIO If a>r Then Disp "reject proportion œ p" Else Disp "accept proportion œ p" EndIf If a>l Then Disp "reject proportion ž p" Else Disp "accept proportion ž p" EndIf If (a/2>r) or (a/2>l) Then Disp "reject proportion = p" Else Disp "accept proportion = P" EndIf Output 36,1,"test stat =" Output 36,70,round(z) Disp "tail values",{round(l,4),round(r,4)} EndPrgm äåÜìæ