% PG54ni
function[z2]=subz2T3(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+L2+L5); % SP Elemento 6
z2(7,7)=zl2u*(L4+L2+m*L3); % XM Elemento 7
z2(8,8)=zl2u*(1-m)*L3; % RM Elemento 8
z2(9,9)=zl2u*(L5+p*L3); % YP Elemento 9
z2(10,10)=zl2u*(1-p)*L3; % RY Elemento 10
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
