ЗАДАЧА №2. 1) Испытаниям на надежность в номинальном рабочем режиме подверглись 900 лазерных головок дисководов вплоть до отказа всех этих приборов

1) Испытаниям на надежность в номинальном рабочем режиме подверглись 900 лазерных головок дисководов вплоть до отказа всех этих приборов. Лазерные головки дисководов относятся к элементам стареющего типа, их отказы считаются независимыми, имеют случайный характер и в ходе испытания подсчитывались через каждые 200 часов наработки. Результаты испытания приведены в таблице. Определить среднюю наработку головки дисковода до отказа, построить график вероятности безотказной работы p*(t), график вероятности отказа q*(t), график плотности вероятности отказов f*(t), график интенсивности отказов λ *(t) в собственных осях координат и провести анализ этих графиков. Определить общую вероятность безотказной работы лазерных головок дисковода с учетом внезапных и постепенных отказов к моменту времени t=5800 от начала испытания.

2) f*(t) - статистическая плотность вероятности отказов.

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

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

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

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

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

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

3)

4) Fortran:

SUBROUTINE task32

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

REAL N, Nt, ntl/0/, pt, qt, ft, lambda, deltaN(30)

DATA deltaN/30, 36, 40, 42, 35, 27, 18, 16, 15, 13, 15, 12, 11, 10, 9, 11, 8, 2*12, 21, 39, 52, 61, 74, 82, 80, 56, 25, 23, 15/

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

N = 900

s=1

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

PRINT *, " Task #3.2"

WRITE (*, " (A6, 8X, A6, 8X, A6, 8X, A6, 8X, A6)") " t ", " deltaN ", " ntl ", " pt ", " qt "

WRITE (8, " (A6, 1X, A6, 1X, A6, 1X, A6, 1X, A6)") " t ", " deltaN ", " ntl ", " pt ", " qt "

DO i=200, 6000, 200

ntl = ntl + deltaN(s)

pt = deltaN(s)/ntl

qt = ntl/N

WRITE (*, " (I10, 3X, F11.8, 3X, F11.5, 3X, F11.8, 3X, F11.8, 3X, F11.8, 3X, F11.8, 3X, F11.8)") i, deltaN(s), ntl, pt, qt

WRITE (8, " (I10, 1X, F11.8, 1X, F11.5, 1X, F11.8, 1X, F11.8, 1X, F11.8, 1X, F11.8, 1X, F11.8)") i, deltaN(s), ntl, pt, qt

N=N-deltaN(s)

s=s+1

END DO

N = 900.0

s = 1

CLOSE(8)

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

WRITE (*, " (A6, 8X, A6, 8X, A6, 8X, A6, 8X, A6, 8X, A6)") " t ", " deltaN", " N ", " Nt ", " ft ", " lambda"

WRITE (8, " (A6, 1X, A6, 1X, A6, 1X, A6, 1X, A6, 1X, A6)") " t ", " deltaN", " N ", " Nt ", " ft ", " lambda"

DO i=200, 6000, 200

Nt = N - deltaN(s)

ft = deltaN(s)/Nt

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

WRITE (*, " (I10, 3X, F11.5, 3X, F11.8, 3X, F11.5, 3X, F11.8, 3X, F11.8)") i, N, deltaN(s), Nt, ft, lambda

WRITE (8, " (I10, 1X, F11.5, 1X, F11.8, 1X, F11.5, 1X, F11.8, 1X, F11.8)") i, N, deltaN(s), Nt, ft, lambda

N=N-deltaN(s)

s=s+1

END DO

CLOSE(8)

END SUBROUTINE Task32

Согласно графикам p*(t) и q*(t) статистическая вероятность безотказной работы за время наблюдения уменьшается, так как увеличивается интенсивность отказов (график λ *(t)). Интенсивность же отказов увеличивается из-за того, что концу наблюдения рабочих головок осталось значительно меньше, чем общее число отказавших за все время наблюдения. График q*(t) симметричен относительно диагонали к графику p*(t), что отображает с уменьшением вероятности безотказной работы увеличение вероятности отказов к концу времени наблюдения. На графике f*(t) отображена плотность вероятности отказов, которая также увеличивается, как и интенсивность отказов.