ЗАДАЧА №2

ЗАДАЧА №1

1) В течение 2000 часов наблюдали за 480 видеоадаптерами. Определить статистическую вероятность безотказной работы этих устройств, если в течение указанного срока зарегистрировано 52 отказа, причем 12 из них произошли в первые 400 часов.

2) p*(t) – статистическая вероятность безотказной работы через t часов.

q(t) – статистическая вероятность отказов через t часов.

N – число поставленных на эксплуатацию приборов.

Δ n(t) - число отказавших ко времени t приборов.

N(t) – число приборов, оставшихся работоспособными к моменту времени t.

3)

4) Fortran:

PRINT *, " \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"

PRINT *, " Task #2.1"

PRINT *, " Chance p(t) = ", (480.0-52.0)/480.0

ЗАДАЧА №2

1) Найти статистическое распределение плотности вероятности отказов и Работа Романа статистическую кривую интенсивности отказов 500 блоков питания для ПЭВМ, испытанных на эксплуатационном режиме до полного отказа всех блоков. Отказы блоков питания подсчитаны через каждые 100 часов, результаты сведены в таблицу.

2) – статистическая вероятность безотказной работы через t часов.

– статистическая вероятность отказов через t часов.

– число поставленных на эксплуатацию приборов.

- число отказавших ко времени t приборов.

– число приборов, оставшихся работоспособными к моменту времени t.

– статистическое значение плотности вероятности отказов через t часов.

– интенсивность отказов на момент времени t.

3)

4)

5) Fortran:

SUBROUTINE task22

INTEGER i, t, s, k/2/, m/4/

REAL N, Nt, pt, lambda, deltaN(30)

DATA deltaN/9, 13, 16, 15, 11, 6, 3, 2, 4, 3, 2, 5, 2*3, 4, 3, 5, 11, 18, 27, 38, 48, 55, 52, 46, 42, 31, 15, 7, 3/

open(8, FILE=" C: \Users\Aleksey Skripkin\Documents\Fortran\out22.txt")

N = 500.0

t = 3000

s=1

PRINT *, " \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"

PRINT *, " Task #2.2"

WRITE (*, " (A6, 8X, A6, 8X, A6, 8X, A6, 8X, A6)") " t ", " d(t) ", " Nt ", " p(t) ", " lambda "

WRITE (8, " (A6, 8X, A6, 8X, A6, 8X, A6, 8X, A6)") " t ", " d(t) ", " Nt ", " p(t) ", " lambda"

DO i=100, 3000, 100

Nt=N-deltaN(s)

pt = deltaN(s)/Nt

lambda = (deltaN(s))/((N-deltaN(s))*100)

WRITE (*, " (I10, 3X, F10.5, 3X, F15.7, 3X, F10.8, 3X, F10.8)") i, deltaN(s), Nt, pt, lambda

WRITE (8, " (I10, 3X, F10.5, 3X, F15.7, 3X, F10.8, 3X, F10.8)") i, deltaN(s), Nt, pt, lambda

N=N-deltaN(s)

s=s+1

END DO

CLOSE(8)

END SUBROUTINE task22