Дослідження перехідних процесів та частотних характеристик електричних кіл методами математичного моделювання, страница 3

  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Math;

type

  TForm2 = class(TForm)

    Chart1: TChart; Series1: TLineSeries; Series2: TLineSeries; Series3: TLineSeries; Series4: TLineSeries;

    procedure FormShow(Sender: TObject);

  end;

var

  Form2: TForm2;

implementation

uses Kpr_1;

procedure TForm2.FormShow(Sender: TObject);

var j:integer;

begin

 Chart1.BottomAxis.Maximum:=2*Max(Max(dUn,di1),dInagr);

 for j:=0 to Max(Max(Dliti1,DlitInagr),DlitUn) div 20 do

   begin

    Chart1.Series[0].AddXY(t[j*4],i1[j*4]);

    Chart1.Series[1].AddXY(t[j*4],Un[j*4]/10);

    Chart1.Series[2].AddXY(t[j*4],Inagr[j*4]);

    Chart1.Series[3].AddXY(t[j*4],E[j*4]/10);

   end;

end;

end.

5.5.Программа, написанная в среде программирования Delphi (язык Object Pascal) для расчета переходного процесса в цепи при переменном ЭДС.

Данная программа получается из предыдущей после небольшой модификации:

−  в блоке определения начальных условий выражение E[0]:=Em; заменяется на E[0]:=0;

−  в блоке расчетов выражение E[j]:=E[j-1]; заменяется на E[j]:=Em*sin(2*Pi*f*t[j]);

5.6.Результаты работы первой программы:

Определение передаточной функции

K/(K*T1^2*p+K*T2*p+K*T3*p+1)

K=0,6

T1=1E-5

T2=1E-5

T3=6,66666666666667E-6

Расчет цепи по методу Эйлера

Определение максимальной частоты цепи

Максимальная частота 1-го контура (E-L1-C2) 15915,4945806786 Гц

Максимальная частота 2-го контура (L1-L2-C2) 4798,70217064052 Гц

Максимальная частота цепи 15915,4945806786 Гц

Выбираем шаг интегрирования: 6,2831852E-7

Вычисляем количество шагов интегрирования: 1989

Вычисляем токи и напряжения при постоянном значении ЭДС...

t=	i1=	i2=	i3=	Inagr=	Un=
6,2831852E-7	0,314	0	0	0	0
1,25663704E-6	0,609	0,0314	0,314	0	0
1,88495556E-6	0,883	0,063	0,595	0,013	0,395
2,51327408E-6	1,138	0,094	0,845	0,038	1,143
3,1415926E-6	1,374	0,126	1,065	0,073	2,205
3,76991112E-6	1,591	0,157	1,256	0,118	3,543
4,39822964E-6	1,789	0,188	1,42	0,17	5,121
5,02654816E-6	1,969	0,21	1,559	0,23	6,906
5,65486668E-6	2,132	0,251	1,673	0,295	8,865
6,2831852E-6	2,277	0,283	1,766	0,366	10,967
…	…	…	…	…	…
0,001243	2	62,14	0	2	60
0,001244	2	62,172	0	2	60
0,001244	2	62,204	0	2	60
0,001245	2	62,235	0	2	60
0,001245	2	62,266	0	2	60
0,001246	2	62,298	0	2	60
0,001247	2	62,329	0	2	60
0,001247	2	62,36	0	2	60
0,001248	2	62,392	0	2	60
0,001249	2	62,423	0	2	60

Длительность переходного процесса: 0,000377

Рис 5.2. Графики переходного процесса при постоянной ЭДС