收敛了。但是精度还有点问题，需要调一下。感觉是有一步没更新。
Signed-off-by: facat <facat@ipso.laptop>
This commit is contained in:
facat
commit
f55585e444
|
|
@ -0,0 +1,3 @@
|
|||
*.asv
|
||||
/feeder13
|
||||
*.mexw32
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
function [jaco]=Jacobi(Balance,busNum,QGi,Volt,YdotSinVolt,YdotCosVolt,diag_Volt_YdotSin,diag_Volt_YdotCos)
|
||||
diag_YdotSinVolt_=diag(YdotSinVolt);
|
||||
diag_YdotCosVolt_=diag(YdotCosVolt);
|
||||
dPdTyta=diag_Volt_YdotSin*diag(Volt)-diag_YdotSinVolt_*diag(Volt); % 简化第三次
|
||||
dQdTyta=-diag_Volt_YdotCos*diag(Volt)+diag_YdotCosVolt_*diag(Volt);%dQ/dThyta
|
||||
dPdV=diag_YdotCosVolt_+diag_Volt_YdotCos;%dP/dV
|
||||
dQdV=diag_YdotSinVolt_+diag_Volt_YdotSin;%dQ/dV
|
||||
%% 平衡节点相角不变
|
||||
dPdTyta(Balance,:)=0;
|
||||
dPdTyta(:,Balance)=0;
|
||||
dPdTyta=dPdTyta+sparse(Balance,Balance,ones(length(Balance),1),busNum,busNum);
|
||||
dQdTyta(:,Balance)=0;
|
||||
dPdV(Balance,:)=0;
|
||||
%% PV节点电压不变
|
||||
dQdV(QGi,:)=0;
|
||||
dQdV(:,QGi)=0;
|
||||
dQdV=dQdV+sparse(QGi,QGi,ones(length(QGi),1),busNum,busNum);
|
||||
dQdTyta(QGi,:)=0;
|
||||
dPdV(:,QGi)=0;
|
||||
% jaco=[
|
||||
% dPdV,dPdTyta;
|
||||
% dQdV,dQdTyta;
|
||||
% ];
|
||||
jaco=cat(1,cat(2,dPdV,dPdTyta),cat(2,dQdV,dQdTyta));
|
||||
end
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
function [Volt, Vangle]=Modify(Volt,Vangle,dV,dVangle,optimalu)
|
||||
%Volt=Volt+Volt.*dV;
|
||||
Volt=Volt+optimalu*dV;
|
||||
Vangle=Vangle+optimalu*dVangle;
|
||||
end
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
function [dV, dVangle]=Solv(busNum,jaco,dP,dQ)
|
||||
|
||||
%y=klu (jaco, '\', full(-[dP;dQ]));
|
||||
y=jaco\(-[dP;dQ]);
|
||||
% [L,U] = luinc(jaco,1e-3); %luinc(A,'0')也可以试一下，是一种完全不同的ILU
|
||||
% tol=1e-5; %残量的精度要求
|
||||
% restart=30; % 30-50之间吧，不要过小
|
||||
% maxit=100; %看情况，如果不收敛就适当调大
|
||||
% [x,flag]=gmres(jaco,-[dP;dQ],restart,tol,maxit);
|
||||
% y=sparse(x);
|
||||
|
||||
y=sparse(y);
|
||||
dV=y(1:busNum);
|
||||
dVangle=y(busNum+1:end);
|
||||
|
||||
end
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
function [dP, dQ, YdotSinVmf1, YdotCosVmf1, diag_Vmf1_YdotSin, diag_Vmf1_YdotCos]=Unbalance(Balance,busNum, ...
|
||||
PQi,PG,QG,QGi,PD,QD,Vmf1,Vaf1,Y,Yangle,r,c,Vf2,If2,Vf0,If0,fsY1,Vf1)
|
||||
%real(diag(Vmf1.*exp(1j*Vaf1))*(fsY1*(Vmf1.*exp(1j*Vaf1))));
|
||||
% Y=abs(fsY1);
|
||||
% [r,c,Yangle]=find(fsY1);
|
||||
% Yangle=angle(Yangle);
|
||||
% Vmf1=abs(Vf1);
|
||||
% Vaf1=angle(Vf1);
|
||||
t1=sparse(r,c,Vaf1(r)-Vaf1(c) -Yangle,busNum,busNum) ;
|
||||
YdotSin=Y.* ( spfun(@sin,t1) );
|
||||
YdotCos=Y.* ( spfun (@cos, t1 ) );
|
||||
orderedPDPG=sparse(PQi,1,PD-PG,busNum,1); %节点功率按顺序排列
|
||||
orderedQDQG=sparse(PQi,1,QD-QG,busNum,1); %节点功率按顺序排列
|
||||
diag_Vmf1_YdotCos=diag(Vmf1)*YdotCos;
|
||||
diag_Vmf1_YdotSin=diag(Vmf1)*YdotSin;
|
||||
YdotCosVmf1=YdotCos*Vmf1;
|
||||
YdotSinVmf1=YdotSin*Vmf1;
|
||||
diag_Vmf1_YdotCosVmf1=diag_Vmf1_YdotCos*Vmf1;
|
||||
diag_Vmf1_YdotSinVmf1=diag_Vmf1_YdotSin*Vmf1;
|
||||
dP=diag_Vmf1_YdotCosVmf1+orderedPDPG+real(Vf2.*conj(If2)+Vf0.*conj(If0));
|
||||
dQ=diag_Vmf1_YdotSinVmf1+orderedQDQG+imag(Vf2.*conj(If2)+Vf0.*conj(If0));
|
||||
%orderedPDPG+real(Vf2.*conj(If2)+Vf0.*conj(If0))+real(diag(Vf1)*conj(fsY1*Vf1));
|
||||
%dP=diag_Vmf1_YdotCosVmf1+orderedPDPG;
|
||||
%dQ=diag_Vmf1_YdotSinVmf1+orderedQDQG;
|
||||
dP(Balance)=0;
|
||||
dQ(QGi)=0;
|
||||
end
|
||||
|
|
@ -0,0 +1,52 @@
|
|||
function [Y,Yangle,r,c,GB]=YMatrix(Busnum,lineI,lineJ,lineR,lineX,lineB2,groundbranchI,groundbranchB,transI,transJ,transR,transX,transK)
|
||||
%% 盄繚
|
||||
% t1=-lineR./(lineR.^2+lineX.^2);%萇絳
|
||||
% t2=lineX./(lineR.^2+lineX.^2);%萇馨
|
||||
% G = +sparse(lineI,lineJ,t1,Busnum,Busnum) + sparse(lineJ,lineI,t1,Busnum,Busnum);
|
||||
% B = sparse(lineI,lineJ,t2,Busnum,Busnum)+sparse(lineJ,lineI,t2,Busnum,Busnum);
|
||||
% G = G - sparse(1:Busnum,1:Busnum,sum(G,2)');
|
||||
% B = B - sparse(1:Busnum,1:Busnum,sum(B,2)');
|
||||
t1=lineR+1j*lineX;
|
||||
t2=1./t1;
|
||||
% realT2=real(t2);
|
||||
% imagT2=imag(t2);
|
||||
|
||||
GB=sparse(lineI,lineJ,-t2,Busnum,Busnum) + sparse(lineJ,lineI,-t2,Busnum,Busnum);
|
||||
GB=GB-sparse(1:Busnum,1:Busnum,sum(GB,2));
|
||||
% G = +sparse(lineI,lineJ,-realT2,Busnum,Busnum) + sparse(lineJ,lineI,-realT2,Busnum,Busnum);
|
||||
% B = sparse(lineI,lineJ,-imagT2,Busnum,Busnum)+sparse(lineJ,lineI,-imagT2,Busnum,Busnum);
|
||||
% G = G - sparse(1:Busnum,1:Busnum,sum(G,2)');
|
||||
% B = B - sparse(1:Busnum,1:Busnum,sum(B,2)');
|
||||
% G=real(GB);
|
||||
% B=imag(GB);
|
||||
%% 諉華絳馨
|
||||
% t3=sparse(lineI,lineI,lineB2,Busnum,Busnum)+sparse(lineJ,lineJ,lineB2,Busnum,Busnum);%諉華盓繚
|
||||
%B=B+t3;
|
||||
t1=1j*lineB2;
|
||||
GB=GB+sparse(lineI,lineI,t1,Busnum,Busnum)+sparse(lineJ,lineJ,t1,Busnum,Busnum);
|
||||
% B=imag(GB);
|
||||
%% 諉華盓繚
|
||||
if isempty(groundbranchI)==0 %準諾
|
||||
% B=B+sparse(groundbranchI,groundbranchI,groundbranchB,Busnum,Busnum);
|
||||
|
||||
GB=GB+sparse(groundbranchI,groundbranchI,1j*groundbranchB,Busnum,Busnum);
|
||||
% B=imag(GB);
|
||||
end
|
||||
%% 曹揤け
|
||||
if isempty(transI)==0 %準諾
|
||||
% t1 = -transR./(transR.^2+transX.^2);
|
||||
% t2 = transX./(transR.^2+transX.^2);
|
||||
t1=1./(transR+1j*transX);
|
||||
% G = G+sparse(transI,transJ,t1./transK,Busnum,Busnum)+sparse(transJ,transI,t1./transK,Busnum,Busnum)-sparse(transI,transI,t1./transK./transK,Busnum,Busnum)-sparse(transJ,transJ,t1,Busnum,Busnum);
|
||||
% B = B+sparse(transI,transJ,t2./transK,Busnum,Busnum)+sparse(transJ,transI,t2./transK,Busnum,Busnum)-sparse(transI,transI,t2./transK./transK,Busnum,Busnum)-sparse(transJ,transJ,t2,Busnum,Busnum);
|
||||
GB=GB+sparse(transI,transJ,-t1./transK,Busnum,Busnum)+sparse(transJ,transI,-t1./transK,Busnum,Busnum)+sparse(transI,transI,t1./transK./transK,Busnum,Busnum)+sparse(transJ,transJ,t1,Busnum,Busnum);
|
||||
% G=real(GB);
|
||||
% B=imag(GB);
|
||||
end
|
||||
%GB=G+1j*B;
|
||||
Y = abs(GB);
|
||||
[r,c,Yangle] = find(GB);
|
||||
Yangle=angle(Yangle);
|
||||
%Yangle=angle(GB);
|
||||
%Angle = angle(GB(GB~=0));
|
||||
end
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
function [ phaseABCY ] = Yf2p( fs0,fs1,fs2 )
|
||||
[r,c]=find(fs1);
|
||||
a=exp(1j*2*pi/3);
|
||||
Tp2f=1/3*[1 1 1;
|
||||
1 a a^2;
|
||||
1 a^2 a];
|
||||
Tf2p=inv(Tp2f);
|
||||
%
|
||||
% Tf2p=[1 1 1;
|
||||
% 1 a^2 a;
|
||||
% 1 a a^2];
|
||||
busNum=size(fs0,1);
|
||||
phaseABCY=sparse(3*busNum,3*busNum);
|
||||
for I=1:length(r)
|
||||
v0=fs0(r(I),c(I));
|
||||
v1=fs1(r(I),c(I));
|
||||
v2=fs2(r(I),c(I));
|
||||
pabc=Tf2p*diag([v0,v1,v2])*Tp2f;
|
||||
[pr,pc,pv]=find(pabc);
|
||||
phaseABCY=phaseABCY+sparse(pr+3*(r(I)-1),pc+3*(c(I)-1),pv,3*busNum,3*busNum);
|
||||
end
|
||||
end
|
||||
|
||||
|
|
@ -0,0 +1,43 @@
|
|||
function [ fsY0, fsY1, fsY2,phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP ...
|
||||
phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ,nodeNum,Balance,phaseABCY] = dataRead(lineZ,dataFile )
|
||||
data=dlmread(dataFile);
|
||||
zeroEntries=find(data(:,1)==0);
|
||||
lines=data(zeroEntries(1)+1:zeroEntries(2)-1,:);
|
||||
[setIJ,nodeNum]=numberNode(lines);
|
||||
Balance=data(1,1);
|
||||
Balance=nodeNum(setIJ==Balance);
|
||||
%%three-phase
|
||||
phaseABCY=sparse(3*length(nodeNum),3*length(nodeNum));
|
||||
%% 601 begin
|
||||
[fs30,fs31,fs32,retphaseABCY]=lineWithConfig(setIJ,nodeNum,lineZ,lines,601);
|
||||
%phaseABCY ÈýÏàµÄµ¼ÄɾØÕó3n x 3n ά
|
||||
fsY0=fs30;
|
||||
fsY1=fs31;
|
||||
fsY2=fs32;
|
||||
phaseABCY=phaseABCY+retphaseABCY;
|
||||
% 601 end
|
||||
%% 602 begin
|
||||
[fs30,fs31,fs32,retphaseABCY]=lineWithConfig(setIJ,nodeNum,lineZ,lines,602);
|
||||
fsY0=fsY0+fs30;
|
||||
fsY1=fsY1+fs31;
|
||||
fsY2=fsY2+fs32;
|
||||
phaseABCY=phaseABCY+retphaseABCY;
|
||||
% 602 end
|
||||
%% spot load
|
||||
busNum=length(nodeNum);
|
||||
spotloads=data(zeroEntries(3)+1:zeroEntries(4)-1,:);
|
||||
spotloads(:,2:end)=spotloads(:,2:end)/1000;
|
||||
phaseASpotLoadP=sparse(busNum,1);
|
||||
phaseBSpotLoadP=sparse(busNum,1);
|
||||
phaseCSpotLoadP=sparse(busNum,1);
|
||||
phaseASpotLoadQ=sparse(length(nodeNum),1);
|
||||
phaseBSpotLoadQ=sparse(length(nodeNum),1);
|
||||
phaseCSpotLoadQ=sparse(length(nodeNum),1);
|
||||
phaseASpotLoadP( ismember(setIJ,spotloads(:,1) ) )=spotloads(:,2);
|
||||
phaseBSpotLoadP( ismember(setIJ,spotloads(:,1) ) )=spotloads(:,4);
|
||||
phaseCSpotLoadP( ismember(setIJ,spotloads(:,1) ) )=spotloads(:,6);
|
||||
phaseASpotLoadQ( ismember(setIJ,spotloads(:,1) ) )=spotloads(:,3);
|
||||
phaseBSpotLoadQ( ismember(setIJ,spotloads(:,1) ) )=spotloads(:,5);
|
||||
phaseCSpotLoadQ( ismember(setIJ,spotloads(:,1) ) )=spotloads(:,7);
|
||||
end
|
||||
|
||||
|
|
@ -0,0 +1,89 @@
|
|||
function [ fs30,fs31,fs32,phaseABCY ] = lineWithConfig(setIJ,nodeNum,lineZ,lines,config )
|
||||
phase3Entry=find(lines(:,1)==config);
|
||||
phase3Line=lines(phase3Entry,:);
|
||||
phase3Line(:,4)=phase3Line(:,4)/1000;
|
||||
entry=find(lineZ(:,1)==config);
|
||||
phase3R=lineZ(entry+1:entry+3,:);
|
||||
phase3X=lineZ(entry+5:entry+7,:);
|
||||
phase3B2=lineZ(entry+9:entry+11,:);
|
||||
phase3Y=1./(phase3R+1j*phase3X);%原始的三相导纳
|
||||
%phase3Y=1./(1j*phase3X);%原始的三相导纳
|
||||
%让对角和非对角相等
|
||||
phase3Y(1,3)=phase3Y(1,2);
|
||||
phase3Y(3,1)=phase3Y(2,1);
|
||||
phase3Y(3,2)=phase3Y(3,1);
|
||||
phase3Y(2,3)=phase3Y(1,3);
|
||||
phase3Y(2,2)=phase3Y(1,1);
|
||||
phase3Y(3,3)=phase3Y(1,1);
|
||||
%标幺值
|
||||
baseHighU=4.16;
|
||||
baseLowU=0.48;
|
||||
baseS=1;
|
||||
baseY=baseS/(baseHighU^2);
|
||||
phase3Y=phase3Y/baseY;
|
||||
%进行Fortescue变换
|
||||
%直接写结果
|
||||
a=exp(1j*2*pi/3);
|
||||
Tp2f=1/3*[1 1 1;
|
||||
1 a a^2;
|
||||
1 a^2 a];
|
||||
Tf2p=inv(Tp2f);
|
||||
%
|
||||
% Tf2p=[1 1 1;
|
||||
% 1 a^2 a;
|
||||
% 1 a a^2];
|
||||
fs3Y=Tp2f*phase3Y*Tf2p;
|
||||
Zl=phase3Y(1,1);
|
||||
Zm=phase3Y(2,1);
|
||||
fs3Y=3/3*diag([Zl+2*Zm,Zl-Zm,Zl-Zm]);%这里不是1/3，IEEE上的公式错了。
|
||||
fs3Y(abs(fs3Y)<1e-5)=0;
|
||||
fs3Y=sparse(fs3Y);
|
||||
lineNodeI=zeros(length(phase3Line(:,2) ) ,1);
|
||||
lineNodeJ=zeros(length(phase3Line(:,2) ) ,1);
|
||||
for I=1:length(lineNodeI)
|
||||
lineNodeI(I)=nodeNum(setIJ==phase3Line(I,2) );
|
||||
lineNodeJ(I)=nodeNum(setIJ==phase3Line(I,3) );
|
||||
end
|
||||
busNum=length(nodeNum);
|
||||
%生成三相导纳矩阵
|
||||
phaseABCY=sparse(busNum*3,busNum*3);
|
||||
for I=1:length(phase3Line(:,4))
|
||||
[phase3Yr,phase3Yc,phase3Yv]=find(phase3Y./phase3Line(I,4));
|
||||
offsetI=phase3Yr+3*(lineNodeI(I)-1);
|
||||
offsetJ=phase3Yc+3*(lineNodeJ(I)-1);
|
||||
phaseABCY=phaseABCY+sparse(offsetI,offsetJ,-phase3Yv,busNum*3,busNum*3);
|
||||
phaseABCY=phaseABCY+sparse(offsetJ,offsetI,-phase3Yv,busNum*3,busNum*3);
|
||||
%1
|
||||
diagY=sum(phaseABCY(:,1:3:end),2);
|
||||
offsetI=1:busNum*3;
|
||||
offsetJ=zeros(busNum*3,1);
|
||||
for J=0:busNum*3-1
|
||||
offsetJ(J+1)=floor(J/3)*3+1;
|
||||
end
|
||||
phaseABCY=phaseABCY-sparse(offsetI,offsetJ,diagY,busNum*3,busNum*3);
|
||||
%2
|
||||
diagY=sum(phaseABCY(:,2:3:end),2);
|
||||
offsetJ=zeros(busNum*3,1);
|
||||
for J=0:busNum*3-1
|
||||
offsetJ(J+1)=floor(J/3)*3+2;
|
||||
end
|
||||
phaseABCY=phaseABCY-sparse(offsetI,offsetJ,diagY,busNum*3,busNum*3);
|
||||
%3
|
||||
diagY=sum(phaseABCY(:,3:3:end),2);
|
||||
offsetJ=zeros(busNum*3,1);
|
||||
for J=0:busNum*3-1
|
||||
offsetJ(J+1)=floor(J/3)*3+3;
|
||||
end
|
||||
phaseABCY=phaseABCY-sparse(offsetI,offsetJ,diagY,busNum*3,busNum*3);
|
||||
end
|
||||
fs30=sparse(lineNodeI,lineNodeJ,-fs3Y(1,1)./phase3Line(:,4),busNum,busNum);
|
||||
fs30=fs30+sparse(lineNodeJ,lineNodeI,-fs3Y(1,1)./phase3Line(:,4),busNum,busNum);
|
||||
fs30=fs30-sparse(1:busNum,1:busNum,sum(fs30,2));
|
||||
fs31=sparse(lineNodeI,lineNodeJ,-fs3Y(2,2)./phase3Line(:,4),busNum,busNum);
|
||||
fs31=fs31+sparse(lineNodeJ,lineNodeI,-fs3Y(2,2)./phase3Line(:,4),busNum,busNum);
|
||||
fs31=fs31-sparse(1:busNum,1:busNum,sum(fs31,2));
|
||||
fs32=sparse(lineNodeI,lineNodeJ,-fs3Y(3,3)./phase3Line(:,4),busNum,busNum);
|
||||
fs32=fs32+sparse(lineNodeJ,lineNodeI,-fs3Y(3,3)./phase3Line(:,4),busNum,busNum);
|
||||
fs32=fs32-sparse(1:busNum,1:busNum,sum(fs32,2));
|
||||
end
|
||||
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
function [ setIJ,nodeNum ] = numberNode( lines )
|
||||
%% 给节点编
|
||||
setI=lines(:,2);
|
||||
setJ=lines(:,3);
|
||||
setIJ=union(setI,setJ);
|
||||
nodeNum=(1:length(setIJ))';
|
||||
end
|
||||
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
function [ data ] = readLineZ( lineParaFile )
|
||||
data=dlmread(lineParaFile);
|
||||
end
|
||||
|
||||
|
|
@ -0,0 +1,265 @@
|
|||
clc
|
||||
clear
|
||||
lineZ=readLineZ('.\feeder13\lineParameter.txt');
|
||||
[ fsY0, fsY1, fsY2,phaseASpotLoadP,phaseBSpotLoadP,phaseCSpotLoadP ...
|
||||
phaseASpotLoadQ,phaseBSpotLoadQ,phaseCSpotLoadQ,nodeNum,Balance,phaseABCY]=dataRead(lineZ,'.\feeder13\data1.txt');
|
||||
%fsY1(1,1)=fsY1(1,1)+1j*1e-10;
|
||||
a=exp(1j*2*pi/3);
|
||||
Tp2f=1/3*[1 1 1;
|
||||
1 a a^2;
|
||||
1 a^2 a];
|
||||
Tf2p=inv(Tp2f);
|
||||
fsY1amp=abs(fsY1);
|
||||
[r,c,fsY1ang]=find(fsY1);
|
||||
fsY1ang=angle(fsY1ang);
|
||||
% fsY2amp=abs(fsY2);
|
||||
% fsY0ang=angle(fsY0);
|
||||
% fsY1ang=angle(fsY1);
|
||||
% fsY2ang=angle(fsY2);
|
||||
Pabc=phaseASpotLoadP+phaseBSpotLoadP+phaseCSpotLoadP;
|
||||
Qabc=phaseASpotLoadQ+phaseBSpotLoadQ+phaseCSpotLoadQ;
|
||||
busNum=length(phaseASpotLoadP);
|
||||
%给序电压赋初值
|
||||
Vmf1=sparse(ones(busNum,1));
|
||||
Vmf2=sparse(ones(busNum,1));
|
||||
Vmf0=sparse(busNum,1);
|
||||
Vaf1=sparse(busNum,1);
|
||||
Vaf2=sparse(busNum,1);
|
||||
Vaf0=sparse(busNum,1);
|
||||
%先求解正序的
|
||||
PQi=nodeNum;
|
||||
PG=sparse(busNum,1);
|
||||
QG=sparse(busNum,1);
|
||||
QGi=[Balance];
|
||||
PD=Pabc/3;
|
||||
QD=Qabc/3;
|
||||
maxD=100000;% 最大不平衡量
|
||||
EPS=1e-5;
|
||||
k=0;
|
||||
kmax=20;
|
||||
%%把F矩阵转会到相矩阵，看看是哪里有问题
|
||||
phaseABCYalt=Yf2p( fsY0,fsY1,fsY2 );
|
||||
%%
|
||||
Vf1=-ones(busNum,1);
|
||||
fsY11=fsY1;
|
||||
fsY00=fsY0;
|
||||
fsY22=fsY2;
|
||||
while(k<=kmax && maxD> EPS)
|
||||
k=k+1;
|
||||
% %计算负序电流
|
||||
% Vf2=Vmf2.*exp(1j*Vaf2) ;
|
||||
% If2=fsY2*(Vf2);
|
||||
% %计算零序电流
|
||||
% Vf0=Vmf0.*exp(1j*Vaf0) ;
|
||||
% If0=fsY0*(Vmf0.*exp(1j*Vaf0) );
|
||||
%转换为三相电压
|
||||
VoltpABC=Tf2p*conj([ (Vmf0.*exp(1j*Vaf0))'; (Vmf1.*exp(1j*Vaf1))'; (Vmf2.*exp(1j*Vaf2))']);
|
||||
VoltpA=conj(VoltpABC(1,:)');
|
||||
CurpA=conj((phaseASpotLoadP+1j*phaseASpotLoadQ)./VoltpA);
|
||||
VoltpB=conj(VoltpABC(2,:)');
|
||||
CurpB=conj((phaseBSpotLoadP+1j*phaseBSpotLoadQ)./VoltpB);
|
||||
VoltpC=conj(VoltpABC(3,:)');
|
||||
CurpC=conj((phaseCSpotLoadP+1j*phaseCSpotLoadQ)./VoltpC);
|
||||
f012=Tp2f*conj([CurpA';CurpB';CurpC']);
|
||||
If0=conj(f012(1,:)');
|
||||
If1=conj(f012(2,:)');
|
||||
If2=conj(f012(3,:)');
|
||||
%平衡节点负序电压为0
|
||||
fsY2(Balance,:)=0;
|
||||
fsY2(:,Balance)=0;
|
||||
fsY2=fsY2+sparse(Balance,Balance,ones(length(Balance),1),busNum,busNum);
|
||||
If2(Balance)=0;
|
||||
Vf2=fsY2\If2;
|
||||
Vmf2=abs(Vf2);
|
||||
Vaf2=angle(Vf2);
|
||||
%If1(Balance)=1;
|
||||
%fsY1(Balance,:)=0;
|
||||
%fsY1(:,Balance)=0;
|
||||
%fsY1=fsY1+sparse(Balance,Balance,ones(length(Balance),1),busNum,busNum);
|
||||
%Vf1=fsY1\If1;%算一下，虽然不用。
|
||||
%平衡节点零序电压为0
|
||||
fsY0(Balance,:)=0;
|
||||
fsY0(:,Balance)=0;
|
||||
fsY0=fsY0+sparse(Balance,Balance,ones(length(Balance),1),busNum,busNum);
|
||||
If0(Balance)=0;
|
||||
Vf0=fsY0\If0;
|
||||
Vmf0=abs(Vf0);
|
||||
Vaf0=angle(Vf0);
|
||||
|
||||
[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,fsY11,Vf1);%不平衡量
|
||||
maxD=max([dP;dQ;]);
|
||||
jaco=Jacobi(Balance,busNum,QGi,Vmf1,YdotSinVolt,YdotCosVolt,diag_Volt_YdotSin,diag_Volt_YdotCos);%雅克比矩阵
|
||||
[dV, dVangle]=Solv(busNum,jaco,dP,dQ);%解出修正量
|
||||
[Vmf1, Vaf1]=Modify(Vmf1,Vaf1,dV,dVangle,1);
|
||||
fprintf('第 %d 次迭代， 最大不平衡量为 %f\n\n',k,full(maxD));
|
||||
%%
|
||||
%转换为三相电压
|
||||
VoltpABC=Tf2p*conj([ (Vmf0.*exp(1j*Vaf0))'; (Vmf1.*exp(1j*Vaf1))'; (Vmf2.*exp(1j*Vaf2))']);
|
||||
VoltpA=conj(VoltpABC(1,:)');
|
||||
CurpA=-conj((phaseASpotLoadP+1j*phaseASpotLoadQ)./VoltpA);
|
||||
VoltpB=conj(VoltpABC(2,:)');
|
||||
CurpB=-conj((phaseBSpotLoadP+1j*phaseBSpotLoadQ)./VoltpB);
|
||||
VoltpC=conj(VoltpABC(3,:)');
|
||||
CurpC=-conj((phaseCSpotLoadP+1j*phaseCSpotLoadQ)./VoltpC);
|
||||
f012=Tp2f*conj([CurpA';CurpB';CurpC']);
|
||||
If0=conj(f012(1,:)');
|
||||
If1=conj(f012(2,:)');
|
||||
If2=conj(f012(3,:)');
|
||||
Vf0=fsY0\If0;
|
||||
Vmf0=abs(Vf0);
|
||||
Vaf0=angle(Vf0);
|
||||
Vf2=fsY2\If2;
|
||||
Vmf2=abs(Vf2);
|
||||
Vaf2=angle(Vf2);
|
||||
Vf1=Vmf1.*exp(1j*Vaf1);
|
||||
%%
|
||||
% VoltpABC=Tf2p*conj([ (Vmf0.*exp(1j*Vaf0))'; (Vmf1.*exp(1j*Vaf1))'; (Vmf2.*exp(1j*Vaf2))']);
|
||||
% VoltpA=conj(VoltpABC(1,:)');
|
||||
% CurpA=-conj((phaseASpotLoadP+1j*phaseASpotLoadQ)./VoltpA);
|
||||
% VoltpB=conj(VoltpABC(2,:)');
|
||||
% CurpB=-conj((phaseBSpotLoadP+1j*phaseBSpotLoadQ)./VoltpB);
|
||||
% VoltpC=conj(VoltpABC(3,:)');
|
||||
% CurpC=-conj((phaseCSpotLoadP+1j*phaseCSpotLoadQ)./VoltpC);
|
||||
% f012=Tp2f*conj([CurpA';CurpB';CurpC']);
|
||||
% If0=conj(f012(1,:)');
|
||||
% If1=conj(f012(2,:)');
|
||||
% If2=conj(f012(3,:)');
|
||||
%%
|
||||
% If0(Balance)=-sum(If0);
|
||||
% If2(Balance)=-sum(If2);
|
||||
% If1(Balance)=-sum(If1);
|
||||
%%
|
||||
end
|
||||
%%
|
||||
Vtest=[1.02*exp(1j*0);1.01*exp(1j*0.21);1.00*exp(1j*-0.13)];%相电压
|
||||
%Itest=[0.12*exp(1j*0.15);0.09*exp(1j*1.21);0.81*exp(1j*-0.43)];%相电流
|
||||
Ytest=diag([0.75*exp(1j*1.7);33*exp(1j*2.1);12*exp(1j*-3)]);
|
||||
Itest=Ytest*Vtest;
|
||||
Stest=Vtest.*conj(Itest);%相功率
|
||||
sum(Stest)/3;
|
||||
sum((Tp2f*Vtest).*conj(Tp2f*Itest));
|
||||
YYtest=Ytest;
|
||||
Ytest(2,:)=0;
|
||||
Ytest(:,2)=0;
|
||||
Ytest(2,2)=1;
|
||||
tttt=Itest(2);
|
||||
Itest(2)=1.01*exp(1j*0.21);
|
||||
tV=Ytest\Itest;
|
||||
Itest(2)=tttt;
|
||||
YYtest*tV;
|
||||
%%
|
||||
(Vf0.*conj(fsY00*Vf0)+Vf1.*conj(fsY11*Vf1)+Vf2.*conj(fsY22*Vf2))*3;
|
||||
(Vf1.*conj(fsY11*Vf1))/3;
|
||||
conj(Tf2p*[If0(2);If1(2);If2(2)]).*(Tf2p*[Vf0(2);Vf1(2);Vf2(2)]);
|
||||
%%
|
||||
If1=fsY11*Vf1;
|
||||
If1(Balance)=Vf1(Balance);
|
||||
fsY1(Balance,:)=0;
|
||||
fsY1(:,Balance)=0;
|
||||
% fsY1=fsY1+sparse(Balance,Balance,ones(length(Balance),1),busNum,busNum);
|
||||
fsY1(3,3)=1;
|
||||
%VV1=fsY1(1:2,1:2)\If1(1:2);%算一下，虽然不用。
|
||||
VV1=fsY1\If1;%算一下，虽然不用。
|
||||
%Vf1=Vmf1.*exp(1j*Vaf1);
|
||||
If0(Balance)=-sum(If0);
|
||||
If2(Balance)=-sum(If2);
|
||||
If1(Balance)=-sum(If1);
|
||||
fsY11*VV1;
|
||||
%%
|
||||
IpABC=Tf2p*conj([If0';If1';If2']);
|
||||
%转换回三相电压
|
||||
VoltpABC=Tf2p*conj([ (Vmf0.*exp(1j*Vaf0))'; (Vmf1.*exp(1j*Vaf1))'; (Vmf2.*exp(1j*Vaf2))']);
|
||||
VoltpABC(:,1);
|
||||
Tp2f*VoltpABC(:,1);
|
||||
Tf2p*Tp2f*VoltpABC(:,1);
|
||||
disp([' A B C'])
|
||||
abs(VoltpABC')
|
||||
VoltpA=VoltpABC(1,:);
|
||||
VoltpB=VoltpABC(2,:);
|
||||
VoltpC=VoltpABC(3,:);
|
||||
Vp3=sparse(busNum*3,1);
|
||||
Vp3(1:3:end)=VoltpA;
|
||||
Vp3(2:3:end)=VoltpB;
|
||||
Vp3(3:3:end)=VoltpC;
|
||||
Ip3=phaseABCY*Vp3;
|
||||
Sp3=Vp3.*conj(Ip3);
|
||||
VoltpABC.*conj(IpABC);
|
||||
I2inj=IpABC(:,2);
|
||||
aa=phaseABCY(1:3,1:3)*[VoltpA(1);VoltpB(1);VoltpC(1)];
|
||||
a1=Tf2p*diag([fsY0(2,1),fsY1(2,1),fsY2(2,1)])*[Vf0(1);Vf1(1);Vf2(1)];
|
||||
a2=Tf2p*diag([fsY0(2,2),fsY1(2,2),fsY2(2,2)])*[Vf0(2);Vf1(2);Vf2(2)];
|
||||
a3=Tf2p*diag([fsY0(2,3),fsY1(2,3),fsY2(2,3)])*[Vf0(3);Vf1(3);Vf2(3)];
|
||||
bb=0;
|
||||
a1=diag([fsY0(2,2)])*[Vf0(2)];
|
||||
a2=diag([fsY1(2,2)])*[Vf1(2)];
|
||||
a3=diag([fsY2(2,2)])*[Vf2(2)];
|
||||
bb=bb+1*[a1;a2;a3];
|
||||
a1=diag([fsY0(2,1)])*[Vf0(1)];
|
||||
a2=diag([fsY1(2,1)])*[Vf1(1)];
|
||||
a3=diag([fsY2(2,1)])*[Vf2(1)];
|
||||
bb=bb+1*[a1;a2;a3];
|
||||
a1=diag([fsY0(2,3)])*[Vf0(3)];
|
||||
a2=diag([fsY1(2,3)])*[Vf1(3)];
|
||||
a3=diag([fsY2(2,3)])*[Vf2(3)];
|
||||
bb=bb+1*[a1;a2;a3];
|
||||
b=0;
|
||||
aa=phaseABCY(4:6,4:6)*[VoltpA(2);VoltpB(2);VoltpC(2)];
|
||||
b=b+aa;
|
||||
aa=phaseABCY(4:6,1:3)*[VoltpA(1);VoltpB(1);VoltpC(1)];
|
||||
b=b+aa;
|
||||
aa=phaseABCY(4:6,7:9)*[VoltpA(3);VoltpB(3);VoltpC(3)];
|
||||
b=b+aa;
|
||||
aa=phaseABCY(4:6,:)*[VoltpA(1);VoltpB(1);VoltpC(1);VoltpA(2);VoltpB(2);VoltpC(2);VoltpA(3);VoltpB(3);VoltpC(3)];
|
||||
conj(aa).*[VoltpA(2);VoltpB(2);VoltpC(2)];
|
||||
conj(a1+a2+a3).*[VoltpA(2);VoltpB(2);VoltpC(2)];
|
||||
aa=[15.3502321158364 - 26.9339348391836i,30.6661479563297 - 84.3093119155620i,30.6661479563297 - 84.3093119155620i;30.6661479563297 - 84.3093119155620i,15.3502321158364 - 26.9339348391836i,30.6661479563297 - 84.3093119155620i;30.6661479563297 - 84.3093119155620i,30.6661479563297 - 84.3093119155620i,15.3502321158364 - 26.9339348391836i;];
|
||||
aa*Vp3(1:3);
|
||||
fs=Tp2f*aa*Tf2p;
|
||||
phaseABCY(7,:)=0;
|
||||
phaseABCY(:,7)=0;
|
||||
phaseABCY(8,:)=0;
|
||||
phaseABCY(:,8)=0;
|
||||
phaseABCY(9,:)=0;
|
||||
phaseABCY(:,9)=0;
|
||||
phaseABCY(7,7)=1;
|
||||
phaseABCY(8,8)=1;
|
||||
phaseABCY(9,9)=1;
|
||||
Ip3(7)=1;
|
||||
Ip3(8)=-0.5 - 0.866025403784439i;
|
||||
Ip3(9)=-0.5 + 0.866025403784439i;
|
||||
inv(phaseABCY)*Ip3;
|
||||
IppABC=sparse(9,1);
|
||||
IppABC(1:3:end)=IpABC(1,:);
|
||||
IppABC(2:3:end)=IpABC(2,:);
|
||||
IppABC(3:3:end)=IpABC(3,:);
|
||||
IppABC(7)=1;
|
||||
IppABC(8)=-0.5 - 0.866025403784439i;
|
||||
IppABC(9)=-0.5 + 0.866025403784439i;
|
||||
inv(phaseABCY)*IppABC;
|
||||
aa*Tf2p*[Vf0(1);Vf1(1);Vf2(1)]-Tf2p*[If0(1);If1(1);If2(1)];
|
||||
diag([fsY0(1),fsY1(1),fsY2(1)])*[Vf0(1);Vf1(1);Vf2(1)]-[If0(1);If1(1);If2(1)];
|
||||
Tp2f*diag([fsY0(1),fsY1(1),fsY2(1)])*Tf2p;
|
||||
altY012=sparse(3,3);
|
||||
altY012(1,1)=fsY0(1,1);
|
||||
altY012(2,2)=fsY1(1,1);
|
||||
altY012(3,3)=fsY2(1,1);
|
||||
V11I=altY012*[Vf0(1);Vf1(1);Vf2(1)];
|
||||
V11S=[VoltpA(1);VoltpB(1);VoltpC(1)].*conj(Tf2p*altY012*Tp2f*[VoltpA(1);VoltpB(1);VoltpC(1)]);
|
||||
altY012(1,1)=fsY0(1,2);
|
||||
altY012(2,2)=fsY1(1,2);
|
||||
altY012(3,3)=fsY2(1,2);
|
||||
V12I=altY012*[Vf0(2);Vf1(2);Vf2(2)];
|
||||
V12S=[VoltpA(1);VoltpB(1);VoltpC(1)].*conj(Tf2p*altY012*Tp2f*[VoltpA(1);VoltpB(1);VoltpC(1)]);
|
||||
altY012(1,1)=fsY0(1,3);
|
||||
altY012(2,2)=fsY1(1,3);
|
||||
altY012(3,3)=fsY2(1,3);
|
||||
V13I=altY012*[Vf0(3);Vf1(3);Vf2(3)];
|
||||
V12S+V11S;
|
||||
[VoltpA(1);VoltpB(1);VoltpC(1)].*(Tf2p*(V11I+V12I));
|
||||
Tf2p*V11I;
|
||||
altY012(1,1)=fsY0(1,1);
|
||||
altY012(2,2)=fsY1(1,1);
|
||||
altY012(3,3)=fsY2(1,1);
|
||||
Tf2p*altY012*Tp2f*[VoltpA(1);VoltpB(1);VoltpC(1)];
|
||||
Tf2p*[Vf0(1);Vf1(1);Vf2(1)];
|
||||
Loading…
Reference in New Issue