1451 Gosub 2080 'Редактирование кпд

ZAMETC% = 0:GOSUB 2090:IF ZAMETC% >< 0 THEN 1451 'Проверка

LOCATE 6,10:PRINT " Сводные данные проектируемой трансмиссии:"

LOCATE 8,1:PRINT " Передача"

LOCATE 10,1:PRINT " iкп "

LOCATE 12,1:PRINT " Zц "

LOCATE 14,1:PRINT " Zк "

LOCATE 16,1:PRINT " КПД "

FOR I = 1 TO ZP

KPD(I) = A(47)*(A(43)^(ZCK+ZCM))*(A(44)^ZKM)*(A(46)^ZSH)

IF I = ZP THEN:KPD(I) = A(47)*(A(43)^(ZCKP+ZCM))*(A(44)^ZKM)*(A(46)^ZSH)

LOCATE 8,I*9+5: PRINT USING " #. ";I

LOCATE 10,I*9+5:PRINT USING " ###.### ";B(I+SM)

LOCATE 12,I*9+5:PRINT USING " ###.### ";ZC(I)

LOCATE 14,I*9+5:PRINT USING " ###.### ";ZK(I)

LOCATE 16,I*9+5:PRINT USING " ###.### ";KPD(I)

NEXT I

PRINT #4, " Сводные данные проектируемой трансмиссии:"

PRINT #4, " Передача";

FOR I = 1 TO ZP:PRINT #4,USING " #. ";I;:NEXT I:PRINT #4,""

PRINT #4, " iкп ";

FOR I = 1 TO ZP:PRINT #4,USING " ###.### ";B(I+SM);:NEXT I:PRINT #4,""

PRINT #4, " Zц ";

FOR I = 1 TO ZP:PRINT #4,USING " ###.### ";ZC(I);:NEXT I:PRINT #4,""

PRINT #4, " Zк ";

FOR I = 1 TO ZP:PRINT #4,USING " ###.### ";ZK(I);:NEXT I:PRINT #4,""

PRINT #4," КПД ";

FOR I = 1 TO ZP:PRINT #4,USING " ###.### ";KPD(I);:NEXT I:PRINT #4,""

S(2) = 9

D = .1:GOSUB 150:GOSUB 142

A(33) = GM

FOR I = 1 TO ZP

A(I+39+S(29)) = KPD(I):A(I+SM) = B(I+SM) ' iкп и КПД по передачам!

NEXT I

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

PRINT #4, TAB(22) " Расчет трансмиссии закончен."

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

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

1491 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

1495

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