% PG54ni
function[z0]=subz0T2(zs0,zx0,zr0,zy0,zl0u,zlM0u,L1,L2,L3,L4,L5,m,p)
z0=zeros(10);
z0(1,1)=zs0; % NS Propia Elemento 1
z0(2,2)=zx0; % NX Propia Elemento 2
z0(3,3)=zr0; % NR Propia Elemento 3
z0(4,4)=zy0; % NY Propia Elemento 4
z0(5,5)=zl0u*(L1+L4); % SX Propia Elemento 5
z0(6,6)=zl0u*(L1+p*L2); % Sp Propia Elemento 6
z0(7,7)=zl0u*(L4+m*L2); % Xm Propia Elemento 7
z0(8,8)=zl0u*(L3+(1-m)*L2); % Rm Propia Elemento 8
z0(9,9)=zl0u*(L3+L5); % Yp Propia Elemento 9
z0(10,10)=zl0u*(L5+(1-p)*L2); % RY Propia Elemento 10
z0(5,6)=zlM0u*L1; % Mutua 5-6 SX-SP
z0(5,7)=-zlM0u*L4; % Mutua 5-7 SX-Xm
z0(6,7)=zlM0u*m*L2; % Mutua 6-7 Sp-Xm
z0(6,8)=-zlM0u*(p-m)*L2; % Mutua 6-8 Sp-Rm
z0(8,9)=zlM0u*L3; % Mutua 8-9 Rm-Yp
z0(8,10)=zlM0u*(1-p)*L2; % Mutua 8-10 Rm-Ry
z0(9,10)=-zlM0u*L5; % Mutua 9-10 Yp-Ry
z0(6,5)=z0(5,6);
z0(7,5)=z0(5,7);
z0(7,6)=z0(6,7);
z0(8,6)=z0(6,8);
z0(9,8)=z0(8,9);
z0(10,8)=z0(8,10);
z0(10,9)=z0(9,10);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
