**TI86** ; ,HYPGEOM,*ClLCDÖDisp "POP. SIZE"ÖInput NÖDisp "TYPE A SIZE"ÖInput MÖDisp "SAMPLE SIZE"ÖInput RÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖsum seq(M nCr I*(N-M) nCr (R-I)/N nCr R,I,J,K,1)CÖDisp "COMPLETE DIST?"ÖInput ZÖIf Z==1ÖThenÖClrLstsÖmax(0,R-(N-M))LÖseq(I,I,L,min({M,R,998}),1)xStatÖseq(M nCr I*(N-M) nCr (R-I)/N nCr R,I,L,min({M,R,998}),1)yStatÖFor(I,1,dimL xStat,1)Ösum seq(yStat(Z),Z,1,I,1)fStat(I)ÖEndÖEndÖClLCDÖOutpt(2,1,"PROB")ÖOutpt(2,8,C)ÖOutpt(4,1,"MEAN")ÖOutpt(4,8,R*M/N)ÖOutpt(6,1,"ST.DEV")ÖOutpt(6,8,(R*M/N*(N-M)/N*(N-R)/(N-1)))Öƒ±