%[z2]=subz2(zs2,zr2,zt2,zlSR2,zlST2,m);
function[z2]=subz2(zs2,zr2,zt2,zlSR2,zlST2,m)
z2=zeros(6);
z2(1,1)=zs2; % NS Elemento 1
z2(2,2)=zr2; % NR Elemento 2
z2(3,3)=zt2; % NT Elemento 3
z2(4,4)=m*zlSR2; % Sm Elemento 3
z2(5,5)=(1-m)*zlSR2; % Rm Elemento 4
z2(6,6)=zlST2; % ST Elemento 6
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
