function[z1]=subz1pmT(zs1,zr1,zsr1,zl1,m,p); z1=zeros(7); z1(1,1)=zs1; z1(2,2)=zr1; z1(3,3)=zl1*p; z1(4,4)=zl1; z1(5,5)=zl1*(1-m); z1(6,6)=zl1*(m-p); z1(7,7)=zsr1;