function[z0]=subz0pmT(zs0,zr0,zsr0,zl0,zlM0,m,p)
z0=zeros(7);
z0(1,1)=zs0;
z0(2,2)=zr0;
z0(3,3)=zl0*p;
z0(4,4)=zl0;
z0(5,5)=zl0*(1-m);
z0(6,6)=zl0*(m-p);
z0(7,7)=zsr0;
z0(3,4)=zlM0*p;
z0(4,5)=-zlM0*(1-m);
z0(4,6)=zlM0*(m-p);
z0(4,3)=z0(3,4);
z0(5,4)=z0(4,5);
z0(6,4)=z0(4,6);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
