function[z1]=subz1(zs1,zr1,zt1,zl1u,L1,L2,L3,a,b,c,d)
z1zeros=(11);
z1(1,1)=zs1;
z1(2,2)=zr1;
z1(3,3)=zt1;
z1(4,4)=zl1u*a*L1;
z1(5,5)=zl1u*c*L1;
z1(6,6)=zl1u*(1-b)*L2;
z1(7,7)=zl1u*(1-d)*L3;
z1(8,8)=zl1u*(1-a)*L1;
z1(9,9)=zl1u*b*L2;
z1(10,10)=zl1u*(1-c)*L1;
z1(11,11)=zl1u*d*L3;
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
