1 CLS 2 Print " ________________________________________________________________________________" 3 PRINT 5 Print " BINOMIAL REDUNDANT RELIABILITY (BINOMIAL.BAS)" 6 Print " ORIGINAL DATE: CIRCA 1986" 7 Print " REVISION DATE: October 22, 2020" 8 Print " AUTHOR: Phil Rutherford" 9 Print " RUN DATE: ";Date$; 10 Print " (DD-MM-YYY)" 11 Print " RUN TIME: ";TIME$ 12 Print " RUN WITH MMBASIC (www.mmbasic.com)" 13 Print 14 Print " RELIABILITY OF PARALLEL OPERATING AND STANDBY UNITS USING THE BINOMIAL EXPANSION" 15 Print 18 Input " MINIMUM NUMBER OF OPERATING UNITS REQUIRED";M 20 Input " MAXIMUM NUMBER OF ADDITIONAL OPERATING REDUNDANT UNITS";N 30 Input " UNIT FAILURE RATE PER HOUR";LAMDA 40 Input " MISSION TIME IN HOURS";T 47 Print 50 RNOFAIL=Exp(-1*M*LAMDA*T) 60 Q=1-Exp(-1*LAMDA*T) 70 Print " RELIABILITY WITH 0 OPERATING REDUNDANT UNITS IS";RNOFAIL; 71 Print TAB(65);" P(=>";M;"/";M;".S)" 80 SUM=1 90 For Y=1 To N 100 NUM=Y 105 GOSUB 200 110 YFAC=I 120 PROD=1 130 FOR L=1 TO Y 131 PROD=PROD*(Y-L+M) 132 NEXT L 140 COEF = PROD/YFAC 150 SUM=SUM+COEF*Q^Y 160 R=RNOFAIL*SUM 170 Print " RELIABILITY WITH";Y;" OPERATING REDUNDANT UNITS IS";R; 171 Print TAB(65);" P(=>";M;"/";M+Y;".S)" 180 Next Y 185 Print " ________________________________________________________________________________" 190 End 199 '------------------------- 200 'SUBROUTINE FOR FACTORIALS 201 '------------------------- 210 I=1 220 FOR J=1 TO NUM 230 I=I*J 235 NEXT J 240 RETURN