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. Parametry obvodu jsou konstantní, může však měnit kmitočet, označený programu
identifikátorem fr. programu nastaveno 1000 Hz). Jako příklad uvedeno řešení vazebního článku obr.5.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...3-
10.1415926536;
type
mat array[1.
program komrov;
(* reseni soustavy linearnich rovnic komplexnimi koeficienty
metodou Gaussovy eliminace *)
const
n pocet rovnic *)
R1 1680; 0. ř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ř.n+1] real;
vek array[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.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) *)