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í.
235e-6; parametry obvodu *)
R2 12e3; 10e-9;
fr 1000; kmitocet *)
pi 3.5..n,1.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..
Příloha Řešení soustavy lineárních rovnic komplexními koeficienty
metodou Gaussovy eliminace
Program určen např. Parametry obvodu jsou konstantní, může však měnit kmitočet, označený programu
identifikátorem fr. programu nastaveno 1000 Hz).
program komrov;
(* reseni soustavy linearnich rovnic komplexnimi koeficienty
metodou Gaussovy eliminace *)
const
n pocet rovnic *)
R1 1680; 0.1415926536;
type
mat array[1.3-
10. řešení lineárních setrvačných obvodů ustáleném stavu
pomocí symbolického počtu.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) *)
. Jako příklad uvedeno řešení vazebního článku obr.
Výsledné hodnoty jsou
x[1]=I1=1,760335 mA, x[2]=I2=1,047209 mA, x[3]=I3=-0,06744099 mA..n+1] real;
vek array[1
