Методичка_Теорія локомотивної тяги

Закінчення дод. А

Профіль № 30 – від ст. А до ст. Е Профіль № 31 – від ст. Е до ст. А (знаки ухилів змінити на зворотні)

Додаток Б

Додаток В

Розрахунок діаграми питомих рівнодіючих сил із застосуванням ПЕОМ

1.ЗАПУСК ПРОГРАМИ

1.1Розрахунок діаграми питомих рівнодіючих сил з використанням ПЕОМ виконується в програмі «Tiaga5».

Для початку роботи запустити програму. Для цього необхідно увійти в директорію, в якій записана програма, і запустити на виконання файл «turbo.exe», перемістивши на неї курсор, та натиснути «Enter». У паскалі необхідно загрузити в пам’ять ЕОМ програму «Tiaga5». Для цього необхідно натиснути клавішу «F3» і ввести ім’я програми, набравши на клавіатурі «Tiaga5». Для запуску програми в роботу необхідно натиснути комбінацію клавіш [Ctrl+F9].

1.2При правильному запуску програми екран очиститься і на ньому з’явиться напис «ВВЕДИТЕ ИСХОДНЫЕ ДАННЫЕ».

2.ВВЕДЕННЯ ВИХІДНИХ ДАНИХ

При введенні вихідних даних необхідно враховувати, що дана версія програми не дозволяє повертатися до попереднього питання, тому не потрібно поспішати і перед, тим, як натискати клавішу «Enter», треба уважно перевірити дані. Особливо обережно необхідно поводитися з клавішею «Enter». Не натискайте на неї двічі. Подвійне натискання призводить до переходу на введення наступних даних.

У випадку, якщо були допущені помилки введення, продовжуйте вводити наступні дані, а після вводу усіх даних знову запустіть програму, натиснувши клавішу «F2». При цьому підтверджуйте правильно введені дані або коректуйте неправильно введену інформацію.

2.1.Розрахункові сили натискання гальмівних колодок на ось «ТС/ОСЬ» приймаються згідно з завданням або по табличним величинам, приведеним в

[4, с. 13].

2.2.Частка гальмівних осей в складі.

Відношення гальмівних осей состава до загальної кількості осей в составі приймається по завданню або самостійно студентом.

2.3. Конструкційна швидкість локомотива.

Приймається зхарактеристик заданоголокомотивазгідноззавданням, [4]. 2.4. Навантаження на ось 4-вісних вагонів.

Навантаження необхідно вводити в тонно-силах. Величина навантаження знаходиться з урахуванням ваги вагона и кількості осей.

2.5. Частка 4-вісних вагонів на підшипниках ковзання.

Частка вагонів приймається згідно з завданням або задається викладачем

умежах 0–1.

2.6.Частка 4-вісних вагонів на підшипниках кочення.

При вводі часток вагонів необхідно слідкувати, щоб сума часток вагонів на підшипниках ковзання та кочення була рівна одиниці.

2.7.Навантаження на вісь 6-вісних вагонів.

2.8.Навантаження на вісь 8-вісних вагонів. Приймаються в тонно-силах виходячи з завдання.

2.9.Частка 4-вісних вагонів в складі.

2.10.Частка 6-вісних вагонів в складі.

2.11.Частка 8-вісних вагонів в складі.

Приймаються за завданням. При цьому необхідно враховувати, що сума часток усіх видів вагонів дорівнює одиниці.

2.12. Розрахункова вага локомотива.

Приймається за завданням або за характеристикою локомотива, [4]. 2.13. Вага складу з округленням до 50 тонн.

Приймається розрахункове значення, раніше перевірене за необхідними критеріями.

2.14. Швидкості та відповідні сили тяги з тягової характеристики V, F. Значення V і F приймаються з [4] за тяговою характеристикою локомоти-

ва. При цьому необхідно ввести значення для всіх точок «злому» тягової характеристики (точки переходів, переключення ТЕД), а також для значення початкової, розрахункової та кінцевої швидкості.

Після вводу усіх даних програма автоматично перейде до розрахунку.

3. ДРУК РЕЗУЛЬТАТІВ

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

4. КІНЕЦЬ РОБОТИ

Після закінчення розрахунків для виходу з програми необхідно натиснути комбінацію клавіш [Alt+X].

