рус | укр

Главная

Контакты

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









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)

COLOR 7,0

NEXT J:A$ = INPUT$(1)

NEXT Z

ERASE T,E

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

CLOSE #4

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!

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

Общие между модулями подпрограммы расчета 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

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)

NEXT G

COLOR 18,0

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

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

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

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