|
Сложение:
Procedure AddC(c1,c2: Complex; var C: Complex);
begin
c.Re:=c1.Re+c2.Re;
c.Im:=c1.Im+c2.Im;
end;
Умножение:
Procedure MulC(c1,c2: Complex; var C: Complex);
begin
c.Re:=c1.Re*c2.Re-c1.Im*c2.Im;
c.Im:=c1.Re*c2.Im+c1.Im*c2.Re;
end;
Деление:
Procedure DivC(c1,c2: Complex; var C: Complex);
begin
c.Re:=(c1.Re*c2.Re-c1.Im*c2.Im)/(sqr(c2.Re)-sqr(c2.Im));
c.Im:=c1.Re*c2.Im+c1.Im*c2.Re/(sqr(c2.Re)-sqr(c2.Im));
end;
Также была создана процедура вычисления эквивалентного сопротивления двух параллельных ветвей:
Procedure Par(c1,c2: Complex; var C: Complex);
var m,a: Complex;
begin
AddC(c1,c2,a);
MulC(c1,c2,m);
DivC(m,a,C);
end;
Дата добавления: 2015-10-21; просмотров: 24 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Навчитися за допомогою мегомметра здійснювати вимірювання опору ізоляції обмоток електричних машин. | | | 1. Осот полевой. Сонкус Арвенсис. Сложноцветные Астерация |