1199 Cls:print " вторая часть расчетной работы - расчет трактора (автомобиля)"

OPEN "PERPAR2" FOR INPUT AS #1

FOR I = 1 TO 55

INPUT #1, A$(I),D(I,0),D(I,1)

Z1$ = MID$(A$(I),1,1)

IF Z1$ >< "*" THEN

SLT = RND(1):MNO = 1.0

IF SLT > .6 THEN: MNO = 1.1

IF SLT < .4 THEN: MNO = 0.9

A(I) = MNO*(D(I,0)+D(I,1))/2

IF I = 2 THEN:A(I) = INT(A(I))

PRINT USING " ####.#### "; A(I),

END IF

NEXT I

CLOSE #1

1200 'Подпрограмма проверки данных первого раздела

FOR I=1 TO 3:A(18+I)=A(69+I):NEXT I

A(22) = A(84):A(23) = A(86)

FOR I = 1 TO 21:D(I,0) = A(I)*.97:D(I,1) = A(I)*1.03:NEXT I

D(22,0) = 1.02*A(15):D(22,1) = 1.3*A(15)

D(23,0) = .2*A(20):D(23,1) = .35*A(20)

FOR I = 1 TO 6:A(23+I) = A(93+I):NEXT I

FOR I = 30 TO 55:A(I) = 1:NEXT I

FOR I = 56 TO 70:A(I) = 0:NEXT I

FOR I = 1 TO 30:A(70+I) = A(100+I):NEXT I

FOR I = 1 TO 3:A(69+I*10)=0:A(70+I*10)=0:NEXT I

FOR I = 4 TO 19:S(I) = 0:NEXT I

FOR I = 2 TO 7:S$(I) = "":NEXT I

A(43) = .985:A(44) = .975:A(45) = .96:A(46) = .99:A(47) = .97

A = 0:U = 0

FOR Y = 1 TO 8 'Проверка наличия точки х.х.

IF A(70+Y) > 0 AND A(80+Y) = 0 THEN:INCR U:A = Y

NEXT Y

A(89) = 0

IF U = 0 THEN:A(79) = A(22):A(99) = A(23)

IF U = 1 THEN:A(79) = A(70+A):A(99) = A(90+A):A(70+A) = 0:A(90+A) = 0

FOR I = 1 TO 3

FOR Y = 1 TO 9

F(I,Y) = A(60+10*I+Y)

NEXT Y

NEXT I

1202 U = 0:FMAX = 0

FOR Y = 2 TO 8 'Сортировка по возрастанию n TO 9

IF F(1,Y-1)>F(1,Y) THEN:U=1:FOR I=1 TO 3:SWAP F(I,Y-1),F(I,Y):NEXT I

NEXT Y

IF U = 1 THEN 1202

NM = 0:GT = 0:MK = 0

FOR Y = 1 TO 8

IF F(2,Y) > MK THEN:MK = F(2,Y):U = Y 'Определение Мmax

IF F(1,Y) > NM THEN:NM = F(1,Y) 'Опред.n max

NEXT Y

FOR I = 1 TO 3

FOR Y = 1 TO 8:A(60+10*I+Y) = F(I,Y):NEXT Y

NEXT I

A(30)=(A(79) - NM)*200!/(A(79)+NM) 'неравномерность регулятора дельта

A(31)=F(2,U)/A(21) 'kм

A(32)=A(15)/F(1,U) 'kоб

PRINT #4, " Параметры характеристики двигателя:"

PRINT #4, USING "& ##.####&";" Степень неравномерности регулятора - ";A(30);"%"

PRINT #4, USING "& ##.####"; " Коэффициент приспосабливаемости по моменту - ";A(31)

PRINT #4, USING "& ##.####"; "Коэффициент приспосабливаемости по оборотам - ";A(32)

S(2) = 7

PRINT " Проверка данных выполнена "

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

1300 ' Pасчет регуляторной характеристики

NM = 0:GT = 0:MK = 0

FOR Y = 1 TO 8

IF A(70+Y) > NM THEN:NM = A(70+Y):GT = A(90+Y):MK = A(80+Y) 'Опред.n max

NEXT Y

ZN% = (A(79)-NM)/5

ZM% = MK/5

ZG = (GT-A(99))/5

FOR Y = 1 TO 4

A(55+Y) = NM + ZN%*Y 'n,об/м

A(60+Y) = MK - ZM%*Y 'Mк, Нм

A(65+Y) = GT - ZG*Y 'Gт,кг/ч

NEXT Y

B$ = " - ":B = 0

PRINT TAB(60) "Таблица ___ "

PRINT " Расчетная характеристика проектируемого двигателя "

PRINT " Част.вращ. Эффективн. Эф. крут. Уд. расход Час.расх. "

PRINT " КВ,об/мин мощн.,кВт мом., Нм топл.,г/кВтч топл.,кг/ч "

PRINT TAB(22) " Корректорный участок:"

PRINT #4, " Регуляторная характеристика в функции крутящего момента: "

PRINT #4, TAB(60) "Таблица ___ "

PRINT #4, " Част.вращ. Эффективн. Эф. крут. Уд. расход Час.расх. "

PRINT #4, " КВ,об/мин мощн.,кВт мом., Нм топл.,г/кВтч топл.,кг/ч "

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

FOR Y = 1 TO 8

IF A(70+Y) = 0 THEN 1302

NE = A(70+Y)*A(80+Y)/9550!:GU = A(90+Y)*1000!/NE

PRINT USING " ####.## ";A(70+Y);NE;A(80+Y);GU;A(90+Y)

PRINT #4, USING " ####.## ";A(70+Y);NE;A(80+Y);GU;A(90+Y)