Математическое моделирование вагонов в расчетах на ЭВМ. Балалаев А.Н. - 17 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

17
1470 GOTO 630
1480 REM "НАХОЖДЕНИЕ B3(i)"
1490 B3(I) = 0
1500 FOR L1 = 1 TO I
1510 X6 = B(L1)
1520 FOR J = 1 TO X6
1530 IF A3(L1, J) = I THEN B3(I) = B3(I) + 1
1540 NEXT J
1550 NEXT L1
1560 IC = IC + 1
1570 IF IC > 5 THEN GOTO 1610
1580 IF B3(M1) = B30 THEN GOTO 1610
1590 B30 = B3(M1)
1600 GOTO 470
1610 I = I + 1: IC = 0: REM "КОНЕЦ ЦИКЛА ПО i"
1620 GOTO 450
1630 FOR I = 1 TO NN
1640 JN = B(I)
1650 FOR J = 1 TO JN
1660 A33 = A3(I, J): A11 = A1(I, J)
1670 T = T + A33 - A11
1680 TR = TR + A2(I, J) - A1(I, J)
1690 NEXT J
1700 B3 = B3 + B3(I)
1710 NEXT I
1720 PRINT
1725 PRINT TAB(10); , "ВАРИАНТ = "; A5, "РАСЧЕТ = "; LI
1730 IF N33 < .5 THEN GOTO 1760
1740 PRINT TAB(10); , "МЕТОД РАБОТ - ОБЕЗЛИЧЕН"
1750 GOTO 1790
1760 PRINT TAB(10); , "МЕТОД РАБОТ - НЕОБЕЗЛИЧЕН"
1790 PRINT TAB(4); , "ЧИСЛО ОТРЕМОНТИРОВАННЫХ ВАГОНОВ = "; B3
1800 PRINT TAB(4); , "СРЕДНИЙ ПРОСТОЙ В РЕМОНТЕ ="; 24 * T / B3; " Час."
1805 PRINT TAB(4); , "СРЕДНИЙ ПРОСТОЙ В ОЧЕРЕДИ ="; 24 * TR / B3; " Час."
1810 PRINT
1855 PRINT
NEXT LI
1880 END
Задание
1. Произвести расчеты на ЭВМ при различных режимах работы
бригад (обезличенный и не обезличенный метод), задаваясь
значениями коэффициента снижения качества ремонта при
обезличенном методе K
τ
=1,05; 1,10; 1,15.
2. Ввести в программу расчета депо статистические характеристики
распределения случайных величин: числа поступивших в день
вагонов и времени их обслуживания, взяв их из результатов
лабораторной работы №3.

Страницы