Паскаль-программа
“Расчет характеристик холостого хода трансформатора”
{Эта Паскаль-программа обеспечивает расчет характеристик холостого хода трансформатора
Исходные данные (см. табл.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, кафедра ЭЭМ МГАУ, Москва.');
write
ln(fo,'Паскаль-программу составил профессор Е.И.Забудский ');writeln(fo,'10 сентября 2000 года.');
close(fi); close(fo)
end.
П р и м е ч ан и е:
ФАЙЛ С РЕЗУЛЬТАТАМИ РАСЧЕТА
ХАРАКТЕРИСТИК ХОЛОСТОГО ХОДА ТРАНСФОРМАТОРА
Таблица 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 года.