%% Lezart ketkapu - R karakterisztikaval adott
% 
% Teljesitmeny illesztes
% 
%% 1. Altalanos esetben a valasz
% szimbolumok megadasa
syms R11 R12 R21 R22 Rt R0 U0 u1 u2 i1 i2

% egyenletek megadasa 
% karakterisztikak es ..
eq1 = u1 == R11*i1+R12*i2;
eq2 = u2 == R21*i1+R22*i2;
% lezaraasok 
eq3 = i1+(u1-U0)/R0 == 0;
eq4 = u2 == -i2*Rt;

% egyenletek megoldasa a keresett ismeretlenekre nezve
sol = solve([eq1, eq2, eq3, eq4], [u1, u2,i1,i2]);
% kiiratas szep formatumban
pretty(collect(sol.u2))
%% Specialis lezarasok esete
% a. szakadassal torteno lezaras
% csak a 
eq5 = i2 == 0;
% sol2 --> uresjarasi esetben a megoldas
sol2 = solve([eq1,eq2,eq3,eq5],[u1,u2,i1,i2]);
pretty(collect(sol2.u2))

% b. rovidzarral torteno lezaras
eq6 = u2 == 0;
% sol3 --> rovidzarasi esetben a megoldas
sol3 = solve([eq1,eq2,eq3,eq6],[u1,u2,i1,i2]);
% irz = -i2 miatt
pretty(collect(-sol3.i2))
