ЗАДАЧА №1

Выполнил: Скрипкин Алексей

1) Испытания наблюдения велись за 1077 вентиляторами для ПЭВМ. Испытания проводятся в режиме нормальной эксплуатации до полного отказа всех ламп. Число отказов вентиляторов подсчитывалось в каждом интервале времени Δ t=500 часов. Результаты испытаний занесены в таблицу. Пользуясь данными таблицы построить график функции интенсивности отказов от времени и провести анализ этого графика.

2) N-число вентиляторов, Δ t-интервал времени, λ (t)- интенсивность отказов, n(t)- число отказавших ко времени t приборов, N(t) – число приборов, оставшихся работоспособными к моменту времени t.

3)

4) Fortran:

SUBROUTINE task31

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

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

DATA deltaN/60, 200, 197, 150, 128, 72, 40, 30, 7*20, 30, 20, 10 /

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

N = 1077.0

t = 3000

s=1

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

PRINT *, " Task #3.1"

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

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

DO i=500, 9000, 500

Nt=N-deltaN(s)

lambda = (deltaN(s))/(Nt*500)

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

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

N=N-deltaN(s)

s=s+1

END DO

CLOSE(8)

END SUBROUTINE Task31

Согласно графику интенсивность отказов резко возрастает и достигает наибольшего значения на последних временных интервалах. Это можно объяснить тем, что на этих интервалах значения количеств рабочих устройств и устройств отказывающих различаются не так значительно, как на первых временных интервалах.