8 lines
215 B
Mathematica
8 lines
215 B
Mathematica
|
function [ output_args ] = LineP( Linei,Linej,Liner,Linex,SEVolt,SEVAngel )
|
||
|
|
L=LineCurrent( Linei,Linej,Liner,Linex,SEVolt,SEVAngel );
|
||
|
|
SEVolt=SEVolt.*exp(1j*SEVAngel);
|
||
|
|
output_args=real(SEVolt(Linei).*conj(L));
|
||
|
|
|
||
|
|
end
|
||
|
|
|