31 lines
1.3 KiB
Mathematica
31 lines
1.3 KiB
Mathematica
|
function [Init_Z,Init_L,Init_W,Init_U,Init_Y,PG,QG,Volt,UAngel,PD,QD]=Modification(Init_Z,Init_L,Init_W,Init_U,Init_Y,deltZ,deltL,deltW,deltU,deltX,deltY,PG,QG,Volt,UAngel,ContrlCount,Balance,Busnum,PD,QD,Loadi)
|
|||
|
|
AlphaP=FormAlphaP(Init_L,deltL,Init_U,deltU);
|
|||
|
|
%fprintf('AlphaP %f\n',full(AlphaP));
|
|||
|
|
AlphaD=FormAlphaD(Init_Z,deltZ,Init_W,deltW);
|
|||
|
|
%fprintf('AlphaD %f\n',full(AlphaD));
|
|||
|
|
|
|||
|
|
Init_Z=Init_Z+AlphaD*deltZ';
|
|||
|
|
Init_L=Init_L+AlphaP*deltL';
|
|||
|
|
Init_W=Init_W+AlphaD*deltW';
|
|||
|
|
Init_U=Init_U+AlphaP*deltU';
|
|||
|
|
Init_Y=Init_Y+AlphaD*deltY';
|
|||
|
|
%PG(PGi)=PG(PGi)+deltX(1:size(PGi,1));
|
|||
|
|
% PG(PGi)=PG(PGi)+AlphaP*deltX(1:size(PGi,1));
|
|||
|
|
%QG(PVi)=QG(PVi)+deltX(size(PGi,1)+1:size(PVi,1)+size(PGi,1) );
|
|||
|
|
% QG(PVi)=QG(PVi)+AlphaP*deltX(size(PGi,1)+1:size(PVi,1)+size(PGi,1) );
|
|||
|
|
t=deltX(1:size(Loadi,1)*2);
|
|||
|
|
PD(Loadi)=PD(Loadi)+AlphaP*t(1:length(Loadi));
|
|||
|
|
QD(Loadi)=QD(Loadi)+AlphaP*t(length(Loadi)+1:length(Loadi)*2);
|
|||
|
|
t=deltX(size(Loadi,1)*2+1:ContrlCount)';
|
|||
|
|
t(Busnum*3+(Balance-1)*3+1)=0;
|
|||
|
|
t(Busnum*3+(Balance-1)*3+2)=0;
|
|||
|
|
t(Busnum*3+(Balance-1)*3+3)=0;
|
|||
|
|
%Volt=Volt+AlphaP*t(2:2:2*Busnum);<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>20111227
|
|||
|
|
%UAngel=UAngel+AlphaP*t(1:2:2*Busnum);<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>һ<EFBFBD><EFBFBD>20111227
|
|||
|
|
balVolt=Volt( (Balance-1)*3+1 );
|
|||
|
|
Volt=Volt+AlphaP*t(1:Busnum*3)';
|
|||
|
|
Volt( (Balance-1)*3+1 )=1;
|
|||
|
|
Volt( (Balance-1)*3+2 )=1;
|
|||
|
|
Volt( (Balance-1)*3+3 )=1;
|
|||
|
|
UAngel=UAngel+AlphaP*t(Busnum*3+1:2*Busnum*3)';
|
|||
|
|
end
|