2092 Next I

IF ZAMETC% > 0 THEN:COLOR 2,0 :PRINT " (красным помечены выявленные неточности) "

IF ZAMETC% = 0 THEN

PRINT #4, "Приняты к расчету: (";S(2);")"

FOR I = I0 TO IK

Z1$ = MID$(A$(I),1,1):IF Z1$ = "*" THEN 2093

PRINT #4, USING "&#####.####";A$(I);A(I)

2093 Next I

END IF

D = ((ZAMETC%+1)*15)/60:GOSUB 150:

GOTO 142

2095 D = 1:PRINT " Значения изменившихся параметров: "

PRINT #4, " Результаты уточненного расчета (изменившиеся параметры): "

DOPUSK% = 0

FOR I = I0 TO IK

Z1$ = MID$(A$(I),1,1):IF Z1$ >< "*" THEN 2096

IF ABS((A(I)-B(I))/B(I)) > .005 THEN

PRINT USING "&#####.####";A$(I);B(I)

PRINT #4, USING "&#####.####";A$(I);B(I)

A(I) = B(I):D = D + 1

IF I = 46 THEN:DOPUSK% = 1

END IF

2096 Next I

RETURN

142 COLOR 7,0:FOR J=1 TO 21 'Очистка рабочей области экрана

LOCATE 3+J,1:PRINT SPACE$(78);

NEXT J:LOCATE 5,1

RETURN

150 LOCATE 24,1:COLOR 11,0:PRINT STRING$(60,CHR$(95));

COLOR 7,0:E = 0:IF D = 0 THEN:D = .1

ON TIMER(D) GOSUB 155

TIMER ON:WHILE NOT INSTAT:WEND:F$ = INKEY$

151 TIMER OFF:LOCATE 24,1:PRINT SPACE$(60);

RETURN

155 LOCATE 24,60-E:PRINT CHR$(220);" ";

INCR E:IF E = 60 THEN:F$ = " ":RETURN 151

RETURN

Примітка: Програму складено на комп’ютерній мові PASKAL та російській. В наступному перевиданні російську мову буде перекладено на українську.

Додаток 21

МІНІСТЕРСТВО АГРАРНОЇ ПОЛІТИКИ ТА ПРОДОВОЛЬСТВА УКРАЇНИ

ДНІПРОПЕТРОВСЬКИЙ ДЕРЖАВНИЙ АГРАРНИЙ УНІВЕРСИТЕТ

Кафедра „Трактори і автомобілі”

Розрахунок автомобільного (тракторного) двигуна

розрахунково-пояснювальна записка до курсової роботи з дисципліни

"Трактори і автомобілі", частина 1

Виконав студент гр. М-3-08 ____________

Перевірив (посада) ____________

ДНІПРОПЕТРОВСЬК 20__

вступ

Основним завданням курсової роботи є систематизація і поглиблення знань з положень та питань теорії тракторів і автомобілів, зокрема в першій частині – з теорії двигунів внутрішнього згоряння (ДВЗ). Курсова робота виконується по темі:

Тягові якості і паливна економічність трактора

Розрахунки проводимо згідно методичних вказівок [4].

Потужність двигуна визначається на основі балансу потужності [11]:

N_е = N_тр + N_δ + Ν_f + N_вом + N_w + N_j+ N_і + N_кр

де N_е – ефективна потужність двигуна;

N_тр – втрати в трансмісії;

N_δ – втрати на буксування рушія;

N_f – втрати на подолання опору кочення машини;

N_вом – потужність, що передається через вал відбору потужності;

N_w – витрати на подолання опору повітря;

N_j – потужність на подолання сил інерції;

N_і – потужність на подолання підйомів;

N_кр – потужність, що передається через тягово-зчіпний пристрій.

Для розв'язання рівняння балансу потужності і знаходження потужності двигуна потрібно визначити всі складові, деякі з котрих беремо із завдання, інші обчислюємо або приймаємо згідно з даними прототипу.