Předložený studijní materiál slouží jako základní studijní materiál distanční formy
studia předmětu Elektrotechnika 2, který navazuje na předmět Elektrotechnika 1 a spolu s ním
vytváří nezbytně nutné teoretické základy společné pro všechny elektrotechnické obory, které
jsou potřebné pro studium předmětů specializací v dalších ročnících studia.
Autor: Doc. Ing. Jiří Sedláček, CSc. Prof. Ing. Juraj Valsa, CSc.
Strana 181 z 186
Vámi hledaný text obsahuje tato stránku dokumentu který není autorem určen k veřejnému šíření.
Elektrotechnika 181
begin
e:=a*c-b*d; f:=a*d+b*c;
end;
procedure cdiv(a,b,c,d:real;var e,f:real);
(* deleni komplexnich cisel e+jf (a+jb)/(c+jd) *)
begin
f:=c*c+d*d; e:=(a*c+b*d)/f; f:=(b*c-a*d)/f;
end;
var
n1,j,j1,ii,k integer;
a,b,e,f real;
begin
n1:=n+1;
for j:=1 do
begin
j1:=j+1;
if j<n then
begin
a:=abs(yr[j,j])+abs(yi[j,j]); ii:=0;
for k:=j1 do
begin
b:=abs(yr[k,j])+abs(yi[k,j]);
if b>a then begin a:=b; ii:=k; end;
end;
if ii>0 then
for k:=1 do
begin
a:=yr[ii,k]; b:=yi[ii,k];
yr[ii,k]:=yr[j,k];
yi[ii,k]:=yi[j,k]; yr[j,k]:=a;
yi[j,k]:=b;
end;
end;
for k:=1 do
begin
if k<>j then
begin
a:=yr[k,j]; b:=yi[k,j];
if abs(a)+abs(b)>0 then
begin
cdiv(a,b,yr[j,j],yi[j,j],a,b);
for ii:=j1 do
begin
cmult(a,b,yr[j,ii],yi[j,ii],e,f);
yr[k,ii]:=yr[k,ii]-e;
yi[k,ii]:=yi[k,ii]-f;
end;
end;