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

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. «Введите интервал времени» – необхідно ввести проміжок часу, за який величина струму приймається постійною, хв.

 

 

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

 

Program PEREG;

USES CRT,PRINTER;

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;

HN1:=hn[e,1]+(hn[e+1,1]-hn[e,1])*(Isr-di*int(Isr/di))/di;

End

else

Begin

HN1:=z;

HN2:=0;

if dt/hn1>=0.1 then goto 5

else

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9;

peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]);

goto 2;

end;

if dt/hn1>=0.1 then goto 5

else

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9;

HN2:=hn[e,2]+(hn[e+1,2]-hn[e,2])*(Isr-di*int(Isr/di))/di;

peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]);

goto 2;

5:n9:=1;

6:dt:=dt/2;

Isr:=(i0+Isr*kted)/(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;

HN1:=hn[e,1]+(hn[e+1,1]-hn[e,1])*(Isr-di*int(Isr/di))/di;

End

else

Begin

HN1:=z;

HN2:=0;

End;

if dt/hn1>=0.1 then

Begin

n9:=n9+1;

goto 6;

End

else

y:=1;

for s:=1 to n9 do

Begin

y:=y*2;

end;

for n8:=1 to y do

Begin

dIsr:=Isr-i0;

Isr:=Isr+(n8-1)*2*dIsr;

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;

HN1:=hn[e,1]+(hn[e+1,1]-hn[e,1])*(Isr-di*int(Isr/di))/di;

End

else

Begin

HN1:=z;

HN2:=0;

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9;

peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]);

goto 3;

end;

peregrev[i9,1]:=dt;

peregrev[i9,2]:=Isr*kted;

peregrev[i9,3]:=Isr;

peregrev[i9,4]:=dt/hn1;

peregrev[i9,0]:=i9;

HN2:=hn[e,2]+(hn[e+1,2]-hn[e,2])*(Isr-di*int(Isr/di))/di;

peregrev[i9,5]:=hn2*dt/hn1+peregrev[i9-1,5]*(1-peregrev[i9,4]);

3:write(lst,’ | ‘,peregrev[i9,0]:6:0,’| ‘,peregrev[i9,1]:6:2,’|’,peregrev[i9,3]:6:0);

writeln(lst,’| ‘,peregrev[i9,4]:6:4,’| ‘,peregrev[i9,5]:6:2,’|’);

i9:=i9+1;

End;

goto 1;

2:write(lst,’ | ‘,peregrev[i9,0]:6:0,’| ‘,peregrev[i9,1]:6:2,’| ‘,peregrev[i9,3]:6:0);

writeln(lst,’| ‘,peregrev[i9,4]:6:4,’| ‘,peregrev[i9,5]:6:2,’|’);

i9:=i9+1;

1: End;

Readln;

END.