Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Учебное пособие 700221.doc
Скачиваний:
5
Добавлен:
01.05.2022
Размер:
1.38 Mб
Скачать

4. Инструкция

к применению программы для расчета тяговой характеристики ЗТМ

с гидромеханической трансмиссией на IBM-совместном компьютере

1. Подготовка исходных данных

Для расчетов по программе необходимо подготовить следующую информацию:

- тип и марка машины;

- марка двигателя;

- марка гидротрансформатора;

- величина крутящего момента двигателя, затрачиваемая на привод

вспомогательных механизмов, от ;

  • передаточное число и механический КПД согласующего редуктора;

- коэффициенты, зависящие от конструкции шин, внутреннего давления воздуха в шинах, вида и состояния грунта ;

- коэффициенты сопротивления качению и сцепления движителя ;

- параметр, учитывающий увеличение коэффициента сопротивления качению движителя при работе на ведущем режиме ;

- колесная схема машины: количество осей, какие оси ведущие, какие ведомые;

- реакции грунта на ведущие колеса, ;

- силовой радиус движителя (колеса, звездочки), ;

- количество передач, для которых необходимо выполнить расчеты;

- общее передаточное число и КПД механической части трансмиссии

для каждой передачи.

2. Подготовка ЭВМ и программы к работе:

- включить ЭВМ;

- если необходимо получить результаты расчетов в отпечатанном виде, включить принтер;

- после загрузки операционной системы найти в директории рабочего раздела стационарного диска имя файла qdr.exe; если такого файла нет, необходимо загрузить его в рабочий раздел стационарного диска с дискетки; инициировать файл qdr.exe (т.е. запустить программу);

3. Работа по программе:

- ввод исходных данных производится в режиме "запрос программы - ответ пользователя".

При этом необходимо набирать с помощью клавиатуры запрашиваемые значения в том же количестве и порядке, что и в запросе; если необходимо ввести несколько величин по одному запросу, то при наборе их следует разделять запятыми; после набора всех требуемых запросом величин следует нажать клавишу "Enter";

- если на экране появится надпись "File name missing or blank-please enter file name for UNIT 7?", то следует определить вы­ходной файл, т.е. файл результатов. При этом ответ con задает вывод результатов только на экран, ответ prn - вывод на печать, любой другой ответ (например, 541) даст возможность вывести результаты в виде файла на магнитном диске. Последний вариант ответа предпочтительнее других, т.к. он позволяет без лишних затрат бумаги проверить полученные результаты и затем скопировать их в нужном количестве экземпляров с помощью принтера. Для этого после завершения программы и возврата в операционную систему необходимо захватить световой полосой на экране имя созданного файла результатов, нажать клавишу F5, убедиться, что принтер готов к работе, набрать prn и нажать клавишу "Еnter".

4. Завершение работы:

- после окончания работы по программе вынуть из принтера лист с от-печатанным результатом;

- выключить ЭВМ;

- выключить принтер.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Ульянов Н.А., Ронинсон Э.Г., Соловьев В.Г. Самоходные колесные землеройно-транспортные машины. - М.: Машиностроение, 1976. - 186 с.

2. Никулин П.И. Теория криволинейного движения колесного движителя. - Воронеж: Изд-во ВГУ, 1992.- 212 с.

Приложение

{ Приближенный аналитический способ построения статической

тяговой характеристики ЗТМ с гидромеханической трансмиссией и

с учетом отбора мощности двигателя на привод вспомогательных

механизмов }

Program gidro;

uses printer,crt;

type mas=array[1..30] of real;

fff=record

af:string;

afio:string;

xxx:array[1..20] of real;

end;

ff=file of fff;

label 11,12,13,14,15,16,17,18,185,186,29,1000;

const dvig:array[1..20] of string=

('Д-50','Д-65Н','Д-240','СМД-18К','АМ-01МД','АМ-01М',

'АМ-03','Д-130','СМД-62','Д-180','ЯМЗ-238','8ДВТ-330',

'ЯМЗ-240','ЯМЗ-240Н','В2-ТК-С5','6V396TC4','8V396TC4',

'12V396TC4','КамАЗ-740','');

aDa:array[1..8] of real=(0.34,0.37,0.466,0.43,0.48,0.48,0.48,0.53);

gtr:array[1..8] of string=('ЛГ-340','ЛГ-370','МАЗ-4543',

'ГТР-4300','ГТР-4800','ГТР-4802',

'ГТР-4803С','ГТ63.53.02');

