function[alcSmABpu,alcSmBCpu,alcSmCApu,alcSmAGpu,alcSmBGpu,alcSmCGpu]=...
alcpu(Sm_ZAB,Sm_ZBC,Sm_ZCA,Sm_ZAG,Sm_ZBG,Sm_ZCG,zl1u,L)
alcSmAB=abs(Sm_ZAB)/cos(angle(Sm_ZAB)-angle(zl1u));
alcSmBC=abs(Sm_ZBC)/cos(angle(Sm_ZBC)-angle(zl1u));
alcSmCA=abs(Sm_ZCA)/cos(angle(Sm_ZCA)-angle(zl1u));
alcSmAG=abs(Sm_ZAG)/cos(angle(Sm_ZAG)-angle(zl1u));
alcSmBG=abs(Sm_ZBG)/cos(angle(Sm_ZBG)-angle(zl1u));
alcSmCG=abs(Sm_ZCG)/cos(angle(Sm_ZCG)-angle(zl1u));
% para Salida 1
alcSmABpu=alcSmAB/abs(zl1u*L);
alcSmBCpu=alcSmBC/abs(zl1u*L);
alcSmCApu=alcSmCA/abs(zl1u*L);
alcSmAGpu=alcSmAG/abs(zl1u*L);
alcSmBGpu=alcSmBG/abs(zl1u*L);
alcSmCGpu=alcSmCG/abs(zl1u*L);
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
