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í.
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) *)
.. řešení lineárních setrvačných obvodů ustáleném stavu
pomocí symbolického počtu.3-
10.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.1415926536;
type
mat array[1.
program komrov;
(* reseni soustavy linearnich rovnic komplexnimi koeficienty
metodou Gaussovy eliminace *)
const
n pocet rovnic *)
R1 1680; 0.235e-6; parametry obvodu *)
R2 12e3; 10e-9;
fr 1000; kmitocet *)
pi 3.n,1...
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.5. programu nastaveno 1000 Hz).
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. Jako příklad uvedeno řešení vazebního článku obr
