**TI89**mainRpsampszeÝ¥Zƒ() Prgm ClrIO Disp "1 = large","2 = finite" Input c ClrIO If c=2 Then Disp "population size" Input n Else 0n EndIf Disp "margin of error" Input e Disp "confidence level" Input r s\invNormF((r+1)/2,0,1)q If n=0 Then (q/2/e)^2m Else (q/2/e)^2*n/(n-1+(q/2/e)^2)m EndIf If int (m)=m Then ml Else int (m+1)l EndIf ClrIO Output 1,1,"sample size =" Output 1,85,int (l) EndPrgm äåÜÞr