Паскаль-программа

“Расчет характеристик холостого хода трансформатора”

{Эта Паскаль-программа обеспечивает расчет характеристик холостого хода трансформатора

Исходные данные (см. табл.1.1, графа Измерение) считываются из файла data.XX .

Файл data.XX формируется (редактируется) пользователем.

Результаты расчета (табл.1.1, графа Расчет помещаются в файл result.XX .

Файл result.XX создается турбосредой.

Обозначения физических величин (переменных), которые приняты в учебной литературе по дисциплине Электрические машины и
в Паскаль-программе, совпадают}

uses crt;

var i, n : integer;

fi, fo : text;

U1x, U2x, IAx, IBx, ICx, PAx, PCx,

Ix, Px, CosFix, K, Zm, Rm, Xm : array[1..30] of real;

begin

clrscr;

assign(fi,'d:\tp_7\pas\data.XX'); reset(fi);

assign(fo,'d:\tp_7\pas\result.XX'); rewrite(fo);

writeln(fo,' Паскаль-программа обеспечивает расчет');

writeln(fo,'характеристик холостого хода трансформатора');

writeln(fo,'===========================================');

write('1. ВВЕДИТЕ число точек на экспериментальной зависимости n = ');

read (n);

{Считывание исходных данных из файла data.XX}

for i := 1 to n do

read(fi,U1x[i], U2x[i], IAx[i], IBx[i], ICx[i], PAx[i], PCx[i]);

{Расчет характеристик холостого хода

и сопротивлений намагничивающего контура}

for i := 1 to n do begin

Ix[i] := (IAx[i] + IBx[i] + ICx[i])/3;

Px[i] := PAx[i] + PCx[i];

CosFix[i] := Px[i]/(3.*U1x[i]*Ix[i]);

K[i] := U2x[i]/U1x[i];

Zm[i] := U1x[i]/Ix[i];

Rm[i] := Px[i]/(3.*sqr(Ix[i]));

Xm[i] := sqrt(sqr(Zm[i]) - sqr(Rm[i]))

end;

writeln(fo,' ФАЙЛ С РЕЗУЛЬТАТАМИ РАСЧЕТА');

writeln(fo);

writeln(fo, ' Таблица 1.1, графа "ИЗМЕРЕНИЕ"');

writeln(fo, ' (исходные данные)');

writeln(fo, '------------------------------------------------------');

writeln(fo, 'U1x U2x IAx IBx ICx PAx PCx ');

writeln(fo, '------------------------------------------------------ ');

writeln(fo, ' В В A А А Вт Вт');

writeln(fo, '------------------------------------------------------');

for i := 1 to n do

writeln(fo, U1x[i]:3:0,' ',U2x[i]:3:0,' ',IAx[i]:3:2,' ',

IBx[i]:3:2,' ',ICx[i]:3:2,' ',PAx[i]:4:1,' ',PCx[i]:5:1);

writeln(fo, '-------------------------------------------------------');

writeln(fo);

writeln(fo, ' Продолжение табл. 1.1, графа "РАСЧЕТ"');

writeln(fo, ' (результаты расчета)');

writeln(fo, '---------------------------------------------------------');

writeln(fo, ' Ix Px CosFix K Zm Rm Xm');

writeln(fo, '----------------------------------------------------------');

writeln(fo, ' А Вт - - Ом Ом Ом');

writeln(fo, '----------------------------------------------------------');

for i := 1 to n do

writeln(fo,Ix[i]:3:2,' ',Px[i]:4:1,' ',CosFix[i]:4:3,' ',

K[i]:4:2,' ',Zm[i]:5:1,' ',Rm[i]:5:1,' ',Xm[i]:5:1);

writeln(fo, '----------------------------------------------------------');

writeln(fo);

writeln(fo,'Copyright, кафедра ЭЭМ МГАУ, Москва.');

writeln(fo,'Паскаль-программу составил профессор Е.И.Забудский ');

writeln(fo,'10 сентября 2000 года.');

close(fi); close(fo)

end.

П р и м е ч ан и е:

  1. Паскаль-программа расчета характеристик холостого хода трансформатора (файлы XX.pas и XX.exe) реализована на компьютерах Вычислительной лаборатории кафедры Электроснабжение и Электрические машины.
  2. Перед запуском программы на выполнение необходимо отредактировать текст файла data.XX в соответствии с выполненным экспериментом (таблица 1.1, графа “Измерение”).
  3. Результаты расчета помещаются турбосредой в файл result.XX (см. далее).
  4. Для расчета других характеристик студентам рекомендуется составить компьютерные программы (аналогично вышеприведенной) самостоятельно.

ФАЙЛ С РЕЗУЛЬТАТАМИ РАСЧЕТА

ХАРАКТЕРИСТИК ХОЛОСТОГО ХОДА ТРАНСФОРМАТОРА

Таблица 1.1, графа "ИЗМЕРЕНИЕ"

(исходные данные)

--------------------------------------------------------

U1x U2x IAx  IBx  ICx  PAx   PCx

--------------------------------------------------------

В    В   A    А    А   Вт    Вт

--------------------------------------------------------

 86  90 0.23 0.20 0.22 35.0  -10.0

104 108 0.39 0.28 0.38 60.0  -25.0

115 121 0.50 0.37 0.50 80.0  -52.5

127 133 0.68 0.50 0.68 115.0 -75.0

133 138 0.76 0.57 0.80 132.5 -85.0

---------------------------------------------------------

Продолжение табл. 1.1, графа "РАСЧЕТ"

(результаты расчета)

--------------------------------------------------------------

Ix   Px  CosFix   K   Zm    Rm   Xm

--------------------------------------------------------------

А    Вт    -     -    Ом    Ом   Ом

--------------------------------------------------------------

0.22 25.0 0.447 1.05 396.9 177  355.0

0.35 35.0 0.321 1.04 297.1 95.2 281.5

0.46 27.5 0.175 1.05 251.8 44.0 248.0

0.62 40.0 0.169 1.05 204.8 34.7 201.9

0.71 47.5 0.168 1.04 187.3 31.4 184.7

---------------------------------------------------------------

© Copyright, кафедра Электроснабжение и Электрические машины, МГАУ, Москва.

Паскаль-программу составил профессор Е.И.Забудский

10 сентября 2000 года.

Сайт создан в системе uCoz

Возврат в меню ''Учебно-методический комплекс дисциплины Электрические машины''
Вернуться назад