ВУЗ:
Составители:
Рубрика:
21
Задание
1. Произвести расчеты на ЭВМ при различных вероятностях
первопричин, задаваясь их значениями, приведенными в
лабораторной работе №4.
2. Ввести в программу расчета дерева отказов статистические
характеристики распределения вероятностей первопричин,
представляя их как случайные величины
Практическое занятие
№5
Расчет критического пути и резервов времени
с помощью сетевого графика ремонта вагонов
Цель занятия:
Провести расчеты критического пути сетевого
графика при статистическом моделировании величин
времени ремонтных операций.
Программа нахождения операций «критического» пути и
резервов времени на языке Бейсик представлена ниже:
10 CLS
20 REM ПРОГРАММА СЕТЕВОГО ГРАФИКА
30 REM ПОДГОТОВКА МАТРИЦЫ ВОЗМОЖНЫХ ПЕРЕХОДОВ
40 K = 0
50 D = 20
60 DIM A$(21, 21), B$(21), C$(21), C1$(41), C2(41), C3(41), C4(41), C5(41), C6(41)
70 DIM A(21, 21), B(21), C(21), C7(41), C8(41), RS(21, 21), Thh(21, 21), Tho(21, 21)
75 DIM Tph(21, 21), Tpo(21, 21)
80 FOR I = 1 TO D
90 FOR J = 1 TO D
100 A(I, J) = -10000
110 IF I = J THEN A(I, J) = 0
120 NEXT J, I
130 REM ВВОД ПРОДОЛЖИТЕЛЬНОСТЕЙ РАБОТ
135 INPUT "ВВЕДИТЕ ФАМИЛИЮ: ", F$
140 A$(2, 5) = "(2-5)": A$(1, 2) = "(1-2)": A$(2, 3) = "(2-3)"
150 INPUT "ВВЕДИТЕ T(1-2),T(2-5),T(2-3): ", A(1, 2), A(2, 5), A(2, 3)
160 A$(4, 8) = "(4-8)": A$(8, 10) = "(8-10)": A$(2, 4) = "(2-4)"
170 INPUT "ВВЕДИТЕ T(4-8),T(8-10),T(2-4): ", A(4, 8), A(8, 10), A(2, 4)
180 A$(2, 6) = "(2-6)": A$(3, 7) = "(3-7)": A$(8, 11) = "(8-11)"
190 INPUT "ВВЕДИТЕ T(2-6),T(3-7),T(8-11): ", A(2, 6), A(3, 7), A(8, 11)
200 A$(8, 12) = "(8-12)": A$(5, 9) = "(5-9)": A$(15, 17) = "(15-17)"
210 INPUT "ВВЕДИТЕ T(8-12),T(5-9),T(15-17): ", A(8, 12), A(5, 9), A(15, 17)
220 A$(9, 16) = "(9-16)": A$(7, 18) = "(7-18)": A$(12, 13) = "(12-13)"
230 INPUT "ВВЕДИТЕ T(9-16),T(7-18),T(12-13): ", A(9, 16), A(7, 18), A(12, 13)
240 A$(12, 14) = "(12-14)": A$(14, 15) = "(14-15)": A$(16, 19) = "(16-19)"
250 INPUT "ВВЕДИТЕ T(12-14),T(14-15),T(16,19): ", A(12, 14), A(14, 15), A(16, 19)
260 A$(17, 20) = "(17-20)"
270 INPUT "ВВЕДИТЕ T(17,20): ", A(17, 20)
