% PG54ni
function[z1]=subz1T1(zs1,zx1,zr1,zy1,zl1u,L1,L2,L3,L4,L5,m,p)
z1=zeros(10);
z1(1,1)=zs1; % NS Elemento 1
z1(2,2)=zx1; % NX Elemento 2
z1(3,3)=zr1; % NR Elemento 3
z1(4,4)=zy1; % NY Elemento 4
z1(5,5)=zl1u*m*L1; % SX Elemento 5
z1(6,6)=zl1u*p*L1; % SP Elemento 6
z1(7,7)=zl1u*(L4+(1-m)*L1); % XM Elemento 7
z1(8,8)=zl1u*(L4+L2+L3); % RM Elemento 8
z1(9,9)=zl1u*(L3+L5); % YP Elemento 9
z1(10,10)=zl1u*(L5+L2+(1-p)*L1); % RY Elemento 10
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
