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 179 z 186
Vámi hledaný text obsahuje tato stránku dokumentu který není autorem určen k veřejnému šíření.
Elektrotechnika 179
var
i,j integer;
det real;
x vek;
procedure Gauss(n:integer;a:mat;var x:vek;var dd:real);
(* reseni linearnich rovnic metodou Gaussovy eliminace
s castecnou pivotaci
n pocet rovnic
a matice soustavy n*n+1
v poslednim sloupci vektor pravych stran
x vektor neznamych
dd hodnota determinantu matice *)
var
t1,t2 real;
n1,i,j,k,j1: integer;
begin
n1:=n+1;
for j:=1 do
begin
j1:=j+1; j<n then
begin
t1:=abs(a[j,j]); i:=0; hledani nejvetsiho
prvku *)
for k:=j1 do
begin
t2:=abs(a[k,j]); t2>t1 then
begin t1:=t2; i:=k; end;
end;
if i>0 then
for k:=1 zamena radku *)
begin t1:=a[i,k]; a[i,k]:=a[j,k];
a[j,k]:=t1; end;
end;
t2:=a[j,j]; pivot *)
for k:=1 do
begin
if k<>j then
begin
t1:=a[k,j]/t2; t1<>0 then
for i:=j1 a[k,i]:=a[k,i]-t1*a[j,i];
end;
end;
end;
dd:=1;
for j:=1 zpetna substituce vypocet
determinantu *)
begin t1:=a[j,j]; x[j]:=a[j,n1]/t1; dd:=dd*t1; end;
end;
(* vlastni ridici program *)