Главная Коллекция "Revolution" Транспорт Реструктуризація вантажного депо

Реструктуризація вантажного депо

Потокове утримання вагонів в сучасних умовах експлуатації та плановий ремонт вагонів в депо. Реструктуризація дільниці з ремонту колісних пар вантажного вагонного депо. Економічна ефективність від впровадження ремонту колісних пар наплавленням гребенів.

Рубрика	Транспорт
Вид	дипломная работа
Язык	украинский
Дата добавления	05.06.2014
Размер файла	1,4 M

посмотреть текст работы

скачать работу можно здесь

полная информация о работе

весь список подобных работ

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

0 : if (P_r<1) then Error('Помилка: число має бути додатним !!!');

else

Error('Помилка: введені символи не число !!!');

end;

until (P_r>0)and(i=0);

Writeln(f,'Середньодобовa кількість вагонів під розвантаженням : '+s);

for j:=1 to k do begin

repeat

Str(j,s2);

s1 := 'Введіть, будь ласка, довжину '+s2+'-ої дільниці : ';

Write(s1);

Readln(s);

val(s,S_i[j],i);

case i of

2 : Error('Помилка: число має бути цілим !!!');

0 : if (S_i[j]<1) then Error('Помилка: число має бути додатним');

else

Error('Помилка: введені символи не число !!!');

end;

until (S_i[j]>0)and(i=0);

Writeln(f,'Довжина '+s2+'-ої дільниці : '+s);

N := N + 2*n_i[j]*m_sr[j]*S_i[j];{3.5}

end;

Writeln(f,'ОТРИМАНI РЕЗУЛЬТАТИ:');

Str(N,s);

Writeln(f,'Величина добового пробiгу вагонiв на полiгонi : '+s);

m_p := Round((N/V_d + M*t_m +(P_n+P_r)*t_vr)/24);

Str(m_p,s);

Writeln(f,'Робочий парк вантажних вагонiв : '+s);

m_n := Round(m_p*(1+beta));

Str(m_n,s);

Writeln(f,'Наявний парк вантажних вагон·в : '+s);

Writeln(f,' ______________________________________________________ ');

Writeln(f,'| Рi i тип вагонiв| % | Кiлькiсть|');

Writeln(f,' ------------------------------------------------------ ');

m_ni[1] := Round(0.15*m_n);

str(m_ni[1]:10,s);

Writeln(f,'| 1 Критi 4-вiснi| 15 |'+s+' |');

m_ni[2] := Round(0.5*m_n);

str(m_ni[2]:10,s);

Writeln(f,'| 2 Напiввагони| 50 |'+s+' |');

str(Round(0.04*m_n):10,s);

Writeln(f,'| (в тому числi 8-ми вiснi)| 4 |'+s+' |');

m_ni[3] := Round(0.05*m_n);

str(m_ni[3]:10,s);

Writeln(f,'| 3 Платформи| 5 |'+s+' |');

m_ni[4] := Round(0.04*m_n);

str(m_ni[4]:10,s);

Writeln(f,'| 4 Рефрижераторнi| 4 |'+s+' |');

m_ni[5] := Round(0.07*m_n);

str(m_ni[5]:10,s);

Writeln(f,'| 5 Цистерни| 7 |'+s+' |');

m_ni[6] := m_n-Round(0.04*m_n)-Round(0.05*m_n)-Round(0.07*m_n)-Round(0.15*m_n)-Round(0.5*m_n); str(m_ni[6]:10,s);

Writeln(f,'| 6 Спецiалiзованi| 19 |'+s+' |');

Writeln(f,' ------------------------------------------------------ ');

str(m_n:10,s);

Writeln(f,'|Разом:| 100 |'+s+' |');

Writeln(f,' ------------------------------------------------------ ');

repeat

Str(j,s2);

s1 := 'Введiть кiлькiсть вагонiв, що вiдчiпляють при прослiдуваннi : ';

Write(s1);

Readln(s);

val(s,m_pr2,i);

case i of

2 : Error('Помилка: число має бути цілим !!!');

0 : if (m_pr2<1) then Error('Помилка: число має бути додатним');

