%[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;