% PC73
%[z1]=subz1(zs1,zr1,zl1,m,p,q);
function[z1]=subz1(zs1,zr1,zl1,m,p,q);
z1=zeros(8);
z1(1,1)=zs1; % NS Elemento 1
z1(2,2)=zr1; % NR Elemento 2
z1(3,3)=zl1*m; % Sm Elemento 3
z1(4,4)=zl1*p; % Sp Elemento 4
z1(5,5)=zl1*q; % Sq Elemento 5
z1(6,6)=zl1*(1-m); % Rm Elemento 6
z1(7,7)=zl1*(1-p); % Rp Elemento 7
z1(8,8)=zl1*(1-q); % Rq Elemento 8
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
