% PG54ni
function[z2]=subz2T2(zs2,zx2,zr2,zy2,zl2u,L1,L2,L3,L4,L5,m,p)
z2=zeros(10);
z2(1,1)=zs2; % NS Elemento 1
z2(2,2)=zx2; % NX Elemento 2
z2(3,3)=zr2; % NR Elemento 3
z2(4,4)=zy2; % NY Elemento 4
z2(5,5)=zl2u*(L1+L4); % SX Elemento 5
z2(6,6)=zl2u*(L1+p*L2); % SP Elemento 6
z2(7,7)=zl2u*(L4+m*L2); % XM Elemento 7
z2(8,8)=zl2u*(L3+(1-m)*L2); % RM Elemento 8
z2(9,9)=zl2u*(L3+L5); % YP Elemento 9
z2(10,10)=zl2u*(L5+(1-p)*L2); % RY Elemento 10
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
