1700 'Общие между модулями подпрограммы расчета 2 части кр

1710 KA = .08:KB = .07:KK = 2

IF S(21) = 1 THEN:KA = .02:KB = .05:KK = 1

IF S(21) = 3 THEN:KA = .10:KB = .04:KK = 1

RETURN

1720 ZR = 0:ZB = 0 'Подпрограмма считывания точек характеристики ДВС

FOR I = 1 TO 8

IF A(I+70) > 0 THEN:INCR ZB

NEXT I

FOR I = 1 TO 5

IF A(I+55) > 0 THEN:INCR ZR

NEXT I

N0 = 0:N2 = ZR + ZB + 1:N3 = 3*N1:N4 = N1*N2

DIM T(N1,N2,12)

FOR I = 1 TO N1

N0 = 0

FOR J = 1 TO 8

IF A(J+70) > 0 THEN

INCR N0:T(I,N0,1) = A(J+70) 'n

T(I,N0,2) = A(J+80) 'M

T(I,N0,12) = A(J+90) 'G

END IF

NEXT J

FOR J = 1 TO 5

IF A(J+55) > 0 THEN

INCR N0:T(I,N0,1) = A(J+55)

T(I,N0,2) = A(J+60)

T(I,N0,12) = A(J+65)

END IF

NEXT J

NEXT I

RETURN

1722 'Расчет хар-ки автомобиля. I - передача!

T(I,J,3) = T(I,J,2)*A(41)*A(7+I)*A(41+I)/A(38)/1000 'тек.значение Рк в Н

T(I,J,0) = T(I,J,1)*T(I,J,2)/9550! 'мощность Ne кВт

T(I,J,4) = T(I,J,0)*A(41+I) 'мощность на колесах в кВт

T(I,J,5) = PI*T(I,J,1)*A(38)/(30*A(41)*A(7+I)) 'скорость движения м/с

T(I,J,6) = A(33)*PSI*T(I,J,5) 'мощность сопр. дороги кВт

T(I,J,7) = A(3)*A(4)*(T(I,J,5)^2)/1000 'Pw в кН

T(I,J,8) = T(I,J,7)*T(I,J,5) 'Nw в кВт

T(I,J,9) = T(I,J,4) - T(I,J,6) - T(I,J,8) 'запас мощности в кВт

IF T(I,J,9) < -99.9 THEN:T(I,J,9) = -99.9

T(I,J,10) = (T(I,J,3) - T(I,J,7))/G0 'Do дин. фактор порожн.авт.

T(I,J,11) = (T(I,J,3) - T(I,J,7))/A(33) 'Dп дин. фактор груж. авт.

RETURN

2080 I = I0 - 1:POM% = 0

2082 Incr I

IF I=IK THEN:BEEP:COLOR 17,7:LOCATE 23,25:PRINT " Последний параметр! ":COLOR 7,0

IF I > IK THEN 142

2084 FOR G = -1 TO 5

COLOR 1,0

IF I+G < I0 OR I+G > IK THEN:LOCATE 10+G,1:PRINT SPACE$(78):GOTO 2085

IF G = 0 THEN:COLOR 0,3

Z1$ = MID$(A$(I+G),1,1):IF Z1$ = "*" THEN:COLOR 0,5

LOCATE 10+G,1:PRINT USING "& #####.#####";A$(I+G);A(I+G)

2085 Next g

COLOR 18,0

LOCATE 21,5:PRINT "Если отмеченный параметр не требует изменений - <ПРОБЕЛ> или <Esc> "

COLOR 7,0

2086 F$ = INPUT$(1)

IF F$ = " " THEN 2082

IF ASC(F$) = 33 THEN 142

IF ASC(F$)=27 AND I>I0 THEN:LOCATE 23,25:PRINT SPACE$(40):I=I-1:GOTO 2084

IF ASC(F$) < 45 OR ASC(F$) > 57 OR ASC(F$) = 47 THEN 2086

SOUND 100,1:LOCATE 21,1:PRINT SPACE$(78)

LOCATE 21,1:PRINT A$(I);" = ";F$;

LINE INPUT Z$:ZZZ$ = F$ + Z$:A(I) = VAL(ZZZ$)

LOCATE 21,1:PRINT SPACE$(78):GOTO 2084

2090 Locate 5,10:print " Приняты к расчету: "

DOPUSK% = 1

FOR I = I0 TO IK

Z1$ = MID$(A$(I),1,1):IF Z1$ = "*" THEN 2092

IF A(I)<D(I,0) OR A(I)>D(I,1) THEN:COLOR 4,0:ZAMETC%=ZAMETC%+1

IF D(I,0) >< 0 THEN

IF (D(I,0)-A(I))/D(I,0) > 20 OR (A(I)-D(I,1))/D(I,1) > 20 THEN:DOPUSK% = 0

END IF

PRINT USING "&#####.####";A$(I);A(I)

COLOR 7,0