Разработка модернизированного лабораторного стенда

Страница: 8/12

2.4.3. Расчет зависимости вероятности безотказной работы от наработки проведен на IBM.

Надежность рассчитывается по формуле:

(2.4.1)

Программа вычисления наработки до первого отказа:

10 PRINT "ВВЕДИТЕ КОЛИЧЕСТВО НАИМЕНОВАНИЙ ЭЛЕМЕНТОВ"

20 INPUT M

30 FOR I = 1 TOM

40 PRINT "ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ"

50 INPUT X

60 PRINT "ВВЕДИТЕ ИНТЕНСИВНОСТЬ ОТКАЗОВ НОМИНАЛЬНУЮ"

70 INPUT Y

80 PRINT "ВВЕДИТЕ ПОПРАВОЧНЫЙ КОЭФФИЦИЕНТ"

90 INPUT Z

100 LET A = X * Y * Z + A

110 NEXT I

120 LET B = A * 1E - 6

130 PRINT "ВВЕДИТЕ ПОПРАВОЧНЫЙ КОЭФФИЦИЕНТ НА УСЛОВИЯ ЭКСПЛУАТАЦИИ"

140 INPUT C

150 LET D = B * C

160 LET E = 1/D

170 PRINT "СРЕДНЯЯ НАРАБОТКА ДО ПЕРВОГО ОТКАЗА";E

180 PRINT "ВВЕДИТЕ ЧИСЛО ТЕКУЩИХ ЗНАЧЕНИЙ ВРЕМЕНИ"

190 INPUT Q

200 FOR S = 1 TO Q

210 PRINT "ВВЕДИТЕ ТЕКУЩЕЕ ЗНАЧЕНИЕ ВРЕМЕНИ"

220 INPUT T

230 LET K = D * T

240 LET P = 1/EXP(K)

250 PRINT "ВЕРОЯТНОСТЬ БЕЗОТКАЗНОЙ РАБОТЫ";P

260 NEXT S

270 END

Средняя наработка до первого отказа Тср=71281,93часа. График зависимости вероятности безотказной работы от времени на работки до отказов изображен на рис.2.5

2.4.4. Расчет надежности стенда на IBM.

10 CLS

20 SCREEN 2

30 PRINT "РАСЧЕТ НАДЕЖНОСТИ РЭА "

40 PRINT "----------------------------------------"

50 PRINT " НАЖМИТЕ ПРОБЕЛ "

60 PRINT "----------------------------------------"

80 IF INKEY$ <> " " THEN GOTO 80

90 CLS

95 SCREEN 1

100 PRINT "ВВЕДИТЕ КОЛИЧЕСТВО НАИМЕНОВАНИЙ";

110 INPUT N

120 IF N <= 0 OR INT(N) <> N THEN GOTO 90

130 CLS

140 FOR I = 1 TO N

150 PRINT "НАИМЕНОВАНИЕ НОМЕР ("; I; ")"

160 PRINT "

170 PRINT "

180 PRINT "

190 PRINT "ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ";

200 INPUT X

210 PRINT "ВВЕДИТЕ ИНТЕНСИВНОСТЬ ОТКАЗОВ";

220 INPUT Y

230 PRINT "ВВЕДИТЕ ПОПРАВОЧНЫЙ КОЭФФИЦИЕНТ";

240 INPUT Z

250 A = X * Y * Z + A

260 NEXT I

270 PRINT "ВВЕДИТЕ ПОПРАВОЧНЫЙ КОЭФФ. НА УСЛОВИЯ ЭКСПЛУАТАЦИИ";

280 INPUT C

290 IF C = 0 THEN GOTO 270

300 PRINT "ВВЕДИТЕ СРЕДНЮЮ НАРАБОТКУ ДО ПЕРВОГО ОТКАЗА ЗАДАН-

НУЮ";

310 INPUT TSRZ

320 D = A * .000001 * C

330 G = 1 / D

340 CLS

350 PRINT "СРЕДНЯЯ НАРАБОТКА ДО ПЕРВОГО ОТКАЗА Tср.р.="; G;

"ЧАС."

360 IF G < TSRZ THEN PRINT "Tср.р. НЕ СООТВЕТСТВУЕТ ТУ";

370 IF G >= TSRZ THEN PRINT "Tср.р. СООТВЕТСТВУЕТ ТУ";

380 IF G < 1000 THEN GOTO 420

390 IF G < 10000 THEN GOTO 440

400 IF G < 100000 THEN GOTO 460

410 IF G < 1000000 THEN GOTO 480

420 S = (INT(G / 100) + 1) * 100

430 GOTO 490

440 S = (INT(G / 1000) + 1) * 1000

450 GOTO 490

460 S = (INT(G / 10000) + 1) * 10000

470 GOTO 490

480 S = (INT(G / 100000) + 1) * 100000

490 PRINT

500 PRINT "ТАБЛИЦА ДЛЯ ПОСТРОЕНИЯ ГРАФИКА

ЗАВИСИМОСТИ P(T)=EXP(-T/Tср.)"

510 FOR I = 0 TO S STEP S / 10

520 PRINT " X="; I, "Y="; 1 / EXP(D * I)

530 NEXT I

540 PRINT

550 PRINT "ПОСЛЕ ТОГО КАК ВЫ ЗАПИШИТЕ, ДЛЯ ВЫВОДА ГРАФИКА НАЖМИТЕ ПРОБЕЛ";

560 IF INKEY$ <> " " THEN GOTO 560

570 CLS

580 SCREEN 2

590 PRINT " ГРАФИК ФУНКЦИИ P(T)=EXP(-T/Tср.р.)"

600 LINE (0, 200)-(0, -200)

610 LINE (0, 0)-(600, 0)

620 PSET (0, 0)

630 FOR I = 0 TO S STEP S / 10

640 X =I / 10

Реферат опубликован: 30/03/2006