% 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);