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 182 z 186
Vámi hledaný text obsahuje tato stránku dokumentu který není autorem určen k veřejnému šíření.
Příloha Řešení soustavy diferenciálních rovnic normálním tvaru
metodou Rungeho Kutty řádu
Program řeší soustavy diferenciálních rovnic řádu, např.
Výsledné hodnoty uzlových napětí pro fr=1000Hz jsou:
U1=0.5.0841996 [V], UC2 0.878115-j0. proceduře DIFR musí být rovnice zapsány tvaru výrazů
dx/dt=f(x,t). Jako příklad uvedeno řešení přechodného děje vazebním článku z
obr. vstupních datech musí být uvedeny hodnoty tmin, tmax, a
počáteční hodnoty proměnných.
.182 Fakulta elektrotechniky komunikačních technologií VUT Brně
end;
end;
end;
dr:=1; di:=0;
for j:=1 do
begin
a:=yr[j,j]; b:=yi[j,j];
cdiv(yr[j,n1],yi[j,n1],a,b,xr[j],xi[j]);
cmult(dr,di,a,b,dr,di);
end;
end;
end;
end;
end;
end;
end;
dr:=1; di:=0;
for j:=1 do
begin
a:=yr[j,j]; b:=yi[j,j];
cdiv(yr[j,n1],yi[j,n1],a,b,xr[j],xi[j]);
cmult(dr,di,a,b,dr,di);
end;
end;
begin ridici program *)
Gaussk(n,yr,yi,xr,xi,dr,di);
for i:=1 writeln(i:3,' ',xr[i]:12,' ',xi[i]:12);
writeln(dr:12,' ',di:12);
readln;
end.844171-j0.3-10 při zadaných počátečních podmínkách uC10=1V, uC20=-3V.0350643[V].4-1). soustavu stavových rovnic
ve tvaru (5
