function[z2]=subz2T(zs2,zr2,zsr2,zl2u,L,m,p)
z1=zeros(7);
z2(1,1)=zs2; % NS Elemento 1
z2(2,2)=zr2; % NR Elemento 2
z2(3,3)=zl2u*m*L; % Sm Elemento 3
z2(4,4)=zl2u*p*L; % Sp Elemento 4
z2(5,5)=zl2u*(1-m)*L; % Rm Elemento 5
z2(6,6)=zl2u*(1-p)*L; % Rp Elemento 6
z2(7,7)=zsr2; % zsr transf. Elemento 7
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
