% Reduccion del Esquema de Sec.1 a los puntos m,p
% Obtencion de Y1. Particiones A1,B1,C1,D1
% E1=A1-B1*inv(D1)*C1;
% E1.VB(1,2)=IB(1,2) VB1=Vm1-E VB2=Vp1-E IB1=-Im1 IB2=-Ip1
% Para obtener Im1+E1(1,1).Vm1+E1(1,2).Vp1=(E1(1,1)+E1(1,2)).E
% Ip1+E1(2,1).Vm1+E22.Vp1=(E1(2,1)+E1(2,2)).E
% Finalmente Im1+(1/zm1+1/zmp1).Vm1+(-1/zmp1).Vp1=(1/zm1).E
% Ip1+(-1/zmp1).Vm1+(1/zp1+1/zmp1).Vp1=(1/zp1).E
%[zm1,zmp1,zp1]=subzmp1(Y1);
function[zm1,zmp1,zp1]=subzmp1(Y1)
A1=Y1(1:2,1:2);
B1=Y1(1:2,3:4);
C1=Y1(3:4,1:2);
D1=Y1(3:4,3:4);
E1=A1-B1*inv(D1)*C1;
zm1=1/(E1(1,1)+E1(1,2));
zmp1=-1/E1(1,2);
zp1=1/(E1(1,2)+E1(2,2));
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
