рус | укр

Главная

Контакты

Навигация:
Арсенал
Болезни
Витамины
Вода
Вредители
Декор
Другое
Животные
Защита
Комнатные растения
Кулинария
Мода
Народная медицина
Огород
Полесадник
Почва
Растения
Садоводство
Строительство
Теплицы
Термины
Участок
Фото и дизайн
Хранение урожая









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

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

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

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)

COLOR 7,0

NEXT J:A$ = INPUT$(1)

NEXT I

ERASE T

GOTO 1640

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

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)

Просмотров: 206

Вернуться в категорию: Арсенал

© 2013-2017 cozyhomestead.ru - При использовании материала "Удобная усадьба", должна быть "живая" ссылка на cozyhomestead.ru.