e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.

%[z0]=subz0(zs0,zr0,zt0,zlSR0,zlST0,zlM0u,L1,L2,m); function[z0]=subz0(zs0,zr0,zt0,zlSR0,zlST0,zlM0u,L1,L2,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*zlSR0; % Sm Elemento 4 z0(5,5)=(1-m)*zlSR0; % Rm Elemento 5 z0(6,6)=zlST0; % TS Elemento 6 if m e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.