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

UptoLike

ВУЗ: 

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

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

Рубрика: 

14
Программа статистической модели пассажирского депо на
языке Бэйсик имеет следующий листинг.
10 REM "ПРОГРАММА ММD - МАТЕМАТИЧЕСКАЯ МОДЕЛЬ ДЕПО"
20 REM "РАЗРАБОТЧИК - БАЛАЛАЕВ А.Н."
50 INPUT "ВВЕДИТЕ ЧИСЛО ДНЕЙ РАССМАТРИВАЕМОГО ПЕРИОДА N =", N
60 INPUT "ВВЕДИТЕ ЧИСЛО ПОТОЧНЫХ ЛИНИЙ (ПУТЕЙ) NP =", NP
70 INPUT "ВВЕДИТЕ ЧИСЛО ВАГОНОВ НА 1 ПОЗИЦИИ ЗА ДЕНЬ KB =", KB
80 INPUT "ВВЕДИТЕ ЧИСЛО ПОЗИЦИЙ CP =", CP
90 INPUT "ВВЕДИТЕ MX,DX,MT,DT =", MX, DX, MT, DT
100 INPUT "ЕСЛИ МЕТОД ОБЕЗЛИЧЕН, ВВЕСТИ: 1, ИНАЧЕ: 0 "; N33
PRINT "ВВЕДИТЕ ПОТЕРИ ВРЕМЕНИ В ЧАСАХ НА ВВОД-ВЫВОД ВАГОНОВ ПРИ
ПЕРЕСМЕНКАХ "
INPUT "(ДЛЯ ОБЕЗЛИЧЕННОГО МЕТОДА РЕКОМЕНДУЕТСЯ - 0) "; DTT
PRINT "ВВЕДИТЕ КОЭФФИЦИЕНТ СНИЖЕНИЯ КАЧЕСТВА РЕМОНТА ПРИ
ОБЕЗЛИЧЕННОМ "
INPUT "МЕТОДЕ - Kt, (ДЛЯ НЕОБЕЗЛИЧЕННОГО РЕКОМЕНДУЕТСЯ Kt=1) "; KT
DIM B(N), B1(N), B2(N), B3(N), T(N, 30), TB(30)
DIM A1(N, 30), A2(N, 30), A3(N, 30), M0(30)
INPUT "ВВЕДИТЕ НОМЕР СВОЕГО ВАРИАНТА ", A5
FOR LI = 1 TO 3
110 N1 = NP * KB: N2 = N1 * CP
120 T = 0: B3 = 0
130 TR = 0: NN = N: N = N + 1
160 E1 = 0: E3 = 0: N = NN
170 REM
180 E1 = E1 + 1
190 E2 = RND(E1 + LI + A5)
200 IF E1 <= A5 * 10 THEN GOTO 180
210 FOR I = 1 TO N
220 Y1 = 0: Y2 = 0: RANDOMIZE (I + E1 + LI + A5)
230 FOR I1 = 1 TO 12
240 Y1 = Y1 + RND(I1 + E1 + LI + A5)
250 NEXT I1
260 X0 = Y1 - 6
270 B(I) = INT(MX + X0 * SQR(DX) + .5)
280 X4 = B(I)
290 IF X4 < 0 THEN X4 = 0: B(I) = X4
300 E3 = E3 + 1
310 E4 = RND(1)
320 IF E3 <= A5 * 5 THEN GOTO 300
330 FOR J = 1 TO X4
340 FOR I2 = 1 TO 2
350 Y2 = Y2 + RND(I2)
360 NEXT I2
370 Y0 = Y2 / SQR(2)
380 XT = Y0 - 41 / 13440 / 4 * (Y0 ^ 5 - 10 * Y0 ^ 3 + 15 * Y0)
390 T(I, J) = KT * INT((MT + XT * SQR(DT)) / 24 / 2 + .5) * 12:
400 IF T(I, J) <= 0 THEN T(I, J) = 12
410 A1(I, J) = I: A2(I, J) = I: A3(I, J) = I
420 NEXT J

Страницы