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 179 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 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 *)