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

UptoLike

ВУЗ: 

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

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

Рубрика: 

16
T8 = T1 + T7 - (.6 * K / b) ^ (1 / a)
T9 = T1 + T8 - (.8 * K / b) ^ (1 / a)
T10 = T1 + T9 - (.85 * K / b) ^ (1 / a)
Fmin = 10 * Skp: Xmin = 1
FOR X = 1 TO INT(T10 + .5) STEP .1
35 L = 3: I = 1: H = Hn
40 GOSUB 140
50 I = I + 1
55 IF I > 10000 THEN 125
60 G = F
70 X = X + H
80 GOSUB 140
90 IF F < G THEN 50
X = X - H
100 H = H / L
110 IF ABS(H) > E / L THEN 50
115 IF Fmin >= F THEN Fmin = F ELSE 125
117 Xmin = X
120 PRINT "X="; X, "F="; F, "I="; I
125 NEXT X
127 PRINT "Xmin="; Xmin, "Fmin="; Fmin
PRINT "T1="; T1
PRINT "T2="; T2, , "(T2-T1)="; T2 - T1
PRINT "T3="; T3, , "(T3-T3)="; T3 - T2
PRINT "T4="; T4, , "(T4-T3)="; T4 - T3
PRINT "T5="; T5, , "(T5-T4)="; T5 - T4
PRINT "T6="; T6, , "(T6-T5)="; T6 - T5
PRINT "T7="; T7, , "(T7-T6)="; T7 - T6
PRINT "T8="; T8, , "(T8-T7)="; T8 - T7
PRINT "T9="; T9, , "(T9-T8)="; T9 - T8
PRINT "T10="; T10, "(T10-T9)="; T10 - T9
130 END
140 IF X <= T1 THEN F = Sisg / X
141 IF X > T1 AND X <= T2 THEN F = (Sisg + Sdp) / X
142 IF X > T2 AND X <= T3 THEN F = (Sisg + 2 * Sdp) / X
143 IF X > T3 AND X <= T4 THEN F = (Sisg + 2 * Sdp + Skp) / X
144 IF X > T4 AND X <= T5 THEN F = (Sisg + 3 * Sdp + Skp) / X
145 IF X > T5 AND X <= T6 THEN F = (Sisg + 4 * Sdp + Skp) / X
146 IF X > T6 AND X <= T7 THEN F = (Sisg + 4 * Sdp + 2 * Skp) / X
147 IF X > T7 AND X <= T8 THEN F = (Sisg + 5 * Sdp + 2 * Skp) / X
148 IF X > T8 AND X <= T9 THEN F = (Sisg + 6 * Sdp + 2 * Skp) / X
149 IF X > T9 AND X <= T10 THEN F = (Sisg + 7 * Sdp + 2 * Skp) / X
IF X > T10 AND X <= T10 + T1 THEN F = (2 * Sisg + 7 * Sdp + 2 * Skp) / X
150 RETURN
160 END

Страницы