1302 Next y

PRINT TAB(22) " Регуляторный участок:"

PRINT #4, TAB(22) " Регуляторный участок:"

FOR Y = 1 TO 5

IF A(55+Y) = 0 THEN 1304

NE = A(55+Y)*A(60+Y)/9550!:GU = A(65+Y)*1000!/NE

PRINT USING " ####.## ";A(55+Y);NE;A(60+Y);GU;A(65+Y)

PRINT #4, USING " ####.## ";A(55+Y);NE;A(60+Y);GU;A(65+Y)

1304 Next y

PRINT TAB(22) " Точка холостого хода: "

PRINT #4, TAB(22) " Точка холостого хода: "

PRINT USING " ####.## ####.## ####.## & ####.## ";_

A(79);B;B;B$;A(99)

PRINT #4, USING " ####.## ####.## ####.## & ####.## ";_

A(79);B;B;B$;A(99)

D = .15:GOSUB 150:GOSUB 142

S(2) = 8

PRINT " Расчет характеристики закончен! "

PRINT #4, TAB(22) " --------- Расчет характеристики закончен --------- "

GOSUB 150:GOSUB 142 ':IF F$ = "#" THEN 136

1400 Print " Введите принятые Вами коэффициенты и параметры: "

' Трактор

IF S(29) = 2 THEN 1440 'Расчет автомобиля

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

ZP = S(23) + S(24)

GM = A(9)*S(22)/(A(10)*A(11)-A(8)) 'Вес трактора, кН

IF S(21) = 1 THEN 1404 'Расчет гусеничного трактора

NKP = 2:NKP$ = "Д4.1":NWM = 5:NWM$ = "Д4.2"

ZCK = 2:ZCKP = 0:ZCM = 1:ZKM = 1:ZSH = 1 'ЧИСЛО ПЕРЕДАЧ И ШАРНИРОВ

I0 = 33:IK = 39

1402 A(33) = MNO*1.2

A(34) = MNO*1.6

A(35) = MNO*35

A(37) = MNO*6

GOSUB 2080

ZAMETC% = 0:GOSUB 2090: IF ZAMETC% >< 0 THEN 1402 'Проверка

NSCH = A(10)*A(33)*GM/ZSCH 'Нагрузка на шину, кН =

U = 1:GOSUB 1490 'Выбор шин

A(38) = (DP/2 + .85*BP)/1000! 'N$,NS%,BP,DP,RST,RST1 - возврат из 1490

PRINT #4, USING "& ###.##&";" Вес трактора - ";GM;"кН "

GOSUB 1403

GOTO 1416

1403 Print #4, using "& ###.##&";" Нагрузка на шину - ";nsch;"кН"

PRINT #4, " По справочным данным выбрана шина ";N$;"(N";NS%;"), у которой:"

PRINT #4, USING "& ###.## & ###.##&";" допустимая нагрузка - ";RST;"-";RST1;"кН,"

PRINT #4, USING "& ###.##&";" ширина профиля В = ";BP;"мм,"

PRINT #4, USING "& ###.##&";" посадочный диаметр D = ";DP;"мм."

RETURN

1404 'D(35,0) = 12:D(35,1) = 25

I0 = 34:IK = 39

1405 A(34) = MNO*1.5

A(35) = MNO*18

A(37) = MNO*9

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

ZAMETC% = 0:GOSUB 2090:IF ZAMETC% >< 0 THEN 1405 'Проверка

PRINT #4, " Вес трактора - ";GM

1410 Data 170,170,170,170,170,171,203,203

DATA 11.5,12, 13, 13, 14, 14, 13, 13

RESTORE 1410

FOR I = 1 TO 8:READ TZW(I):NEXT I

FOR I = 1 TO 8:READ ZZW(I):NEXT I

GOSUB 142:I = 0

PRINT "Укажите гусеничный движитель, принятый к расчету в качестве прототипа:"

PRINT

PRINT " Т-70С Т-74 ДТ-75М ДТ-175 Т-150 Т-4А Т-100 Т-130"

PRINT " 20 30 30 30 30 40 60 60 "

PRINT "t,мм 170 170 170 170 170 171 203 203 "

PRINT "z 11.5 12 13 13 14 14 13 13 "

1412 INCR I:IF I > 8 THEN:I = 1

FOR J = 1 TO 8

COLOR 7,0:LOCATE 11,J*9-2:IF J = I THEN:COLOR 22,2:PRINT " ^ ":GOTO 1414

PRINT " "