Разработка и обоснование общей конструкции устройства. Общие конструктивные и эксплуатационные требования, страница 4

8. Количество разъемов  =  8 ;

9. Количество резонаторов  =  1 ;

10. Количество паек  = 604 ;

Результаты выполнения расчетов :

Группы элементов	Интенсивность отказов, отказ/час
Микросхемы	2,5*10-7
Транзисторы	5*10-7
Диоды	1*10-7
Резисторы	1,5*10-7
Конденсаторы электролитические	5*10-7
Конденсаторы керамические	1,5*10-7
Катушки индуктивности	2*10-7
Разъемы	2,5*10-7
Резонаторы	1*10-7
Пайки	2*10-8

Интенсивность отказов элементов L = 9,916*10^-5  отказ/час.

Время наработки на отказ Т = 10084,71 часов.

Рис. 7.1.  График  зависимости вероятности  безотказной работы                              устройства  от времени работы

REM******************* ПРОГРАММА РАСЧЕТА НАДЕЖНОСТИ*********************************

REM******************* НАПИСАНА НА ЯЗЫКЕ Q-BASIC*****************************************

REM********************Вывод названия**************************************************************

CLS

SCREEN 12

LOCATE (5), (15)

PRINT " Расчет надежности радиоэлектронного устройства "

LOCATE (7), (30)

PRINT "Press any key."

REM*******************Ожидание нажатия любой клавиши**************************

10

6 IF INKEY$ = "" THEN GOTO 6

CLS

REM*******************Вывод названия**************************************************************

LOCATE (5), (15)

PRINT "Расчет  надежности  радиоэлектронного устройства"

REM*******************Музыка*************************************************************************

PLAY ON

MUSIC$ = "MBo3L8ED+ED+Eo2Bo3DCL2o2A"

PLAY MUSIC$

REM ******************Ввод исходных данных*******************************************************

Comp$(1) = "микросхем               ": a(1) = .25

Comp$(2) = "транзисторов            ": a(2) = .5

Comp$(3) = "диодов                  ": a(3) = .1

Comp$(4) = "резисторов              ": a(4) = .15

Comp$(5) = "конд. электролитических ": a(5) = .5

Comp$(6) = "конд. керамических      ": a(6) = .15

Comp$(7) = "индуктивностей          ": a(7) = .2

Comp$(8) = "разъемов                ": a(8) = .25

Comp$(9) = "резонаторов             ": a(9) = .1

Comp$(10) = "паек                    ": a(10) = .02

FOR i = 1 TO 10

LOCATE (8 + i), (15)

PRINT "Введите количество "; Comp$(i);

INPUT b(i)

REM******************Защита от ввода некорректных данных************************************

LOCATE (21), (15)

IF b(i) < 0 THEN PRINT "Вы ошиблись"

LOCATE (23), (15)

IF b(i) < 0 THEN PRINT "Press any key."

IF b(i) < 0 THEN GOTO 10

NEXT i

REM******************Вычисление суммы произведений количества****************************

REM******************элементов и вероятностей их отказов**************************************

S = 0

FOR i = 1 TO 10

S = S + a(i) * b(i)

NEXT i

REM******************Защита от ввода некорректных данных************************************

LOCATE (21), (15)

IF S = 0 THEN PRINT "Вы ошиблись"

LOCATE (23), (15)

IF S = 0 THEN PRINT "Press any key."

IF S = 0 THEN GOTO 10

D = 0

FOR i = 1 TO 9

D = D + b(i)

NEXT i

LOCATE (21), (15)

IF D * 2 > b(10) THEN PRINT "А паять кто за тебя будет ?"

LOCATE (23), (15)

IF D * 2 > b(10) THEN PRINT "Press any key."

IF D * 2 > b(10) THEN GOTO 10

REM ******************Ввод исходных данных******************************************************

11

LOCATE (23), (15)

PRINT "Для нормальных условий к=1"

LOCATE (24), (15)