function[z0]=subz0(zs0,zx0,zr0,zy0,zl0u,zlM0u,L1,L2,L3,L4,L5,a,b,c,d,e,f,g,h,q,r)
z0=zeros(24);
z0(1,1)=zs0;
z0(2,2)=zx0;
z0(3,3)=zr0;
z0(4,4)=zy0;
z0(5,5)=zl0u*a*L1;
z0(6,6)=zl0u*r*L1;
z0(7,7)=zl0u*(1-b)*L4;
z0(8,8)=zl0u*(1-c)*L4;
z0(9,9)=zl0u*(1-e)*L3;
z0(10,10)=zl0u*(1-f)*L3;
z0(11,11)=zl0u*(1-h)*L5;
z0(12,12)=zl0u*(1-g)*L5;
z0(13,13)=zl0u*(1-a)*L1;
z0(14,14)=zl0u*b*L4;
z0(15,15)=zl0u*c*L4;
z0(16,16)=zl0u*d*L2;
z0(17,17)=zl0u*(1-d)*L2;
z0(18,18)=zl0u*e*L3;
z0(19,19)=zl0u*f*L3;
z0(20,20)=zl0u*g*L5;
z0(21,21)=zl0u*h*L5;
z0(22,22)=zl0u*(1-q)*L2;
z0(23,23)=zl0u*q*L2;
z0(24,24)=zl0u*(1-r)*L1;
if a<=r
z0(5,6)=zlM0u*a*L1;
z0(6,13)=-zlM0u*(r-a)*L1;
z0(13,24)=zlM0u*(1-r)*L1;
z0(6,5)=z0(5,6);
z0(13,6)=z0(6,13);
z0(24,13)=z0(13,24);
else
z0(5,6)=zlM0u*r*L1;
z0(5,24)=-zlM0u*(a-r)*L1;
z0(13,24)=zlM0u*(1-a)*L1;
z0(6,5)=z0(5,6);
z0(24,5)=z0(5,24);
z0(24,13)=z0(13,24);
end
if b<=c
z0(14,15)=zlM0u*b*L4;
z0(7,15)=-zlM0u*(c-b)*L4;
z0(7,8)=zlM0u*(1-c)*L4;
z0(15,14)=z0(14,15);
z0(15,7)=z0(7,15);
z0(8,7)=z0(7,8);
else
z0(14,15)=zlM0u*c*L4;
z0(14,8)=-zlM0u*(b-c)*L4;
z0(7,8)=zlM0u*(1-b)*L4;
z0(15,14)=z0(14,15);
z0(8,14)=z0(14,8);
z0(8,7)=z0(7,8);
end
if d<=q
z0(16,23)=zlM0u*d*L2;
z0(23,17)=-zlM0u*(q-d)*L2;
z0(17,22)=zlM0u*(1-q)*L2;
z0(23,16)=z0(16,23);
z0(17,23)=z0(23,17);
z0(22,17)=z0(17,22);
else
z0(16,23)=zlM0u*q*L2;
z0(16,22)=-zlM0u*(d-q)*L2;
z0(17,22)=zlM0u*(1-d)*L2;
z0(23,16)=z0(16,23);
z0(22,16)=z0(16,22);
z0(22,17)=z0(17,22);
end
if e<=f
z0(18,19)=zlM0u*e*L3;
z0(19,9)=-zlM0u*(f-e)*L3;
z0(9,10)=zlM0u*(1-f)*L3;
z0(19,18)=z0(18,19);
z0(9,19)=z0(19,9);
z0(10,9)=z0(9,10);
else
z0(18,19)=zlM0u*f*L3;
z0(18,10)=-zlM0u*(e-f)*L3;
z0(9,10)=zlM0u*(1-e)*L3;
z0(19,18)=z0(18,19);
z0(10,18)=z0(18,10);
z0(10,9)=z0(9,10);
end
if g<=h
z0(20,21)=zlM0u*g*L5;
z0(12,21)=-zlM0u*(h-g)*L5;
z0(11,12)=zlM0u*(1-h)*L5;
z0(21,20)=z0(20,21);
z0(21,12)=z0(12,21);
z0(12,11)=z0(11,12);
else
z0(20,21)=zlM0u*h*L5;
z0(20,11)=-zlM0u*(g-h)*L5;
z0(11,12)=zlM0u*(1-g)*L5;
z0(21,20)=z0(20,21);
z0(11,20)=z0(20,11);
z0(12,11)=z0(11,12);
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
