function[zs2,zSAm2,zSBp2]=pusec2(UA,Sccs,zlA2u,m,LA,zlB2u,p,LB,zbaseA,zbaseB) zs2=(UA^2/Sccs)*i; zs2=zs2/zbaseA; zSAm2=zlA2u*m*LA; zSAm2=zSAm2/zbaseA; zSBp2=zlB2u*p*LB; zSBp2=zSBp2/zbaseB;