%[zs2,zr2,zSAm2,zRAm2,zSBp2,zRBp2]=pusec2(UA,Sccs,Sccr,zlA2u,m,LA,zlB2u,p,LB,zbaseA,zbaseB);
function[zs2,zr2,zSAm2,zRAm2,zSBp2,zRBp2]=...
pusec2(UA,Sccs,Sccr,zlA2u,m,LA,zlB2u,p,LB,zbaseA,zbaseB)
zs2=(UA^2/Sccs)*i; zs2=zs2/zbaseA;
zr2=(UA^2/Sccr)*i; zr2=zr2/zbaseA;
zSAm2=zlA2u*m*LA; zSAm2=zSAm2/zbaseA;
zRAm2=zlA2u*(1-m)*LA; zRAm2=zRAm2/zbaseA;
zSBp2=zlB2u*p*LB; zSBp2=zSBp2/zbaseB;
zRBp2=zlB2u*(1-p)*LB; zRBp2=zRBp2/zbaseB;
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
