1414 Next j:color 7,0

A$ = INPUT$(1):IF ASC(A$) >< 13 THEN 1412

NKP = 4:NKP$ = "Д4.1":NWM = 3:NWM$ = "Д4.3"

ZCK = 3:ZCKP = 1:ZCM = 3:ZKM = 1:ZSH = 2

RESTORE 1415: FOR J = 1 TO I:READ MT$:NEXT J

1415 Data "т-70с","т-74","дт-75м","дт-175","т-150","т-4а","т-100","т-130"

PRINT #4, "В качестве прототипа ходовой части выбрана х.ч. тр-ра";MT$;", у которой:"

PRINT #4, USING "& ###.##&";" шаг звена гусеницы t = ";TZW(I);"мм,"

PRINT #4, USING "& ###.## ";" число звеньев за оборот звездочки z = ";ZZW(I)

A(38) = TZW(I)*ZZW(I)/PI/2000 'Динамический радиус звездочки в м

1416 PF = GM*A(8) 'кН

PRINT #4, USING "& ###.##&";" Динамический радиус - ";A(38);"м"

PRINT #4, USING "& ###.##&";" Сила сопротивления качению - ";PF;"кН"

FOR I = 1 TO 7:B(I) = 0:NEXT I

B(36) = (S(22) + PF)*A(38)*1000/A(21)/A(12):B(1) = B(36)/A(37) 'Пер.ч.на 1-й п.

PRINT #4, USING "& ###.##&";" Передаточное число тр.на 1-й передаче - ";B(1);" "

PRINT #4, USING "& ##.##"; " Принятое передаточное число главной передачи - ";A(37)

PSO = 1/(S(23)-1)

B(39) = ((S(22)/A(34) + PF)/(S(22) + PF))^PSO ' Знам.геом. прогр. g - B(39)

PRINT #4, USING "& ###.##&";" Знаменатель геометрической прогрессии - ";B(39);" "

SM = 0

FOR I = 1 TO S(23)-1

B(I+1) = B(1)*B(39)^I

NEXT I:J = I

B(S(23)+S(24)) = .12*A(38)*PI*A(15)/A(35)/A(37)

IF S(24) = 2 THEN:B(J+1) = B(J)*SQR(B(J+2)/B(J))

GOTO 1450

1440 'Расчет Автомобиля

PRINT #4, " Определение параметров трансмиссии автомобиля "

I0 = 38:IK = 42

A(40) = .8

1441 Gosub 2080 'Редактирование

ZAMETC% = 0:GOSUB 2090:IF ZAMETC% >< 0 THEN 1441

GM = (S(22)*(1 + 1/A(1)) + 75*A(2))*9.81/1000! 'kN

ZP = S(25)

'PW = A(4)*A(3)*(S(23)^2)/13

FOR J = 1 TO S(25):ZC(J) = 0:ZK(J) = 0:NEXT J

PRINT #4, USING "& ###.##&";" Вес автомобиля - ";GM;"кН "

PRINT #4, USING "& ###.##&";" Количество шин, всего - ";ZSCH;" "

NSCH = A(40)*GM/ZSCH 'kN PRINT "NSCH = ";NSCH;" kN"

U = 2:GOSUB 1490

A(38) = (DP/2 + .95*BP)/1000! ' N$,NS,BP,DP,RST

GOSUB 1403

PRINT #4, USING "& ###.##&";" Динамический радиус - ";A(38);"м"

B(41) = .12*PI*A(38)*A(15)/S(23) 'Передаточное число главной передачи

B(42) = (GM*S(24)*A(38)*1000!)/(A(31)*A(21)*B(41)*A(5)) 'Перед. число 1-й ступ. КП

PSO = 1/(S(25)-1):B(39) = B(42)^PSO 'Знам.геом.прогресии ( >1 )

SM = 7

PRINT #4, USING "& ###.##&";" Передаточное число главной передачи - ";B(41);" "

PRINT #4, USING "& ###.##&";" Передаточное число 1-й ступени КП - ";B(42);" "

PRINT #4, USING "& ###.##&";"Знаменатель геометрической прогрессии - ";B(39);" "

FOR I = 1 TO S(25)

B(I+SM) = B(39)^(S(25)-I)

NEXT I

NKP = 1:NKP$ = "Д4.4":IF S(25) > 1 THEN:NKP$ = "Д4.5"

NWM = 1:NWM$ = "Д4.9"

ZCK = 2:ZCKP = 0:ZCM = 1:ZKM = 1:ZSH = 2

1450 Gosub 142

PRINT #4, " Коробка передач - по схеме ";NKP;", приложение ";NKP$

PRINT #4, " Количество цилиндрических зацеплений КП для высшей передачи:";ZCKP

PRINT #4, " Количество цилиндрических зацеплений КП остальных передач:";ZCK

PRINT #4, " Ведущий мост - по схеме ";NWM;", приложение ";NWM$

PRINT #4, " Количество цилиндрических зацеплений ведущего моста:";ZCM

PRINT #4, " Количество конических зацеплений ведущего моста:";ZKM

PRINT #4, " Количество шарнирных соединений в агрегатах трансмиссии:";ZSH

FOR I = 1 TO ZP-1:ZC(I) = ZCK + ZCM:ZK(I) = ZKM:NEXT I

ZK(I) = ZKM:ZC(I) = ZCM+ZCKP

I0 = 43:IK = 47