function [ output_args ] = TransReactivePower( newwordParameter,cmpY,Volt,VAngel ) %TRANSREAVTIVEPOWER Summary of this function goes here % Detailed explanation goes here transI=newwordParameter.trans.transI; transJ=newwordParameter.trans.transJ; cmpSEV=Volt.*exp(1j*VAngel); %Έ΄Κύ΅ηΡΉ % cmpY=sparse(r,c,Y.*(1j*YAngel),length(Volt),length(Volt)); cmpSETransI=(cmpSEV(transI)-cmpSEV(transJ)).*cmpY(sub2ind(size(cmpY),transI,transJ)); output_args=imag(cmpSEV(transI).*conj(cmpSETransI)); end