% Reduccion del Esquema de Sec.2 a los puntos m,p
% Obtencion de Y2. Particiones A2,B2,C2,D2
% E2=A2-B2*inv(D2)*C2;
% E2.VB(1,2)=IB(1,2) VB1=Vm2 VB2=Vp2 IB1=-Im2 IB2=-Ip2
% Para obtener Im2+E1(1,1).Vm2+E1(1,2).Vp2=0
% Ip2+E1(2,1).Vm2+E22.Vp2=0
% Finalmente Im2+(1/zm2+1/zmp2).Vm2+(-1/zmp2).Vp2=0
% Ip2+(-1/zmp2).Vm2+(1/zp2+1/zmp2).Vp2=0
%[zm2,zmp2,zp2]=subzmp2(Y2);
function[zm2,zmp2,zp2]=subzmp2(Y2)
A2=Y2(1:2,1:2);
B2=Y2(1:2,3:4);
C2=Y2(3:4,1:2);
D2=Y2(3:4,3:4);
E2=A2-B2*inv(D2)*C2;
zm2=1/(E2(1,1)+E2(1,2));
zmp2=-1/E2(1,2);
zp2=1/(E2(1,2)+E2(2,2));
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
