ELEKTROTECHNIKA II

| Kategorie: Skripta  | Tento dokument chci!

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í.

Jak získat tento dokument?






Poznámky redaktora
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;