function[zs1,zSAm1,zSBp1]=... pusec1(UA,Sccs,zlA1u,m,LA,zlB1u,p,LB,zbaseA,zbaseB) zs1=(UA^2/Sccs)*i; zs1=zs1/zbaseA; zSAm1=zlA1u*m*LA; zSAm1=zSAm1/zbaseA; zSBp1=zlB1u*p*LB; zSBp1=zSBp1/zbaseB;