% PG62n
function [z0,P0,Q0]=subz0T(zs0,zr0,zsr0,zl0,zlM0,m)
zz0=zeros(6);
zz0(1,1)=zs0; % NS Elemento 1
zz0(2,2)=zr0; % NR Elemento 2
zz0(3,3)=m*zl0; % Sm Elemento 3
zz0(4,4)=(1-m)*zl0; % Rm Elemento 4
zz0(5,5)=zsr0; % Lazo Elemento 5
zz0(6,6)=zl0; % Lazo Elemento 6
zz0(3,6)=-m*zlM0; % Mutua 3-6 Sm-Lazo
zz0(4,6)=(1-m)*zlM0; % Mutua 4-6 Rm-Lazo
zz0(6,3)=zz0(3,6);
zz0(6,4)=zz0(4,6);
M0=zz0(1:5,1:5); N0=zz0(1:5,6:6);
P0=zz0(6:6,1:5); Q0=zz0(6:6,6:6);
z0=M0-N0*inv(Q0)*P0;
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
