Курсовая работа: Надежность функционирования систем

(SETQ L (FALL_OVER_RANDOM_TIME L))

(PRINT (LIST 'INTENSIVNOST_OTKAZA '= L) OUPUT)

(PRINT (LIST 'RABOTOSPOSOBNOST_SYSTEMY '= (CAPACITY_PARALLEL_CON L TME NUM)) OUPUT)

)

; ПАРАЛЛЕЛЬНОЕ НЕНАГРУЖЕННОЕ СОЕДИНЕНИЕ

( (= CON 3)

(SETQ NUM (LENGTH L))

(SETQ L (FALL_OVER_RANDOM_TIME L))

(PRINT (LIST 'INTENSIVNOST_OTKAZA '= L) OUPUT)

(SETQ P (CAPACITY_PARALLEL_CON L TME NUM))

(PRINT (LIST 'RABOTOSPOSOBNOST_SYSTEMY '= P) OUPUT)

(PRINT (LIST 'VEROYATNOST_OTKAZA '= (FALL_OVER_IN_CASCADE_CON P)) OUPUT)

)

)

)

; ПОЛУЧАЕМ СОЕДИНЕНИЕ СИСТЕМЫ

( SETQ INPUT (OPEN " D: \SYSTEM. TXT": DIRECTION: INPUT))

(SETQ CONNECT (READ INPUT))

(SETQ L (READ INPUT))

(SETQ TME (READ INPUT))

(CLOSE INPUT)

(SETQ OUTPUT (OPEN "D: \RESULT. TXT": DIRECTION: OUTPUT))

(GET_RES CONNECT L TME OUTPUT)

(TERPRI OUTPUT)

(CLOSE OUTPUT)

; КОНЕЦ

5. Пример выполнения программы

Пример 1.

Рисунок 8 - Входные данные: последовательное соединение, интенсивность отказов элементов, период - 1 год