рус | укр

Главная

Контакты

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









GOTO 1500

1490 DIM NSCH$(20),PARAM(20,13)

GOSUB 142

OPEN "SCH~DANO" FOR INPUT AS #1

INPUT #1, A$

LOCATE 7,1:PRINT A$

PRINT TAB(46); "от - до: от - до:"

INPUT #1, A$

UD = 0:I = 1

IF EOF(1) THEN 1494

N = 0:INCR UD

1492 INPUT #1,N$

IF LEN(N$) > 20 THEN 1493

INCR N

NSCH$(I) = N$

FOR J = 1 TO 12

INPUT #1, PARAM(I,J)

NEXT J

IF PARAM(I,6)*.87 < NSCH AND PARAM(I,7) > NSCH THEN:PARAM(I,0)=N:INCR I

GOTO 1492

1493 IF U = 1 THEN 1494

IF U = 2 AND UD = 1 THEN 'AWTOMOBIL

FOR J = 1 TO N

FOR Y = 1 TO 12:PARAM(J,Y) = 0:NEXT Y

NEXT J

I = 1

END IF

GOTO 1491

1494 CLOSE #1:J = I - 1

LOCATE 5,1:PRINT "Укажите выбранную Вами шину:":K = 1

FOR I = 1 TO J

IF I = K THEN:COLOR 0,3

LOCATE I+8,1:PRINT USING "##. & ###. ####. ####. #.## #.## ##.# ##.# ###. ";_

PARAM(I,0);NSCH$(I);PARAM(I,1);PARAM(I,2);PARAM(I,3);PARAM(I,4);PARAM(I,5);PARAM(I,6);PARAM(I,7);PARAM(I,8)

COLOR 7,0

NEXT I

A$ = INPUT$(1):IF ASC(A$) >< 13 THEN

INCR K:IF K > J THEN:K = 1

GOTO 1495

END IF

N$=NSCH$(K):NS%=PARAM(K,0):BP=PARAM(K,11):DP=PARAM(K,12):RST=PARAM(K,6):RST1=PARAM(K,7)

ERASE NSCH$,PARAM

RETURN

1500 IF S(29) = 2 THEN 1530

A(48) = S(22)/10:LOCATE 4,1

PRINT USING "& ##.#&";" Шаг построения потенциальной характеристики t = ";A(48);"кН"

GOSUB 1710

N = 2*INT(S(22)/A(48)):KPDM = 0:VTM = 0:GOSUB 142:J = 0

DIM R(N,11),RS(N,2)

LOCATE 3,1

PRINT " Потенциальная тяговая характеристика: "

PRINT " NN Pкр Fiкр Букс. Nб Vт Vд Nf Nf/Ne Nкр КПД "

PRINT " пп кН - - кВт м/с м/с кВт - кВт - "

PRINT #4, " Потенциальная тяговая характеристика: "

PRINT #4, " NN Pкр Fiкр Букс. Nб Vт Vд Nf Nf/Ne Nкр КПД "

PRINT #4, " пп кН - - кВт м/с м/с кВт - кВт - "

LOCATE 6,1

FOR I = 0 TO N

R(I,1) = A(48)*I 'P kr (2)

R(I,2) = R(I,1)/(A(33)*A(10)) 'FI kr (3)

R(I,3) = KA*(R(I,2)/A(11) + KK*A(8)) + KB*((R(I,2)/A(11))^8) 'Буксование

R(I,4) = A(19)*A(41)*R(I,3) 'Потери мощности на буксование

R(I,5) = A(19)*A(41)/(R(I,1) + A(33)*A(8)) 'Теоретическая скорость, м/с

IF VTM < R(I,5) THEN:VTM = R(I,5)

R(I,6) = R(I,5)*(1 - R(I,3)) 'Действительная скорость, м/с

R(I,7) = A(33)*A(8)*R(I,6) 'Потери мощности на перекатывание, кВт

R(I,8) = R(I,7)/A(19) 'Nf/Ne

R(I,9) = A(19)*A(41) - R(I,4) - R(I,7) 'Крюковая мощность

R(I,10) = R(I,9)/A(19) 'Тяговый КПД

IF KPDM < R(I,10) THEN:KPDM = R(I,10)

IF R(I,3) > .95 THEN:COLOR 0,3

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

I+1;R(I,1);R(I,2);R(I,3);R(I,4);R(I,5);R(I,6);R(I,7);R(I,8);R(I,9);R(I,10)

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

I+1;R(I,1);R(I,2);R(I,3);R(I,4);R(I,5);R(I,6);R(I,7);R(I,8);R(I,9);R(I,10)

IF R(I,3) > 1.01 THEN:R(I,3) = .999:EXIT FOR

IF I = 16 OR I = 32 THEN

A$=INPUT$(1):LOCATE 6,1

FOR Y=1 TO 17:PRINT SPACE$(78):NEXT Y

LOCATE 6,1

END IF

NEXT I

ERASE R,RS

PRINT " Расчет потенциальной характеристики закончен. "

GOTO 1540

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

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 'Передача

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

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

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