%[z2]=subz2(zs2,zr2,zl2,m,p,q); function[z2]=subz2(zs2,zr2,zl2,m,p,q); z2=zeros(8); z2(1,1)=zs2; % NS Elemento 1 z2(2,2)=zr2; % NR Elemento 2 z2(3,3)=zl2*m; % Sm Elemento 3 z2(4,4)=zl2*p; % Sp Elemento 4 z2(5,5)=zl2*q; % Sq Elemento 5 z2(6,6)=zl2*(1-m); % Rm Elemento 6 z2(7,7)=zl2*(1-p); % Rp Elemento 7 z2(8,8)=zl2*(1-q); % Rq Elemento 8