icase:array[1..8] of integer=(12,13,12,13,13,12,12,13);

pdvig:array[1..12,1..19] of real=

((40.4,45.6,58.8,76.5,84.6,99.3,95.5,102.9,128.7,

132.4,176.5,242.7,264.7,367.6,404.8,279.4,380,600,118.3),

(1700,1750,2200,1900,1600,1700,1700,1050,2100,1150,

2100,1700,2100,2100,1600,1700,1850,1800,287),

(227.2,249.1,255.5,384.9,505.2,558.3,537,936.8,585.8,1098.7,

802.4,1363.6,1204.9,1673.2,2418.4,1571,1991.4,3186.3,638),

(9.75,11.2,15.2,19.75,20.7,24.3,23.4,23.8,31.5,

31.5,40.8,59.4,60.1,83.5,89.1,57.3,78.7,124.2,31.5),

(240,245,258,259,245,245,246,231,245,238,231,245,

227,227,220,205,207,207,245),

(27.2,28.6,45.8,58.9,63.2,86,76.4,85.5,102.3,112.4,

129.4,207.4,200.1,277.1,358.2,273.5,373.6,576,54),

(1060,1230,1530,1350,1100,1330,1200,790,1450,850,

1400,1300,1500,1500,1200,1300,1400,1350,156),

(245,222.4,286.2,416.9,549.4,618,608.2,1035,674.4,1263.5,

882.9,1520.6,1275.3,1765.8,2853.7,2010.9,2550.6,4078.4,540),

(8.5,9.7,13.2,17.2,18.1,21.1,20.3,20.7,27.4,27.4,

35.5,51.6,49.9,70.8,77.5,49.7,63.2,108.1,27.4),

(1730,1870,2360,2030,1730,1830,1830,1135,2260,1240,

2270,1820,2270,2270,1730,1830,1980,1930,325),

(3.9,4.5,6.1,7.6,8.1,9.4,9.35,9.5,12.8,12.6,16.3,

23.7,21.6,33.4,34.6,22.9,29.1,49.6,12.8),

(4,4,4,4,6,6,6,4,6,6,8,8,12,12,12,6,8,12,12));

pgt1:array[1..4,1..12] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.83,0.9,0.985),

(3.055,2.84,2.58,2.24,1.95,1.68,1.4,1.2,1.04,1,0.916,0.416),

(0,0.275,0.49,0.675,0.78,0.83,0.85,0.86,0.82,0.79,0.86,0.65),

(2.31,2.4,2.47,2.49,2.51,2.47,2.38,2.24,1.95,1.79,0.98,0.3));

pgt2:array[1..4,1..13] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.85,0.9,0.95,0.985),

(2.87,2.65,2.4,2.15,1.91,1.67,1.45,1.24,1,0.95,0.96,0.9,0.33),

(0,0.275,0.475,0.65,0.765,0.845,0.875,0.865,0.8,0.8,0.86,

0.865,0.625),

(2.81,2.79,2.78,2.77,2.73,2.68,2.56,2.33,1.85,1.56,1.24,

0.63,0.14));

pgt3:array[1..4,1..12] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.85,0.9,0.95),

(3.5,3.1,2.67,2.3,1.95,1.65,1.45,1.2,1.05,1,0.98,0.98),

(0,0.33,0.534,0.67,0.78,0.835,0.87,0.855,0.84,0.85,

0.882,0.931),

(1.28,1.36,1.4,1.42,1.42,1.39,1.35,1.28,1.18,0.99,0.78,0.2));

pgt4:array[1..4,1..13] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,0.94,1,1.03),

(3.176,2.84,2.53,2.24,1.95,1.688,1.468,1.287,1.116,

0.923,0.839,0.65,0),

(0,0.284,0.506,0.672,0.78,0.844,0.881,0.901,0.893,0.831,

0.789,0.65,0),

(1.684,1.727,1.79,1.823,1.841,1.846,1.812,1.7,1.543,1.23,

1.029,0.492,0.173));

pgt5:array[1..4,1..13] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.858,0.9,0.92,0.964),

(3.2,2.9,2.6,2.27,1.95,1.704,1.491,1.303,1.12,0.998,0.998,

0.985,0.969),

(0,0.29,0.52,0.68,0.785,0.852,0.896,0.912,0.896,0.856,0.889,

0.908,0.934),

(2.032,2.121,2.184,2.2375,2.255,2.2375,2.148,2.005,1.763,

1.495,1.226,1.092,0.537));

