function[z0]=subz0T(zs0,zr0,zsr0,zl0,zlM0,m)
z0=zeros(6);
z0(1,1)=zs0; % NS Elemento 1
z0(2,2)=zr0; % NR Elemento 2
z0(3,3)=zl0*m; % Sm Elemento 3
z0(4,4)=zl0; % SR Elemento 4
z0(5,5)=zl0*(1-m); % Rm Elemento 5
z0(6,6)=zsr0; % SR(Imp. Transferencia) Elemento 6
z0(3,4)=zlM0*m; % Mutua 3-4 Sm-SR
z0(4,5)=-zlM0*(1-m); % Mutua 4-5 SR-Rm
z0(4,3)=z0(3,4);
z0(5,4)=z0(4,5);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
