Listing of file='17A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 274, program filename = '17A' 0010 T=0 0020 DIM N(3) 0030 PRINT "INPUT 'K,R,P' (OR '0,0,-1' TO PRINT THE SUM OF THE PROB-" 0035 PRINT "ABILITIES CALCULATED THUS FAR, OR '0,0,0' TO END PROGRAM)" 0040 INPUT K,R,P 0050 IF P=0 THEN 999 0060 IF P=-1 THEN 250 0070 N(1)=R+K-1 0080 N(2)=K 0090 N(3)=R-1 0100 FOR I=1 TO 3 0110 IF N(I)=0 THEN 200 0130 S=1 0140 FOR J=1 TO N(I) 0150 S=S*J 0160 NEXT J 0170 N(I)=LOG(S) 0200 NEXT I 0210 J=EXP(N(1)-N(2)-N(3)+R*LOG(P)+K*LOG(1-P)) 0220 PRINT "P(K,R,P)=";J 0230 T=T+J 0240 GOTO 260 0250 PRINT "SUM OF PROBABILITIES=";T 0260 PRINT 0270 PRINT "INPUT 'K,R,P'" 0280 GOTO 40 0999 END