%[z0]=subz0(zs0,zr0,zt0,zl0,zlM0,m);
function[z0]=subz0(zs0,zr0,zt0,zl0,zlM0,m);
z0=zeros(6);
z0(1,1)=zs0; % NS Elemento 1
z0(2,2)=zr0; % NR Elemento 2
z0(3,3)=zt0; % NT Elemento 3
z0(4,4)=m*zl0; % Sm Elemento 4
z0(5,5)=(1-m)*zl0; % Rm Elemento 5
z0(6,6)=zl0; % ST Elemento 6
z0(4,6)=-m*zlM0; % Mutua 4-6 Sm-ST
z0(5,6)=(1-m)*zlM0; % Mutua 5-6 Rm-TS
z0(6,4)=z0(4,6);
z0(6,5)=z0(5,6);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
