distributionnetwork-power2c.../Modification.m

27 lines
1.0 KiB
Mathematica
Raw Permalink Normal View History

function [Init_Z,Init_L,Init_W,Init_U,Init_Y,V1r,V1i,I1r,I1i]=Modification(Init_Z,Init_L,Init_W,Init_U,Init_Y,deltZ,deltL,deltW,deltU,deltX,deltY,V1r,V1i,I1r,I1i,ContrlCount,Balance,Busnum,Loadi,Vref)
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));
V1r=V1r+AlphaP*deltX(1:Busnum);
V1r(Balance)=Vref;
V1i=V1i+AlphaP*deltX(Busnum+1:2*Busnum);
V1i(Balance)=0;
%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(Busnum*2+1:ContrlCount);
I1r=I1r+AlphaP*t(1:length(Loadi));
I1i=I1i+AlphaP*t(length(Loadi)+1:end);
%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
end