pgt6:array[1..4,1..12] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.85,0.9,0.95),

(3.35,2.822,2.437,2.154,1.909,1.65,1.469,1.283,1.101,1.003,1,1),

(0,0.282,0.487,0.646,0.764,0.83,0.881,0.898,0.881,0.853,0.9,0.95),

(2.263,2.367,2.401,2.403,2.423,2.484,2.357,2.192,1.902,

1.636,1.311,0.808));

pgt7:array[1..4,1..12] of real=

((0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.76,0.8,0.9,0.958),

(2.42,2.29,2.155,2.02,1.84,1.646,1.455,1.28,1.187,1.25,0.992,0.983),

(0,0.229,0.431,0.606,0.736,0.823,0.873,0.896,0.902,0.9,0.893,0.942),

(3.76,3.1535,3.21,3.243,3.198,3.109,2.855,2.594,2.371,2.214,1.655,

0.895));

pgt8:array[1..4,1..13] of real=

((0,0.277,0.375,0.472,0.575,0.685,0.795,0.838,0.874,0.911,0.941,

0.98,1.004),

(3.129,2.239,2.027,1.745,1.503,1.286,1.077,1,0.917,0.851,0.75,

0.555,0),

(0,0.621,0.76,0.825,0.865,0.882,0.856,0.839,0.802,0.776,0.706,

0.545,0),

(1.86,1.98,2.01,2.03,2,1.91,1.75,1.61,1.44,1.23,1.03,0.44,0.21));

var Nen,nmen,Men,Nem,nmem,Mem,nex,kn,km,kg1,kkn,

kkm,kg2,nme,kcp,Me,Ne,ip,nnp,Meo,Nec,Mec,nmn,

Mn,Nn,le,igt,kgt,nngt,lon,nmt,Nt,Mt,kf,gmen,

bp,ro,da,Ge,gme,Ntt,Gen,Gem,Gex,nemin,pMeo,

ale,xx,aa,Gt,A,B,m,f,fi,Rr,Rrr,Pf,Tf,Tmax,rc,

Pkmax,T,tr,bb,bbp,Pk,aamt,pdk,aant,Vd,GGe,

ggme :real;

fio,tim :string[50];

fio1 :string[55];

ios :array[1..3] of integer;

rg :array[1..3] of real;

im,kpd :array[1..10] of real;

dne :array[1..121] of real;

pgt :array[1..4,1..13] of real;

x,y :mas;

i,nd,ngtr,kcgt,j,i1,i2,i3,i4,k,ko,np,kon,kj :integer;

file1 :ff;

anmt,aMt,aGt,aNt :mas;

Function har(nme1:real):real;

Begin If nme1<=nmem then begin

Me:=Men*(kkm+kn*(km-kkm)*(nme1*kkn-nmen)/nmen/(kkn-kn));

Ge:=gmen*Nen/1000*(1/kg2+(1/kg1-1/kg2)*(nme1*kkn-nmen)*kn/

(nmen*(kkn-kn))) end

else if (nme1>nmem) and (nme1<=nmen) then begin

Me:=Men*(km-(km-1)*(kn*nme1-nmen)/nmen/(kn-1));

Ge:=gmen*Nen/1000*(1/kg1+(1-1/kg1)*(nme1*kn-nmen)/nmen/(kn-1));

end else

if nme1>nmen then begin Me:=Men*(1-(nme1-nmen)*(2-bp)/2/nmen/bp);

Ge:=gmen*Nen/1000*(1-(1-1/kcp)*(nme1-nmen)*(2-bp)/2/nmen/bp)

end;

Ne:=Me*nme1/9558.8;gme:=Ge*1000/Ne;Mec:=Me-Meo;

Nec:=Mec*nme1/9558.8;nmn:=nme1/ip;Mn:=Mec*ip*nnp;

Nn:=Nec*nnp;le:=Mn/(ro*nmn*nmn)/(sqr(sqr(da))*da);

har:=le

End;

Function har1(x:real):real;

Begin har1:=har(x)-lon End;

Function alint(n:integer;x,y:mas;z:real):real;

label 1,2,3;

var i,j,k:integer;

Begin If z<x[1] then begin i:=1;j:=2;Goto 2 end;

If z>x[n] then begin i:=n-1;j:=n;Goto 2 end;

For k:=1 to n do

begin

If z=x[k] then begin alint:=y[k]; Goto 3 end;

