ЗАДАЧА №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

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

Поиск по сайту: