- •Расчет и построение тяговой характеристики землеройно-транспортной машины с гидромеханической трансмиссией
- •Введение
- •1. Исходные данные
- •2. Расчет и построение выходной характеристики системы "двигатель внутреннего сгорания -
- •3.Построение тяговой характеристики
- •4. Инструкция
- •394006, Г. Воронеж, ул. 20-летия Октября, 84
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 Бумага писчая Заказ № |
|
Формат 6084 1/16 Усл. печ. л. 2,1 Тираж 200 экз. |
Отпечатано: отдел оперативной полиграфии ВГАСУ