function [z0]=subz0sr(zs0,zr0,zSAm0,zRAm0,zSBp0,zRBp0,zMSm0,zMRm0,zsTS,ztTS,zsTR,ztTR,zsr0)
z0=zeros(9);
z0(1,1)=zs0;
z0(2,2)=zr0;
z0(3,3)=zSAm0;
z0(4,4)=zRAm0;
z0(5,5)=ztTS+zsTS;
z0(6,6)=ztTR+zsTR;
z0(7,7)=zSBp0;
z0(8,8)=zRBp0;
z0(9,9)=zsr0;
z0(3,7)=zMSm0;
z0(4,8)=zMRm0;
z0(7,3)=z0(3,7);
z0(8,4)=z0(4,8);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
