Страница: 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