**TI89**mainRgeomet¥ZÃ() Prgm ClrIO Disp "probability" Input p Disp "lower bound" Input j Disp "upper bound" Input k (1-p)^(j-1)-(1-p)^kc Disp "complete distribution?" Input z If z=1 Then min(int(ln(.025)/ln(1-p))+1,999)m NewData dist,seq(i,i,1,m),seq(round((1-p)^(i-1)*p),i,1,m),seq(round(1-(1-p)^i),i,1,m) EndIf ClrIO Output 1,1,"prob" Output 1,50,round(c) Output 16,1,"mean" Output 16,50,round(1/p) Output 31,1,"st.dev" Output 31,50,round(¨(1-p)/p) EndPrgm äåÜ3‰