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

INPUT "Введите коэффициент, учитывающий внешние воздействия к:"; r

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

LOCATE (21), (15)

IF r = 0 THEN PRINT "Все вещи имеют  свойство стареть"

IF r = 0 THEN GOTO 11

IF r < 0 THEN PRINT "Вы ощиблись"

IF r < 0 THEN GOTO 11

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

l = r * S * .000001

t = 1 / l

REM******************Построение внешней рамки**************************************************

CLS

LINE (10, 14)-(10, 448)

LINE (11, 14)-(11, 448)

LINE (10, 448)-(640, 448)

LINE (10, 449)-(640, 449)

LINE (10, 14)-(640, 14)

LINE (10, 15)-(640, 15)

LINE (638, 14)-(638, 448)

LINE (639, 15)-(639, 448)

LINE (10, 14)-(640, 14)

LINE (10, 15)-(640, 15)

LINE (10, 290)-(125, 290)

LINE (10, 291)-(125, 291)

LINE (124, 290)-(124, 448)

LINE (125, 290)-(125, 448)

REM*******************Построение горизонтальных линий сетки*********************************

FOR y = 0 TO 434 STEP 43.4

LINE (10, 448 - y)-(640, 448 - y)

NEXT y

REM*******************Построение графика и вертикальных линий сетки**********************************************************

FOR tim = 0 TO t * 10 STEP t / 100

c = tim / t

P = EXP(-c)

PSET (tim / (t / 100) + 9, 417 - P * 400)

PSET (tim / (t / 100) + 10, 417 - P * 400)

PSET (tim / (t / 100) + 11, 417 - P * 400)

PSET (tim / (t / 100) + 10, 416 - P * 400)

PSET (tim / (t / 100) + 10, 418 - P * 400)

PSET (tim / (t / 100) + 9, 416 - P * 400)

PSET (tim / (t / 100) + 11, 416 - P * 400)

PSET (tim / (t / 100) + 9, 418 - P * 400)

PSET (tim / (t / 100) + 11, 418 - P * 400)

LINE (tim / (t / 5700) + 10, 16)-(tim / (t / 5700) + 10, 447)

NEXT tim

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

LOCATE (3), (25)

PRINT "Масштаб по оси времени: 1 деление-"; t / 2; "час"

LOCATE (4), (25)

PRINT "Интенсивность отказов элементов:"; l; "1/час"

LOCATE (5), (25)

PRINT "Время наработки на отказ:"; t; "час"

LOCATE (6), (35)

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

PRINT "Исходные данные:"

LOCATE (7), (35)

PRINT "элементы"

LOCATE (7), (55)

PRINT "количество"

LOCATE (7), (70)

PRINT "отказ/час"

j = 0

FOR i = 1 TO 10

IF b(i) < 1 THEN j = j ELSE j = j + 1

LOCATE (7 + j), (35)

IF b(i) > 0 THEN PRINT Comp$(i)

LOCATE (7 + j), (60)

IF b(i) > 0 THEN PRINT b(i)

LOCATE (7 + j), (70)

IF b(i) > 0 THEN PRINT a(i) * .000001

NEXT i

REM ******************Вывод надписей на осях графика******************************************

LOCATE (2), (8)

PRINT "P(t)-вероятность безотказной работы"

LOCATE (2), (3)

PRINT "1,0"

LOCATE (18), (3)

PRINT "0,37"

LOCATE (14), (3)

PRINT "0,5"

LOCATE (28), (3)

PRINT "0.0"

LOCATE (28), (72)

PRINT "Время, ч"

LOCATE (28), (17)

PRINT t; "час"

LOCATE (24), (45)

LOCATE (25), (50)

PRINT "1999"

14 IF INKEY$ = "" THEN GOTO 14

END

8.  Разработка технологии настройки и испытаний устройства