**TI86**  NEGBINOMClLCDDisp "PROBABILITY"Input PDisp "NO. OF OCCURRENCES"Input RDisp "LOWER BOUND"Input JDisp "UPPER BOUND"Input Ksum seq((M-1) nCr (R-1)*P^R*(1-P)^(M-R),M,J,K,1)CDisp "COMPLETE DIST?"Input ZIf Z==1ThenClrLsts2*int (R/P)Lseq(I,I,R,L)xStatseq((M-1) nCr (R-1)*P^R*(1-P)^(M-R),M,R,L)yStatcSum(yStat)fStatEndClLCDOutpt(2,1,"PROB")Outpt(2,8,C)Outpt(4,1,"MEAN")Outpt(4,8,R/P)Outpt(6,1,"ST.DEV")Outpt(6,8,(R*(1-P))/P)A