19 lines
696 B
Mathematica
19 lines
696 B
Mathematica
|
function [ output_args ] = objfun( SEVolt,SEVAngle,W,z,newwordParameter )
|
|||
|
|
%Ŀ<EFBFBD>꺯<EFBFBD><EFBFBD>
|
|||
|
|
%%
|
|||
|
|
lineI=newwordParameter.line.lineI;
|
|||
|
|
lineJ=newwordParameter.line.lineJ;
|
|||
|
|
lineR=newwordParameter.line.lineR;
|
|||
|
|
lineX=newwordParameter.line.lineX;
|
|||
|
|
lineB2=newwordParameter.line.lineB2;
|
|||
|
|
SEBranchI=BranchI( SEVolt.*exp(1j*SEVAngle),lineI,lineJ,lineR,lineX );%<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧·<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
SEBranchP=BranchP( SEVolt.*exp(1j*SEVAngle),SEBranchI,lineI,lineB2 );
|
|||
|
|
SEBranchQ=BranchQ( SEVolt.*exp(1j*SEVAngle),SEBranchI,lineI,lineB2 );
|
|||
|
|
SETransP=TransPower( newwordParameter,SEVolt,SEVAngle );
|
|||
|
|
SETransQ=TransReactivePower( newwordParameter,SEVolt,SEVAngle );
|
|||
|
|
%%
|
|||
|
|
h=[SEVolt;SEBranchP;SEBranchQ;SETransP;SETransQ];
|
|||
|
|
output_args=(z-h)'*W*(z-h);
|
|||
|
|
end
|
|||
|
|
|