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

UptoLike

ВУЗ: 

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

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

Рубрика: 

10
()
[]
()
хT
K
хT
bK
K
с
С
опт
a
нач
опт
a
нач
n
bK
др
−
−
−Δ+−
+Δ−
⋅
=
1
1
1
1
. (4)
Оптимальные сроки между деповскими ремонтами и после
капитальных ремонтов определяются аналогично. Меняются лишь
значения K
нач
и Т
1
, (данные величины определены в лабораторной
работе №2).
Листинг программы на языке Бэйсик выглядит следующим
образом.
5 REM "Опpеделение сpоков между деповскими pемонтами"
6 INPUT "Ввод левой гpаницы отpезка А (A=0) "; A
7 INPUT "Ввод пpавой гpаницы отpезка В (B=5) "; B
8 INPUT "Ввод заданной точности Е "; E
9 n = .5
10 DK = .3
11 K1 = 1
12 a1 = .6
14 c1 = 200
16 b1 = .1731
17 Cdp = 150
18 T1 = (DK / b1) ^ (1 / a1)
20 Ik = INT(LOG((B - A) / E) / LOG(2) + 2.5)
25 I = 0: D = 1
30 C = 1
40 DEF FNY (X) = Cdp – c1 * ABS(1 – K1 + DK - b1 * ABS(T1 - X) ^ a1) ^ n / (K1 - DK + b1
* (T1 - X)^a1)
50 Y1 = (FNY(A)) * C
60 IF Y1 >= 0 THEN 90
70 C = -1
80 GOTO 50
90 I = I + 1
100 XI = (A + B) / 2
110 YI = C * (FNY(XI))
120 IF YI >= 0 THEN 140
130 B = XI: GOTO 145
140 A = XI
145 IF A <> 0 THEN D = ABS((B - A) / A) ELSE D = ABS((B - A) / B)
150 IF D > E THEN 180
160 PRINT "X="; XI, "I="; I, "Ik="; Ik
170 GOTO 200
180 IF I < Ik THEN 90
190 PRINT "I="; I, "Ik="; Ik
200 END

Страницы