%[zs1,zr1,zSAm1,zRAm1,zSBp1,zRBp1]=pusec1(UA,Sccs,Sccr,zlA1u,m,LA,zlB1u,p,LB,zbaseA,zbaseB);
function[zs1,zr1,zSAm1,zRAm1,zSBp1,zRBp1]=...
pusec1(UA,Sccs,Sccr,zlA1u,m,LA,zlB1u,p,LB,zbaseA,zbaseB)
zs1=(UA^2/Sccs)*i; zs1=zs1/zbaseA;
zr1=(UA^2/Sccr)*i; zr1=zr1/zbaseA;
zSAm1=zlA1u*m*LA; zSAm1=zSAm1/zbaseA;
zRAm1=zlA1u*(1-m)*LA; zRAm1=zRAm1/zbaseA;
zSBp1=zlB1u*p*LB; zSBp1=zSBp1/zbaseB;
zRBp1=zlB1u*(1-p)*LB; zRBp1=zRBp1/zbaseB;
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
