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
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