 |
Функциональные модели и блок-схемы решения задачи
|
|
|
|
Функциональные модели и блок-схемы решения задачи представлены на рисунке 2 - 7.
Условные обозначения: LST - интенсивность отказов элементов; P - работоспособность системы; L - интенсивность отказов элементов; TME - период работы системы; X - рабочая переменная.
Рисунок 2 - Функциональная модель решения задачи для функции CAPACITY_IN_CASCADE_CON
Рисунок 3 - Функциональная модель решения задачи для функции FALL_OVER_IN_CASCADE_CON
Рисунок 4 - Функциональная модель решения задачи для функции CAPACITY_RANDOM_TIME
Рисунок 5 - Функциональная модель решения задачи для функции TIME_BEFORE_FALL_OVER
Рисунок 6 - Функциональная модель решения задачи для функции CAPACITY_PARALLEL_CON
Рисунок 7 - Функциональная модель решения задачи для функции FACTORIAL
Программная реализация решения задачи
; P - РАБОТОСПОСОБНОСТЬ СИСТЕМЫ
; Q - ОТКАЗ СИСТЕМЫ
; 1 - ПОСЛЕДОВАТЕЛЬНОЕ СОЕДИНЕНИЕ - CASCADE_CONNECT
; 2 - ПАРАЛЛЕЛЬНОЕ НАГРУЖЕННОЕ СОЕДИНЕНИЕ - PARALLEL_CONNECT_LOAD
; 3 - ПАРАЛЛЕЛЬНОЕ НЕ НАГРУЖЕННОЕ СОЕДИНЕНИЕ - PARALLEL_CONNECT
; РАБОТОСПОСОБНОСТЬ СИСТЕМЫ ПРИ ПОСЛЕДОВАТЕЛЬНОМ СОЕДИНЕНИИ
( DEFUN CAPACITY_IN_CASCADE_CON (LST)
(COND
((NULL LST) 0)
((ATOM LST) LST)
(T (* (CAPACITY_IN_CASCADE_CON (CAR LST)) (CAPACITY_IN_CASCADE_CON (CDR LST))))
)
)
; ВЕРОЯТНОСТЬ ОТКАЗА СИСТЕМЫ
( DEFUN FALL_OVER_IN_CASCADE_CON (P)
(- 1 P)
)
; ПРИ ПРОИЗВОЛЬНОМ ЗАКОНЕ РАСПРЕДЕЛЕНИЯ ВРЕМЕНИ
; ИНТЕНСИВНОСТЬ ОТКАЗОВ СИСТЕМЫ
( DEFUN FALL_OVER_RANDOM_TIME (LST)
(COND
((NULL LST) 0)
((ATOM LST) LST)
(T (+ (FALL_OVER_RANDOM_TIME (CAR LST)) (FALL_OVER_RANDOM_TIME (CDR LST))))
)
)
; ВЕРОЯТНОСТЬ БЕЗОТКАЗНОЙ РАБОТЫ СИСТЕМЫ
( DEFUN CAPACITY_RANDOM_TIME (L TME)
(EXP (* - 1 L TME))
)
; НАРАБОТКА ДО ОТКАЗА СИСТЕМЫ
( DEFUN TIME_BEFORE_FALL_OVER (L)
(/ 1 L)
)
; ПАРАЛЛЕЛЬНОЕ НАГРУЖЕННОЕ
; ВЕРОЯТНОСТЬ ОТКАЗА
( DEFUN FALL_OVER_PARALLEL_CON_LOAD (LST)
(COND
((NULL LST) 1)
((ATOM LST) LST)
(T (* (FALL_OVER_PARALLEL_CON_LOAD (CAR LST)) (FALL_OVER_PARALLEL_CON_LOAD (CDR LST))))
|
|
|
)
)
; ПАРАЛЛЕЛЬНОЕ НЕНАГРУЖЕННОЕ
( DEFUN FACTORIAL (X)
(COND
((EQL X 0) 1)
((EQL X 1) 1)
(T (* X (FACTORIAL (- X 1))))
)
)
(DEFUN SUM_CAPACITY_PARALLEL_CON (L TME N)
(COND
((= N - 1) 0)
(T (FLOAT (+ (/ (EXPT (* L TME) N) (FACTORIAL N)) (SUM_CAPACITY_PARALLEL_CON L TME (- N 1)))))
)
)
; РАБОТОСПОСОБНОСТЬ СИСТЕМЫ
( DEFUN CAPACITY_PARALLEL_CON (L TME N)
(* (SUM_CAPACITY_PARALLEL_CON L TME N) (EXP (* - 1 L TME)))
)
(DEFUN GET_RES (CON L TME OUPUT)
(COND
; ПОСЛЕДОВАТЕЛЬНОЕ СОЕДИНЕНИЕ
( (= CON 1)
(SETQ L (FALL_OVER_RANDOM_TIME L))
(PRINT (LIST 'INTENSIVNOST_OTKAZA '= L) OUPUT)
(PRINT (LIST 'VEROYATNOST_BEZOTKAZNOI_RABOTY '= (CAPACITY_RANDOM_TIME L TME)) OUPUT)
(PRINT (LIST 'SREDNYA_NARABOTKA_DO_OTKAZA '= (TIME_BEFORE_FALL_OVER L)) OUPUT)
)
; ПАРАЛЛЕЛЬНОЕ НАГРУЖЕННОЕ СОЕДИНЕНИЕ
( (= CON 2)
(PRINT (LIST 'VEROYATNOST_OTKAZA '= (FALL_OVER_PARALLEL_CON_LOAD L)) OUPUT)
(SETQ NUM (LENGTH L))
(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)
; КОНЕЦ
|
|
|