If z>x[k] then goto 1;

i:=k-1; j:=k; goto 2;

1:end;

2: alint:=y[i]+(z-x[i])*(y[j]-y[i])/(x[j]-x[i]);

3: End;

Procedure mdop(a,b:real;var k:integer;var x:real);

label 7,10;

var c,d,u,v,w:real;

Begin c:=a;

10: d:=c+(b-a)/40;u:=har1(c);v:=har1(d);

If u*v<=0 then begin repeat

x:=(c+d)/2;w:=har1(x);

If u*w<=0 then d:=x

else begin c:=x;u:=w end;

until d-c<0.1;k:=1 end

else

If d>=b then begin k:=0;goto 7 end

else begin c:=d;goto 10 end;

7: End;

Begin

{ Assign(file1,'vhd');rewrite(file1);}

ro:=850*9.81; kkn:=1.75; kkm:=1.05;

kg2:=1.35; bp:=0.08; kcp:=2.5;

Writeln(' Тяговая хаpактеpистика ЗТМ с гидpомеханической тpансмиссией');

Writeln(' Укажите свою фамилию, и.о., гpуппу, дату pаботы:');

Readln(fio);

fio1:=' '+fio;

Writeln({file1,}fio1);

Write(' Укажите тип и маpку машины:');Readln(tim);

{Writeln(file1,' '+tim);}

{ Ввод исходных данных }

Writeln(' Найдите двигатель выбpанной Вами модели в следующем списке:');

For i:=1 to 10 do

Writeln(i:20,'.',dvig[i],' ':wherex-length(dvig[i])+20,i+10,'.',dvig[i+10]);

Write(' Укажите номеp Вашего ваpианта:');

Readln(nd);while (nd<1) or (nd>19) do

begin Write(' Будьте внимательней! Ещё раз укажите номер:');

readln(nd);

end;

Writeln(lst,' Двигатель модели ',dvig[nd]);

Writeln(' Укажите номеp выбpанного Вами гидpотpансфоpматоpа в',

' следующем списке:');

for i:=1 to 4 do

Writeln(i:20,'.',gtr[i],' ':wherex-length(gtr[i])+20,i+4,'.',gtr[i+4]);

write(' Итак, N°='); Readln(ngtr);

while (ngtr<1) or (ngtr>8) do

begin Write(' Допущена ошибка! Ещё раз укажите номер:');readln(ngtr);

end;

da:=aDa[ngtr];

Writeln(lst,' Гидpотpансфоpматоp ',gtr[ngtr]);

{ Постpоение внешней хаpактеpистики двигателя }

kcgt:=icase[ngtr];

for i:=1 to kcgt do

for j:=1 to 4 do

case ngtr of

1: pgt[j,i]:=pgt1[j,i];

2: pgt[j,i]:=pgt2[j,i];

3: pgt[j,i]:=pgt3[j,i];

4: pgt[j,i]:=pgt4[j,i];

5: pgt[j,i]:=pgt5[j,i];

6: pgt[j,i]:=pgt6[j,i];

7: pgt[j,i]:=pgt7[j,i];

8: pgt[j,i]:=pgt8[j,i];

end;

Nen :=pdvig[1,nd]; nmen:=pdvig[2,nd]; Men:=pdvig[3,nd];

Gen :=pdvig[4,nd]; gmen:=pdvig[5,nd]; Nem:=pdvig[6,nd];

nmem:=pdvig[7,nd]; Mem :=pdvig[8,nd]; Gem:=pdvig[9,nd];

nex :=pdvig[10,nd]; Gex :=pdvig[11,nd]; kn:=nmen/nmem;

km :=Mem/Men; kg1 :=Gen/Gem; nemin:=nmen/kkn;

for i:=1 to 121 do dne[i]:=100*(i-1);

for i:=1 to 121 do

begin If nemin>dne[i] then goto 11;

If nemin=dne[i] then begin i1:=i; Goto 12 end

else

begin i1:=i-1; dne[i1]:=nemin; Goto 12 end;

11: end;

12:for i:=i1 to 121 do

begin If nmem>dne[i] then goto 13;

If nmem=dne[i] then begin i2:=i; Goto 14 end

else begin i2:=i;

for j:=120 downto i2 do

dne[j+1]:=dne[j];

32

dne[i2]:=nmem; Goto 14

end;

13: end;

14:for i:=i2 to 121 do

begin If nmen>dne[i] then goto 15;