else

Error('Помилка: введені символи не число !!!');

end;

until (m_pr2>0)and(i=0);

Writeln(f,'Kількість вагонів, що відчіпляють при прослідуванні станції : '+s);

m_pr1 := Round(m_n*beta1/100);

str(m_pr1,s);

Writeln(f,'Kількість вагонів, що відчіпляють при підготовці до перевезень : '+s);

m_pr := m_pr1 + m_pr2;

str(m_pr,s);

Writeln(f,'Kількість вагонів за добу, що поступають в поточний відчіпний');

Writeln(f,'ремонт (ПР-1 та ПР-2) : '+s);

for j:=1 to 6 do begin

repeat

Str(j,s2);

s1 := 'Введіть кількість вагонів '+s2+'-ого типу, які підлягають КР : ';

Write(s1);

Readln(s);

val(s,m_kr[j],i);

case i of

2 : Error('Помилка: число має бути цілим !!!');

0 : if (m_kr[j]<1) then Error('Помилка: число має бути додатним');

else

Error('Помилка: введені символи не число !!!');

end;

until (m_kr[j]>0)and(i=0);

Writeln(f,'Кількість вагонів '+s2+'-ого типу, які підлягають КР : '+s);

repeat

Str(j,s2);

s1 := 'Введіть коефіцієнт Gamma для '+s2+'-ого типу вагонів : ';

Write(s1);

Readln(s);

val(s,gamma[j],i);

case i of

0 : if (gamma[j]<0)or(gamma[j]>1) then Error('Помилка: число має належати інтервалу [0, 1] !!!');

1,3:Error('Помилка: введені символи не число !!!');

end;

until (gamma[j]>=0)and(gamma[j]<=1)and(i=0);

Writeln(f,'Kоефіцієнт Gamma для '+s2+'-ого типу вагонів : '+s);

m_dr[j] := Round(m_ni[j] - m_kr[j]*(1-gamma[j]));{3.8}

str(m_dr[j],s);

Writeln(f,'Кількість вагонів '+s2+'-ого типу, які підлягають ДР : '+s);

m_zal[j] := Round((m_kr[j]*t_kr + m_dr[j]*t_dr)/D_r + m_pr*t_pr/k_pr/D_k);{3.12}

str(m_zal[j],s);

Writeln(f,'Середньодобова норма залишку несправних вагонiв '+s2+'-ого типу');

Writeln(f,'на полiгонi залiзницi : '+s);

end;

Writeln(f,'');

Writeln(f,'РОЗРАХУНОК КОНТИНГЕНТУ ПТО ВАНТАЖНИХ ВАГОНIВ НА СОРТУВАЛЬНIЙ СТАНЦIЇ');

Writeln(f,'');

Writeln(f,'ВХІДНІ ДАНІ:');

Str(n_sr,s);

Writeln(f,'Середня кількість поїздів, що прибувають або відправляються за добу '+s);

repeat

Str(j,s2);

s1 := 'Введіть середню кількість 4-вісевих вагонів в поїзді : ';

Write(s1);

Readln(s);

val(s,m_sr4,i);

case i of

0 : if (m_sr4<1) then Error('Помилка: число має бути додатним');

else

Error('Помилка: введені символи не число !!!');

end;

until (m_sr4>0)and(i=0);

Writeln(f,'Cередня кількість 4-вісевих вагонів в поїзді : '+s);

repeat

Str(j,s2);

s1 := 'Введіть середні витрати праці на ТО одного вагона : ';

Write(s1);

Readln(s);

val(s,H_o,i);

case i of

0 : if (H_o<1) then Error('Помилка: число має бути додатним');

1,3 : Error('Помилка: введені символи не число !!!');

end;

until (H_o>0)and(i=0);

Writeln(f,'Cередні витрати праці на ТО одного вагона : '+s);

Writeln(f,'ВИХІДНІ ДАНІ:');

for j:=1 to 2 do begin

B_br[j] := Round(alfa_n[j]*n_sr*t_obr[j]/24/fi);{3.13}

if B_br[j]=0 then inc(B_br[j]);

Str(B_br[j],s);