1602 Color 7,0

NEXT J:A$ = INPUT$(1)

NEXT I

ERASE T

GOTO 1640

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

N1 = S(25):GOSUB 1720

DIM E(N3,N2,8)

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

LOCATE 4,1:PRINT " Расчет и анализ экономических показателей автомобиля "

I = S(25) ' = 1 - Передача

FOR J = 1 TO N2-1 'Точка характеристики

GOSUB 1722 'Расчет точки

NEXT J

PRINT

PRINT "NN nд Ne Gт Va Nпси Nj kN k'' ge Q/100 Fq "

PRINT "пп об/мин кВт кг/ч м/с кВт кВт - - г/кВтч л/100 км/л "

PRINT #4, " Расчет и анализ экономических показателей автомобиля "

PRINT #4, "NN nд Ne Gт Va Nпси Nj kN k'' ge Q/100 Fq "

PRINT #4, "пп об/мин кВт кг/ч м/с кВт кВт - - г/кВтч л/100 км/л "

FOR Z = 1 TO 3

UKL = PI*(S(26)*(Z-1))/180:PSI = A(6)*COS(UKL)+SIN(UKL)

LOCATE 8,1

PRINT USING "& .### & #. &";"Приведенный коэффициент сопротивления пси =";PSI;",(передача -";I;") "

PRINT #4, USING "& .### & #. &";"Приведенный коэффициент сопротивления пси =";PSI;",(передача -";I;") "

FOR J = 1 TO N2-1 'Точка характеристики

GOSUB 1694 'Расчет точки

IF E(Y,J,2) < -99 THEN 1632

IF E(Y,J,2) < 0 THEN

PRINT #4, " - п е р е г р у з к а - "

COLOR 3,0:PRINT USING "##. ####. ###.# ###.# ##.# ###.# ###.# &";_

J;T(I,J,1);T(I,J,0);T(I,J,12);T(I,J,5);E(Y,J,1);E(Y,J,2);" - п е р е г р у з к а - ":GOTO 1632

END IF

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

J;T(I,J,1);T(I,J,0);T(I,J,12);T(I,J,5);E(Y,J,1);E(Y,J,2);E(Y,J,3);E(Y,J,4);E(Y,J,5);E(Y,J,6);E(Y,J,7)

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

J;T(I,J,1);T(I,J,0);T(I,J,12);T(I,J,5);E(Y,J,1);E(Y,J,2);E(Y,J,3);E(Y,J,4);E(Y,J,5);E(Y,J,6);E(Y,J,7)

1632 Color 7,0

NEXT J:A$ = INPUT$(1)

NEXT Z

ERASE T,E

1640

PRINT " Расчет полностью закончен "

CLOSE #4

1650 END

1682 'I - передача!

T(I,J,3) = T(I,J,2)*A(40+I)*A(I)*A(37)/A(38)/1000 - A(33)*A(8) 'зн.Рк в кН

IF T(I,J,3) = 0 THEN T(I,J,3) = .0001 '?

T(I,J,10) = T(I,J,3)/A(33)/A(10) 'уд.нагр.на кр.FIкр

T(I,J,4) = KA*(T(I,J,10)/A(11)+KK*A(8))+KB*(T(I,J,10)/A(11))^8 'Буксование

T(I,J,5) = PI*T(I,J,1)*A(38)*(1-T(I,J,4))/30/A(I)/A(37) 'д.скор.дв.м/с

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

T(I,J,6) = T(I,J,5)*T(I,J,3) 'кр.мощн.Nкр кВт

IF T(I,J,0)=0 OR T(I,J,6)=0 THEN:T(I,J,7)=0:T(I,J,8)=9999:T(I,J,9)=9999:GOTO 1684

T(I,J,7) = T(I,J,6)/T(I,J,0) 'тяговый КПД

T(I,J,8) = T(I,J,12)*1000/T(I,J,0) 'эф.уд.р.т.г/кВтч

T(I,J,9) = T(I,J,12)*1000/T(I,J,6) 'кр.уд.р.т.г/кВтч

IF T(I,J,8) > 9999 THEN T(I,J,8) = 9999!

IF T(I,J,9) > 9999 THEN T(I,J,9) = 9999!

1684

RETURN

1694 'PSI(Z) - KОЭФФИЦИЕНТ СОПРОТИВЛЕНИЯ!, Z = 1,2,3

Y = (I-1)*3+Z

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

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

E(Y,J,3) = 1 - E(Y,J,2)/T(I,J,0) 'kN

IF A(18) > 12 THEN:E(Y,J,4) = .688+.2*(E(Y,J,3)^2)+.112/E(Y,J,3) 'k" дизель

IF A(18) < 12 THEN:E(Y,J,4) = .183+.417*(E(Y,J,3)^2)+.4/E(Y,J,3) 'k" карб.

E(Y,J,5) = E(Y,J,4)*T(I,J,12)*1000!/T(I,J,0) 'ge

E(Y,J,6) = 100!*E(Y,J,3)*E(Y,J,4)*T(I,J,12)/3.6/T(I,J,5)/A(29) 'Расход л/100км

IF E(Y,J,6) < 1 THEN:E(Y,J,6) = 1

IF E(Y,J,6) > 999 THEN:E(Y,J,6) = 999

E(Y,J,7) = 100/E(Y,J,6)

RETURN