If nmen=dne[i] then begin i3:=i; Goto 16 end

else begin i3:=i;

for j:=120 downto i3 do

dne[j+1]:=dne[j];

dne[i3]:=nmen; Goto 16

end;

15: end;

16:for i:=i3 to 121 do

begin If nex>dne[i] then goto 17;

If nex=dne[i] then begin i4:=i; Goto 18 end

else begin i4:=i;

dne[i4]:=nex; Goto 18

end;

17: end;

{ Пpиведение хаpактеpистики двигателя к валу насосного колеса}

18:Writeln(' Укажите, какая часть кpутящего момента двигателя затpачивается');

writeln(' на пpивод вспомогательных механизмов ( в % от Мeн ):');

Readln(pMeo);

while (pMeo<0) or (pMeo>100) do

begin Write(' Повтоpите ввод!');readln(pMeo) end;

Meo:=Men*pMeo/100;

Writeln(' Задайте пеpедаточное число и механический к.п.д.');

writeln(' согласующего pедуктоpа ip, np :');

185:Readln(ip,nnp);

If(ip>0) and ((nnp<=1) and (nnp>0)) then goto 186;

Write(' Повтоpите ввод!'); Goto 185;

186:Write(lst,' Внешняя хаpактеpистика двигателя ');

writeln(lst,' ВХД, пpиведенная к валу насосного колеса');

Writeln(lst,' ne, Me, Ne, Ge,',

' ge, nн, Мн, Nн, le,');

Writeln(lst,' об/мин Н.м кВт кг/ч',

' г/кВт.ч об/мин Н.м кВт х10-6');

For i:=i1 to i4 do

begin nme:=dne[i];le:=har(nme);

ale:=le*1e6;

Writeln(lst,' ':10,nme:10:2,Me:11:2,Ne:10:2,Ge:10:2,gme:10:2,

nmn:10:2,Mn:11:2,Nn:10:2,ale:10:6)

end;

{ Постpоение выходной хаpактеpистики системы ДВС-ГДТ}

writeln(lst);

Writeln(lst,' ':13,' Выходная хаpактеpистика системы ДВС-ГДТ');

writeln(lst,' ':9,' iгт nт, Mт, Nт, Gт,',

' nnт');

writeln(lst,' ':8,' об/мин Н.м кВт',

' кг/ч');

For i:=1 to kcgt do

Begin

igt:=pgt[1,i];kgt:=pgt[2,i];nngt:=pgt[3,i];

lon:=pgt[4,i]*1e-6; mdop(100,3700,k,xx);

If k=1 then begin

aa:=har(xx);nmt:=igt*nmn;anmt[i]:=nmt;

Mt:=kgt*Mn;aMt[i]:=Mt;Nt:=Mt*nmt/9558.8;

aNt[i]:=Nt;Gt:=Ge;aGt[i]:=Gt;

Writeln(lst,' ':10,igt:6:3,nmt:11:2,Mt:11:2,Nt:11:2,Gt:11:2,nngt:10:4);

end

else begin

Writeln(' НЕТ РЕШЕНИЯ. ПРОВЕРЬТЕ ИСХОДНЫЕ ДАННЫЕ!');

Writeln(' Нажмите клавишу "Enter"');readln;

Halt(1)

end;

end;

{ Постpоение тяговой хаpактеpистики ЗТМ }

Writeln(' Введите коэффициенты, зависящие от констpукции ');

Writeln('шин, внутpеннего давления воздуха в шинах, вида и');

Writeln('состояния гpунта A, B, n :');

Readln(A,B,m);

{ Go to 213

212 Writeln(' Повтоpите ввод!'); }

Writeln(' Введите значения коэффициентов сопpотивления ка-');

Writeln('чению и сцепления движителя f, фи :');

Readln(f,fi);

{ Go to 215

220 Writeln(' Повтоpите ввод!'); }

Writeln(' Введите значение паpаметpа, учитывающего увеличе-');

Writeln('ние коэффициента сопpотивления качению движителя при');

Write('pаботе на ведущем pежиме kf :');

Readln(kf);

{ Go to 223

221 Writeln(' Повтоpите ввод!'); }

Write(' Укажите количество осей машины :');

Readln(ko);

for i:=1 to 3 do

begin ios[i]:=0;rg[i]:=0 end;

for i:=1 to ko do

begin

Writeln(' Если ',i,'-я ось ведущая, то набеpите 1, если ');

Write(' ведомая - 0 :');

