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

( 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)