% Reduccion del Esquema de Sec.0 a los puntos m,p
%
% Obtencion de Y0. Particiones A0,B0,C0,D0
% E0=A0-B0*inv(D0)*C0;
% E0.VB(1,2)=IB(1,2) VB1=Vm0 VB2=Vp0 IB1=-Im0 IB2=-Ip0
% Para obtener Im0+E0(1,1).Vm0+E0(1,2).Vp0=0
% Ip0+E0(2,1).Vm0+E0(2,2).Vp0=0
% Finalmente Im0+(1/zm0+1/zmp0).Vm0+(-1/zmp0).Vp0=0
% Ip0+(-1/zmp0).Vm0+(1/zp0+1/zmp0).Vp0=0
%[zm0,zmp0,zp0]=subzmp0(Y0);
function[zm0,zmp0,zp0]=subzmp0(Y0)
A0=Y0(1:2,1:2);
B0=Y0(1:2,3:4);
C0=Y0(3:4,1:2);
D0=Y0(3:4,3:4);
E0=A0-B0*inv(D0)*C0;
zm0=1/(E0(1,1)+E0(1,2));
zmp0=-1/E0(1,2);
zp0=1/(E0(1,2)+E0(2,2));
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
