Вдосконалення програмної реалізації процедури TOK_US

26.10.2015

1) Забезпечити перехід в комплексний простір;

2) Забезпечити урахування Ктр.

3) Необхідно розробити нову табличну структуру :

А) треба внести колонку для модуля Us та його кута;

Б) колонку для Isa, Isr;

В) додати Rv,Xv;

Г) колонка для Ктр.

4) Розробити рішення для питання про представлення Ктр (відмітити у вузлі орієнтацію [В] [Н]);

5) Додати робочі масиви Iva, Ivr;

6) Додати масиви Ua,Ur;

Програмна реалізація питань:

ProgramHW4;

usescrt;

vari:integer;

constn=7;

typecomplex=record

re,im:real;

end;

procedurenapruga(a,b:double; varc:complex);

Begin

c.re:=a*cos(b);

c.im:=a*sin(b);

end;

procedureProizvedenie(f,g:complex;varz:complex);

Begin

z.re:=f.re*g.re-f.im*g.im;

z.im:=g.re*f.im+f.re*g.im;

end;

ProcedureTOK_US;

Var

k,KI,t,dI,p,dU: integer;

Il:array[1..n] ofcomplex;

ls:array[1..n] ofcomplex;

Us:array[1..n] ofdouble;

UsK:array[1..n] ofdouble;

Usc:array[1..n] ofcomplex;

Rl:array[1..n] ofcomplex;

pU:array[1..n] ofcomplex;

Isa:array[1..n] ofcomplex;

Isr:array[1..n] ofcomplex;

Iva:array[1..n] ofcomplex;

Ivr:array[1..n] ofcomplex;

Ua:array[1..n] ofcomplex;

Ur:array[1..n] ofcomplex;

Rv:array[1..n] ofcomplex;

Xv:array[1..n] ofcomplex;

Os:array[1..n] ofstring;

Ds:array[1..n] ofinteger;

SpI:array[1..n] ofinteger;

SpU:array[1..n] ofinteger;

KT:array[1..n] ofinteger;

Begin

fork:=1 toKI do

Begin

Il[k].re:=0;

Il[k].im:=0;

end;

fork:=1 toKI do

Begin

napruga(Us[k],Usk[k],Usc[k]);

end;

t:=dI;

whilet<>0 do

Begin

ifOs[t]='n' then

Begin

ls[t].re:=ls[t].re/KT[t];

ls[t].im:=ls[t].im/KT[t];

end;

p:=Ds[t];

Il[t].re:=Il[t].re+ls[t].re;

Il[t].im:=Il[t].im+ls[t].im;

ifp <> 0 then

Begin

Il[p].re:=Il[p].re+Il[t].re;

Il[p].im:=Il[p].im+Il[t].im;

end;

t:=SpI[t];

end;

t:=dU;

whilet<>0 do begin

p:=Ds[t];

ifOs[p]='n' then

Begin

Usc[p].re:=Usc[p].re*KT[p];

Usc[p].im:=Usc[p].im*KT[p];

end;

ifp <> 0 then

Begin

Proizvedenie(Rl[t],Il[t],pU[t]);

Usc[t].re:=Usc[p].re-pU[t].re;

Usc[t].im:=Usc[p].im-pU[t].im;

end;

t:=SpU[t];

end;

end;

Begin

end.

Контрольна робота №5

26.10.2015

1) Обрати довільний розімкнений граф із 6 вузлів.

2) Задати опори графа (цілі числа).

3) Методом одиничних струмів розрахувати матрицю Zs.

4) Графічно відобразити кожен крок розрахунку:

1. Подаємо одиничний струм в перший вузол:

2. Подаємо одиничний струм в другий вузол:

3. Подаємо одиничний струм в третій вузол:

4. Подаємо одиничний струм в четвертий вузол:

5. Подаємо одиничний струм в шостий вузол:

Отримуємо матрицю Zs.Матриця Zs

повинна бути симетрична. Відповідно

результат вірний.

5) Вибрати довільний граф з 3 контурами. 6) Виділити розрізи на графі.

7) Аналогічно п.3 знайти матрицю контурних опорів.

8)

Контрольна робота №6

Поиск по сайту: