**TI89**mainRpconfintG¥Zí() Prgm ClrIO Disp "1 = large","2 = finite" Input c ClrIO If c=2 Then Disp "population size" Input p Else 0p EndIf Disp "number of yes" Input m Disp "sample size" Input n Disp "confidence level" Input r If p=0 Then ¨(m/n*(1-m/n))s Else ¨(m/n*(1-m/n))*¨((p-n)/(p-1))s EndIf s\invNormF((r+1)/2,0,1)q ClrIO Disp "Sample p, Error" Disp {round(m/n,4),"+-",round(q*s/¨(n),4)} max(0,m/n-q*s/¨(n))l min(1,m/n+q*s/¨(n))r Disp "Confidence Interval" Disp {round(l,4),round(r,4)} EndPrgm äåÜ—