**TI86** ³ £BINOMIAL£¡ClLCDÖDisp "NUMBER OF TRIALS"ÖInput NÖDisp "PROBABILITY"ÖInput PÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖIf J==0ÖThenÖbicdf(N,P,K)CÖElseÖbicdf(N,P,K)-bicdf(N,P,J-1)CÖEndÖint ((N+1)P)MÖbipdf(N,P,M)AÖIf M1ÖThenÖbipdf(N,P,M-1)BÖElseÖ0BÖEndÖDisp "COMPLETE DIST?"ÖInput ZÖIf Z==1ÖThenÖClrLstsÖFnOff Öseq(I,I,0,N)xStatÖbipdf(N,P)yStatÖbicdf(N,P)fStatÖ0xMinÖNxMaxÖ1xSclÖ0yMinÖAyMaxÖ1ySclÖPlOff ÖPlOn 1ÖPlot1(1,xStat,yStat,1)ÖEndÖClLCDÖOutpt(2,1,"PROB")ÖOutpt(2,8,C)ÖOutpt(4,1,"MEAN")ÖOutpt(4,9,N*P)ÖOutpt(5,1,"ST.DEV")ÖOutpt(5,9,(N*P(1-P)))ÖIf round(A)==round(B)ÖThenÖOutpt(7,1,"BIMODAL")ÖOutpt(7,9,{M-1,M})ÖElseÖOutpt(7,1,"MODE")ÖOutpt(7,9,M)ÖEndÖZë