Текст програми

USES CRT, DOS,Printer; label 1;

VAR i,t:integer;

K, Y, V2, G4, A1, B1, G6, G8, A, B, J, P1, Q : REAL;

V, F, W1, A5, WO, B4, W3, C, D, W5, E, M, G, L, B5, H2, H :REAL; P , W4 , W6 , W8 , M4 , M6 , M8 , S1 : REAL;

s:text;

BEGIN assign(s,’out.txt’); clrscr;

rewrite(s);

K:=K*9.81;

G4:=G4*9.81;

G6:=G6*9.81;

G8:=G8*9.81;

k:=7;

y:=0.97;

v2:=100;

g4:=22;

g6:=0;

g8:=20.75;

a1:=0.25;

b1:=0.75;

a:=0.82;

b:=0;

j:=0.18;

p1:=238;

q:=4300;

WRITELN(‘ВВЕДИТЕ ДАННЫЕ’) ;

WRITELN(‘РАСЧЕТНЫЕ СИЛЫ НАЖАТИЯ ТОРМ. КОЛОДОК НА ОСЬ ТС/ОСЬ К=‘); READ(K);

WRITELN(‘ДОЛЯ ТОРМОЗНЫХ ОСЕЙ В СОСТАВЕ::::::::::::.. Y=‘); READ(Y);

WRITELN(‘КОНСТРУКЦИОННАЯ СКОРОСТЬ ЛОКОМОТИВА;;::::: V2=‘) ; READ(V2) ;

WRITELN ( ‘НАГРУЗКА НА ОСЬ 4-Х ОСНЫХ ВАГОНОВ: :::::::::. G4=‘ ) ; READ(G4);

WRITELN(‘ДОЛЯ 4-Х ОСНЫХ ВАГОНОВ НА ПОДШИПНИКАХ СКОЛЬЖЕНИЯ А1=‘); READ(A1);

WRITELN(‘ДОЛЯ 4-Х ОСНЫХ ВАГОНОВ НА ПОДШИПНИКАХ КАЧЕНИЯ:: В1=‘); READ(B1);

WRITELN(‘НАГРУЗКА НА ОСЬ 6-ОСНЫХ ВАГОНОВ:::::::::::.. G6=‘) ; READ(G6);

WRITELN(‘НАГРУЗКА НА ОСЬ 8-ОСНЫХ ВАГОНОВ:::;:::::::.. G8=‘) ; READ(G8) ;

WRITELN(‘ДОЛЯ 4-Х ОСНЫХ ВАГОНОВ В СОСТАВЕ::::::::::: А=‘ ) ; READ (A) ;

if g6=0 then b:=0 else begin

WRITELN(‘ДОЛЯ 6-ОСНЫХ ВАГОНОВ В СОСТАВЕ:::::::::::: В=‘) ; READ(B) ;

end;

WRITELN(‘ДОЛЯ 8-ОСНЫХ ВАГОНОВ В СОСТАВЕ:::::::::::: J=‘ ) ; READ(J) ;

WRITELN(‘РАСЧЕТНЫЙ ВЕС ЛОКОМОТИВА:;::::::::::::... Р1=‘); READ(P1) ;

WRITELN(‘МАССА СОСТАВА С ОКРУГЛЕНИЕМ ДО 50 ТОНН:::::::. Q=‘); READ(Q);

readln;

writeln(‘Введите количество пар скорости и сил тяги’);readln(t);

writeln(‘Введите попарно скорости и соотв. силы тяги из тяговой характерис-

тики-V,F’); readln(v,f);

if (v2-v)<0 then goto 1; P:=P1; W1:=1.9+0.01*V+0.0003*(V*V); A5:=P*W1;

W4:=0.7+(3+0.1*V+0.0025*(V*V)) / G4;

IF G6=0 THEN b:=0 ELSE W6:=0.7+(8+0.1*V+0.0025*(V*V)) / G6 ; W8:=0.7+(6+0.038*V+0.0021*(V*V)) / G8;

WO:=A*W4+B*W6+J*W8;

B4:=WO*Q;

W3:=A5+B4;

C:=F-W3; D:=C/(P+Q) ;

