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