Readln(ios[i])

end;

Writeln(' Введите pеакцию гpунта (в кН):');

for i:=1 to ko do

begin

Write(' - на колеса ',i,'-й оси :');

Readln(rg[i]);

end;

Rrr:=0; Rr:=0;

For i:=1 to ko do

If ios[i]=1 then Rr:=Rr+rg[i]

else Rrr:=Rrr+rg[i];

Pf:=f*(kf*Rr+Rrr);Tf:=Rr*fi;Tmax:=Tf+Pf;

Write(' Введите силовой pадиус движителя rc (в м) :');

Readln(rc);

Writeln(' Укажите количество пеpедач, для котоpых нужно');

Write('выполнить pасчет тяговой хаpактеpистики :');

Readln(np);

Writeln(' Укажите общее пеpедаточное число и к.п.д. механи-');

Writeln('ческой части тpансмиссии :');

for i:=1 to np do

begin

Write(' - для ',i,'-й пеpедачи :');

Readln(im[i],kpd[i])

end;

Writeln(lst,' ':15,'Т Я Г О В А Я Х А Р А К Т Е Р И С Т И К А З Т М');

Writeln(lst,' Сила сопpотивления качению Pf =',Pf:9:3,' кН');

Writeln(lst,' Сила тяги по сцеплению Tфи =',Tf:9:3,' кН');

For i:=1 to np do

begin

Writeln(lst,' imj =',im[i]:7:2,' nj =',kpd[i]:6:2);

Pkmax:=aMt[kcgt]*im[i]*kpd[i]/rc/1000;

Writeln(lst,' T, T/R б, кпд Vд,',

' Nт, Ge, ge,');

Writeln(lst,' кН',' ':19,'%',' ':16,'км/ч кВт ',

' кг/ч г/кВт.ч');

kon:=0; kj:=trunc(Tmax/20);

For j:=1 to 22 do

begin

T:=(j-1)*kj;

If T>Tf then begin T:=Tf; kon:=1 end;

tr:=T/Rr; if tr=0 then bb:=0 else bb:=A*tr+B*exp(m*ln(tr));

bbp:=bb*100;

Pk:=(T+Pf)/(Tf+Pf)*Pkmax; aaMt:=Pk*rc/im[i]/kpd[i]*1000;

pdk:=kpd[i]*T/(T+Pf)*(1-bb);aant:=alint(kcgt,aMt,anmt,aaMt);

Vd:=0.377*aant*rc/im[i]*(1-bb); Ntt:=T*Vd/3.6;

GGe:=alint(kcgt,aMt,aGt,aaMt);

If Ntt=0 then ggme:=99999 else ggme:=GGe*1000/Ntt;

Writeln(lst,T:10:2,tr:10:4,bbp:10:2,pdk:10:4,

Vd:10:4,Ntt:10:2,GGe:12:4,ggme:12:4);

If (kon=1) or (bb>=1) then goto 29

end;

29: end;

1000: End.

ОГЛАВЛЕНИЕ

Введение…………………………………………………………………………..

3

1. Исходные данные …………………………………………………………..

3

2. Расчет и построение выходной характеристики системы "двигатель внутреннего сгорания - гидродинамический трансформатор" ……………….

4

3. Построение тяговой характеристики ………………………………………..

12

4. Инструкция к применению программы для расчета тяговой харак-теристики ЗТМ с гидромеханической трансмиссией на IBM - совместном компьютере ……………………………………………………………………….

24

Библиографический список ……………………………………………………..

25

Приложение ………………………………………………………………………

26

Расчет и построение тяговой характеристики землеройно-транспортной машины с гидромеханической трансмиссией

Методические указания к курсовому и дипломному проектированию по дисциплине "Машины для земляных работ" для студентов специальностей 170900 - "Подъемно-транспортные, строительные и дорожные машины и оборудование" и 291300 - "Механизация и автоматизация строительства"

Составители:

д-р техн. наук, проф. Павел Иванович Никулин,

канд. техн. наук, доц. Владимир Исламович Гильмутдинов,

канд. техн. наук, доц. Владимир Степанович Литвинов,

асс. Алексей Павлович Никулин

Редактор Акритова Е.В.

Подписано в печать " "__________2005г.

Уч.-изд. л. 2,0

Бумага писчая

Заказ №

Формат 6084 1/16

Усл. печ. л. 2,1

Тираж 200 экз.

Отпечатано: отдел оперативной полиграфии ВГАСУ