W5:=2.4+0.011+0.00035*(V*V) ; E:=P*W5;

M:=E+B4; G:=M / (P+Q);

M8:=INT((J*Q) / (G8*8)+0.5) ; if G6=0 then M6:=0

else M6:=INT((B*Q) / (G6*6)+0.5); M4:=INT((A*Q) / (G4*4)+0.5); S1:=Y*K*(M4*4+M6*6+M8*8)/(P1+Q);

IF k=7 THEN L:=0.27*((V+100) / (5*V+100)) ELSE L:=0.36*((V+150) / (2*V+150)); B5:=1000*S1*L;

H2:=(B5 / 2)+G; H:=B5+G;

WRITELN(s,V:3:0,’ ‘,F:3:0,’ ‘,W1:3:2,’ ‘,A5:3:0,’ ‘,WO:3:2,’ ‘,

B4:3:0,’ ‘,W3:3:0,’ ‘,C:3:0,’ ‘,D:3:2,’ ‘,W5:3:2,’ ‘,E:3:0,’ ‘, M:3:0,’ ‘, G:3:2,’ ‘,L:3:2,’ ‘,B5:3:1,’ ‘,H2:3:1,’ ‘,H:3:0);

WRITELN(lst,V:3:0,’ ‘,F:3:0,’ ‘,W1:3:2,’ ‘,A5:3:0,’ ‘,WO:3:2,’ ‘, B4:3:0,’ ‘,W3:3:0,’ ‘,C:3:0,’ ‘,D:3:2,’ ‘,W5:3:2,’ ‘,E:3:0,’ ‘, M:3:0,’ ‘,

writeln(lst,’g6=‘,g6:5:2);

writeln(lst,’g8=‘,g8:5:2);

writeln(lst,’a1=‘,a1:5:2);

writeln(lst,’b1=‘,b1:5:2);

writeln(lst,’a=‘,a:5:2);

writeln(lst,’b=‘,b:5:2);

writeln(lst,’j=‘,j:5:2);

writeln(lst,’p1=‘,p1:5:2);

writeln(lst,’q=‘,q:5:2);

WRITEln(‘Расчет таблицы закончен.Результаты в файле out.txt’); readln;

end.

Додаток Г

Розрахунок перегріву обмоток ТЕД із застосуванням ПЕОМ

1.ЗАПУСК ПРОГРАМИ

1.1.Перевірка перегріву обмоток ТЕД із використанням ПЕОМ виконується за програмою «Tiaga4».

Для початку роботи запустіть програму. Для цього необхідно ввійти в директорію, в якій записана програма, і запустити на виконання програму «turbo.exe», перемістивши на неї курсор і натиснувши «Enter». У «Турбопаскалі» необхідно завантажити в пам’ять ПЕОМ програму «Tiaga4». Для цього необхідно натиснути клавішу «F3» і ввести ім’я програми, набравши на кла-

віатурі «Tiaga4».

Для запуску програми в роботу необхідно натиснути комбінацію клавіш

[Ctrl+F3].

1.2.При правильному запуску програми екран очиститься і на ньому з’явиться напис «ВВОД ИСХОДНЫХ ДАННЫХ».

2.ПІДГОТОВКА ВИХІДНИХ ДАНИХ

2.1.Спочатку необхідно підготуватися до вводу в пам’ять ПЕОМ характеристики. Цю підготовку зручно виконати в вигляді табл. Г.1 (чим менше буде крок по струму, тим точніші будуть розрахунки).

2.2.Далі необхідно підготувати вихідні дані з токової характеристики. Цю підготовку зручно виконати у вигляді табл. Г.2, в якій вказано номер інтервалу, його тривалість, початковий та кінцевий струм генератора на цьому інтервалі.

3. ВВЕДЕННЯ ВИХІДНИХ ДАНИХ

При введенні вихідних даних необхідно враховувати, що дана версія програми не дозволяє повертатися до попередніх питань, тому не потрібно поспішати і, перш ніж натиснути клавішу «Enter», уважно перевірити дані. Особливо обережно необхідно поводитися з клавішею «Enter». Не натискайте на неї двічі. Подвійне натискання приводить до переходу на введення наступних даних.

У випадку, якщо були допущені помилки введення, продовжуйте вводити наступні дані, а після введення всіх даних знову запустіть програму, натиснувши клавіші [Ctrl+F3].

3.1.На запрошення ПЕОМ «Введите значение Т при токе генератора равном 0» необхідно ввести значення теплової постійної часу в хвилинах.

3.2.На запрошення ЕОМ ввести початкове та кінцеве значення струму для кривої Т, необхідно ввести струм в амперах (у нашому випадку (див. рис. Г.1) початкове значення – 1000 А, а кінцеве – 3400 А.)

3.3.Крок по струму також вводиться в амперах (у нашому випадку – 200 А).

3.4.Далі ПЕОМ буде видавати на екран інформацію про значення струму

ізапрошувати вас ввести відповідне значення теплової постійної часу – Т.

3.5.Коли ПЕОМ буде видавати на екран інформацію про значення струму

ізапрошувати вас ввести «...соответствующее значение ТАУ», необхідно вводити температуру перегріву, яка встановилась би при тривалій дії даного навантаження, °С.

3.6.«Введите количество Т.Д.» – необхідно ввести кількість двигунів на тепловозі, але так як для тепловозів ТЭ1, ТЭ2, ТЭ3, ТЭ7 та ТЭМ1 на нагрів перевіряється тяговий генератор, то необхідно вводити «1».

3.7.«Введите начальную температуру ТЭД» – необхідно ввести температуру оточуючого середовища, °С.

3.8.«Введите интервал времени» – необхідно ввести проміжок часу, за який величина струму приймається постійною, хв.

ТаблицяГ.1- Залежністьтеплових параметріввідструму

ТаблицяГ.2 - Вихідніданізтокової характеристики

РисунокГ.1 - Залежністьтепловихпараметріввідструму

Текст програми

Program PEREG;

USES CRT,PRINTER; τ ,D С Т, мин label 1,2,3,4,5,6; ∞

var

HN:array [0..15,1..2] of real; Peregrev:array [0..500,0..5] of real;

j,ik1,z,m,dIsr,in1,it,in2,Itau,dt,i0,ik,Isr,di,k9,hn1,hn2:real;

l,k,s,n8,y,i,q,kted,i2,i9,w,e,n9:byte; BEGIN

CLRSCR;

writeln(‘‚Ввод исходных данных’);

writeln(‘‚Введите значение Т при токе генератора равном 0’);Readln(z); writeln(‘‚Введите начальное значение тока для кривой Т ‘‘);readln(in1); writeln(‘‚Введите конечное значение тока для кривой Т ‘‘);readln(ik1); writeln(‘‚Введите шаг по току’);Readln(di);

j:=in1;

l:=1;

while j<=ik1 do Begin

writeln(‘I=‘,j:6:2,’ ‚Введите соответствующее значение Т’’);readln(HN[l,1]); j:=j+di;

l:=l+1;

End;

j:=in1;

l:=1;

clrscr;

while j<=ik1 do Begin

writeln(‘I=‘,j:6:2,’ ‚ Введите соответствующее значение ТАУ

‘);readln(HN[l,2]);

j:=j+di;

l:=l+1;

End;

Clrscr;

writeln(‘‚Введите количество ТЕД’);readln(kted); writeln(‘‚Введите количество участков перегрева’);readln(i2);

writeln(‘‚Введите начальную температуру ТЕД’);readln(peregrev[0,5]); i9:=1;

writeln(lst,’ Печать результатов расчета ТЕД’);

Writeln(lst,’ ------------------------------------------------------------’); writeln(lst,’ |Номер интервала|Интервал dt|Средний ток|Отношение dt/T|Температура ТЕД|’);

Writeln(lst,’ ----------------------------------------------------------’); for i:=1 to i2 do

Begin

writeln(‘‚Введите интервал времени’);readln(dt); writeln(‘‚Введите ток генератора в начале интервала’);readln(i0); writeln(‘‚ Введите ток генератора в конце интервала’ );readln(ik); Isr:=(i0+ik)/(2*kted);

k9:=((Isr-in1)/di); if Isr<>0 then Begin

if frac(k9)=0 then Begin e:=round(k9);e:=e+1; End

else

if frac(k9)>=0.5 then e:=round(k9) else e:=trunc(k9)+1;