1530 'Тяговый расчет автомобиля

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

A(41) = .12*PI*A(38)*A(15)/S(23)

A(35) = MNO*0.6

PRINT #4, USING "& #.## ";" Принятый коэффициент сцепления ведущих колес фи = ";A(35)

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

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

PRINT #4, USING "& ###.## &";" Вес порожнего автомобиля Go = ";G0;"кН"

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

N1 = S(25):GOSUB 1720

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

PRINT " NN nд Mд Pк Nк Vд Nр Рw Nw Nj Do Dп "

PRINT " пп об/мин Нм кН кВт м/с кВт кН кВт кВт - - "

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

PRINT #4, " NN nд Mд Pк Nк Vд Nр Рw Nw Nj Do Dп "

PRINT #4, " пп об/мин Нм кН кВт м/с кВт кН кВт кВт - - "

FOR I = 1 TO N1 'Передача

LOCATE 8,1

PRINT USING "##. &###.# &#.### ";I;" передача, передаточное число КП ";A(7+I);", КПД - ";A(41+I)

PRINT #4, USING "##. &###.# &#.### ";I;" передача, передаточное число КП ";A(7+I);", КПД - ";A(41+I)

PRINT

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

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

IF T(I,J,10) > .999 THEN:T(I,J,10) = .999

IF T(I,J,11) > .999 THEN:T(I,J,11) = .999

IF T(I,J,10) < 0 THEN:T(I,J,10) = 0

IF T(I,J,11) < 0 THEN:T(I,J,11) = 0

IF T(I,J,11) < PSI THEN:COLOR 2,0

IF T(I,J,11) > A(35)*A(40) THEN:COLOR 3,0

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

J;T(I,J,1);T(I,J,2);T(I,J,3);T(I,J,4);T(I,J,5);T(I,J,6);T(I,J,7);T(I,J,8);T(I,J,9);T(I,J,10);T(I,J,11)

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

J;T(I,J,1);T(I,J,2);T(I,J,3);T(I,J,4);T(I,J,5);T(I,J,6);T(I,J,7);T(I,J,8);T(I,J,9);T(I,J,10);T(I,J,11)

COLOR 7,0:D = 1.5

NEXT J

D = .15:GOSUB 150:GOSUB 142

NEXT I

ERASE T

PRINT " Расчет динамической характеристики закончен. "

1540 S(2) = 10

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

'CLOSE #4: END

1600 'Теоретическая тяговая хар-ка трактора и экономическая хар-ка автомобиля

IF S(29) = 2 THEN 1630

N1 = S(23)+S(24):GOSUB 1720

GOSUB 1710

LOCATE 4,5:PRINT " Расчет и анализ теоретической тяговой характеристики трактора "

PRINT

PRINT " NN Mд Pкр букс. nд Vд Nкр Ne КПД ge gкр Gт "

PRINT " пп Нм кН - об/мин м/с кВт кВт тяг. г/кВтчас кг/час"

PRINT #4, " Теоретическая тяговая характеристика трактора "

PRINT #4, " NN Mд Pкр букс. nд Vд Nкр Ne КПД ge gкр Gт "

PRINT #4, " пп Нм кН - об/мин м/с кВт кВт тяг. г/кВтчас кг/час"

FOR I = 1 TO N1 'Передача

LOCATE 9,1

PRINT USING "##. &###.# &#.### ";I;" передача, передаточное число КП ";A(I);", КПД - ";A(40+I)

PRINT #4, USING "##. &###.# &#.### ";I;" передача, передаточное число КП ";A(I);", КПД - ";A(40+I)

PRINT

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

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

IF T(I,J,6) <= 0 THEN

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

J;T(I,J,2);T(I,J,3);T(I,J,4);T(I,J,1);T(I,J,5);T(I,J,6);" - п е р е г р у з к а - "

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

END IF

IF T(I,J,4) >.99 THEN

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

J;T(I,J,2);T(I,J,3);T(I,J,4);T(I,J,1);T(I,J,5);T(I,J,6);" - б у к с о в а н и е - "

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

J;T(I,J,2);T(I,J,3);T(I,J,4);T(I,J,1);T(I,J,5);T(I,J,6);" - б у к с о в а н и е - ":GOTO 1602

END IF

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

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

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

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