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 178 z 186
Vámi hledaný text obsahuje tato stránku dokumentu který není autorem určen k veřejnému šíření.
1-1.n] real;
mat array[1.
Příloha Řešení soustavy lineárních rovnic reálnými koeficienty
metodou Gaussovy eliminace
Program určen např.2, 8. Jde jednoduché programy jazyku PASCAL, které nejsou náročné na
rozsah paměti počítače nekladou přílišné nároky použitou verzi překladače. pro řešení rovnic rezistorového lineárního obvodu při použití
metody smyčkových proudů nebo uzlových napětí. Jako příklad jsou programu uvedena
data, odpovídající jednoduchému můstku, popsanému rovnicemi smyčkových proudů.7+10*(1-m), 0));
.n,1.1-1 Jednoduchý můstek jako příklad pro použití programu
LINROV
= 8,7 kΩ
= 3,0 kΩ
= 7,0 kΩ
= 1,0 kΩ
Rc
Rc
Rd
Rd
R
Rb
b
I1
I3
2I
program linrov; reseni soustavy linearnich rovnic *)
vek array[1.7, 8.178 Fakulta elektrotechniky komunikačních technologií VUT Brně
7.P.2, -13. Výhodné však je, zadání přehledné,
snadno kontrolovatelné dovoluje provádět modifikace.2, 23.2, -8..n+1] real;
(* odporovy mustek potenciometrem *)
(* rovnice pro smyckove proudy, vysledky *)
a mat 13.
Schéma obr. Nastavení běžce dáno parametrem (v
programu nastaveno 0. Hodnoty odporů Ra, jsou pevné, odpory jsou části
potenciometru celkovém odporu kΩ. Vstupní data
jsou všech případech zadávána formě konstant začátku programu.7, 10),
(-8.2 Přílohy
V Příloze jsou uvedeny tři programy, které mohou být užitečné při řešení elektrických
obvodů počítači.3; 3k, *)
(-13.
const
n pocet rovnic *)
type
const
m 0.3).7+10*(1-m), 0),
U=10V0
Re
Re
Ra
Ra 4,5 kΩ
Obr P..7+10*(1-m), 9. To, program
musíme vždy zadání nového příkladu znovu zkompilovat, nepůsobí potíže, protože
kompilace ukončena během několika sekund.