facat
/
distributionnetwork-power2current
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

修复了一个正序求解不平衡方程时计算最大不平衡量的bug。 

Signed-off-by: facat <facat@ipso.laptop>
This commit is contained in:
facat 2014-04-18 15:39:07 +08:00
parent 6b53c6e360
commit b906ac299c
4 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
checkSSatisfied.m
View File

@ -19,7 +19,7 @@ output_args=Sp3+pLoadABC;
ck=output_args; ck=output_args;
ck(3*(Balance-1)+1:3*(Balance-1)+3)=0; ck(3*(Balance-1)+1:3*(Balance-1)+3)=0;
if any(abs(ck)>1e-5) if any(abs(ck)>1e-5)
fprintf('反推回的功率不匹配。潮流方程约束不满足。'); fprintf('反推回的功率不匹配。潮流方程约束不满足。\n');
end end
end end

2
dataRead.m
View File

@ -1,5 +1,5 @@
function [ fsY0, fsY1, fsY2,phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP ... function [ fsY0, fsY1, fsY2,phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP ...
phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ,nodeNum,Balance,phaseABCY] = dataRead(lineZ,dataFile ) phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ,setIJ,nodeNum,Balance,phaseABCY] = dataRead(lineZ,dataFile )
data=dlmread(dataFile); data=dlmread(dataFile);
zeroEntries=find(data(:,1)==0); zeroEntries=find(data(:,1)==0);
lines=data(zeroEntries(1)+1:zeroEntries(2)-1,:); lines=data(zeroEntries(1)+1:zeroEntries(2)-1,:);

9
lineWithConfig.m
View File

@ -15,6 +15,15 @@ phase3Y(3,2)=phase3Y(3,1);
phase3Y(2,3)=phase3Y(1,3); phase3Y(2,3)=phase3Y(1,3);
phase3Y(2,2)=phase3Y(1,1); phase3Y(2,2)=phase3Y(1,1);
phase3Y(3,3)=phase3Y(1,1); phase3Y(3,3)=phase3Y(1,1);
% phase3Y(1,3)=10;
% phase3Y(3,2)=10;
% phase3Y(2,3)=10;
% phase3Y(2,2)=phase3Y(1,1);
% phase3Y(3,3)=phase3Y(1,1);
% phase3Y(1,2)=10;
% phase3Y(2,1)=10;
% phase3Y(3,1)=10;
% phase3Y(1,3)=10;
%±êçÛÖµ %±êçÛÖµ
baseHighU=4.16; baseHighU=4.16;
baseLowU=0.48; baseLowU=0.48;

16
run.m
View File

@ -2,8 +2,7 @@ clc
clear clear
lineZ=readLineZ('.\feeder13\lineParameter.txt'); lineZ=readLineZ('.\feeder13\lineParameter.txt');
[ fsY0, fsY1, fsY2,phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP ... [ fsY0, fsY1, fsY2,phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP ...
phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ,nodeNum,Balance,phaseABCY]=dataRead(lineZ,'.\feeder13\data2.txt'); phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ,setIJ,nodeNum,Balance,phaseABCY]=dataRead(lineZ,'.\feeder13\data1.txt');
%fsY1(1,1)=fsY1(1,1)+1j*1e-10;
a=exp(1j*2*pi/3); a=exp(1j*2*pi/3);
Tp2f=1/3*[1 1 1; Tp2f=1/3*[1 1 1;
1 a a^2; 1 a a^2;
@ -52,7 +51,7 @@ while(k<=kmax && maxD> EPS)
k=k+1; k=k+1;
[dP, dQ, YdotSinVolt, YdotCosVolt, diag_Volt_YdotSin, diag_Volt_YdotCos]=Unbalance(Balance,busNum, ... [dP, dQ, YdotSinVolt, YdotCosVolt, diag_Volt_YdotSin, diag_Volt_YdotCos]=Unbalance(Balance,busNum, ...
PQi,PG,QG,QGi,PD,QD,Vmf1,Vaf1,fsY1amp,fsY1ang,r,c,Vf2,If2,Vf0,If0);%不平衡量 PQi,PG,QG,QGi,PD,QD,Vmf1,Vaf1,fsY1amp,fsY1ang,r,c,Vf2,If2,Vf0,If0);%不平衡量
maxD=max([dP;dQ;]); maxD=max(abs([dP;dQ;]));
jaco=Jacobi(Balance,busNum,QGi,Vmf1,YdotSinVolt,YdotCosVolt,diag_Volt_YdotSin,diag_Volt_YdotCos);%雅克比矩阵 jaco=Jacobi(Balance,busNum,QGi,Vmf1,YdotSinVolt,YdotCosVolt,diag_Volt_YdotSin,diag_Volt_YdotCos);%雅克比矩阵
[dV, dVangle]=Solv(busNum,jaco,dP,dQ);%解出修正量 [dV, dVangle]=Solv(busNum,jaco,dP,dQ);%解出修正量
[Vmf1, Vaf1]=Modify(Vmf1,Vaf1,dV,dVangle,1); [Vmf1, Vaf1]=Modify(Vmf1,Vaf1,dV,dVangle,1);
@ -76,6 +75,15 @@ while(k<=kmax && maxD> EPS)
Vf2=fsY2\If2; Vf2=fsY2\If2;
end end
Vf1=Vmf1.*exp(1j*Vaf1); Vf1=Vmf1.*exp(1j*Vaf1);
%%
% V=[1.01*exp(1j*0);1.01*exp(-1j*pi/360*120);1.01*exp(-1j*pi/360*240)];
% abs(Tp2f*V)
% Tf2p*Tp2f*V
% Vf0=Vf0+refV0;
% Vf2=Vf2+refV2;
% Vf0=Vf0*exp(-1j*(-1.0471975511966));
% Vf1=Vf1*exp(-1j*(1.0471975511966));
%%
(Vf0.*conj(fsY00*Vf0)+Vf1.*conj(fsY11*Vf1)+Vf2.*conj(fsY22*Vf2))*3; (Vf0.*conj(fsY00*Vf0)+Vf1.*conj(fsY11*Vf1)+Vf2.*conj(fsY22*Vf2))*3;
conj(Tf2p*[If0(2);If1(2);If2(2)]).*(Tf2p*[Vf0(2);Vf1(2);Vf2(2)]); conj(Tf2p*[If0(2);If1(2);If2(2)]).*(Tf2p*[Vf0(2);Vf1(2);Vf2(2)]);
IpABC=Tf2p*conj([If0';If1';If2']); IpABC=Tf2p*conj([If0';If1';If2']);
@ -83,6 +91,8 @@ IpABC=Tf2p*conj([If0';If1';If2']);
VoltpABC=Tf2p*conj([ Vf0'; Vf1'; Vf2']); VoltpABC=Tf2p*conj([ Vf0'; Vf1'; Vf2']);
disp([' A B C']) disp([' A B C'])
full(abs(VoltpABC')) full(abs(VoltpABC'))
fprintf('½ÚµãºÅÔÓ¦\n');
disp([setIJ,nodeNum ])
checkSSatisfied(Balance,phaseABCY,VoltpABC, ... checkSSatisfied(Balance,phaseABCY,VoltpABC, ...
phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP, ... phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP, ...
phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ ); phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ );