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 180 z 186
Vámi hledaný text obsahuje tato stránku dokumentu který není autorem určen k veřejnému šíření.
180 Fakulta elektrotechniky komunikačních technologií VUT Brně
begin
Gauss(n,a,x,det); volani procedury Gauss *)
for i:=1 write(x[i]:13,' ');
writeln;
writeln(det:13);
readln;
end.. programu nastaveno 1000 Hz).
program komrov;
(* reseni soustavy linearnich rovnic komplexnimi koeficienty
metodou Gaussovy eliminace *)
const
n pocet rovnic *)
R1 1680; 0. Jako příklad uvedeno řešení vazebního článku obr.3-
10.235e-6; parametry obvodu *)
R2 12e3; 10e-9;
fr 1000; kmitocet *)
pi 3. Parametry obvodu jsou konstantní, může však měnit kmitočet, označený programu
identifikátorem fr.n+1] real;
vek array[1.5. řešení lineárních setrvačných obvodů ustáleném stavu
pomocí symbolického počtu..
Příloha Řešení soustavy lineárních rovnic komplexními koeficienty
metodou Gaussovy eliminace
Program určen např.
Výsledné hodnoty jsou
x[1]=I1=1,760335 mA, x[2]=I2=1,047209 mA, x[3]=I3=-0,06744099 mA.n,1.n] real;
const
yr:mat 1/R1, 1/R1),
( 1/R2, 0));
yi:mat 2*pi*fr*C1, -2*pi*fr*C1, 0),
(-2*pi*fr*C1, 2*pi*fr*(C1+C2), 0));
var
i integer;
xr,xi vek; vektor neznamych *)
dr,di real; determinant *)
procedure Gaussk(n:integer;yr,yi:mat;
var xr,xi:vek;var dr,di:real);
procedure cmult(a,b,c,d:real;var e,f:real);
(* nasobeni komplexnich cisel e+jf (a+jb)*(c+jd) *)
..1415926536;
type
mat array[1