互补理论调得不好。

Signed-off-by: dugg@lab-desk <dugg@lab-desk>

FormLxComa.m

@@ -4,8 +4,9 @@ t2=Lul+diag(Init_Z)*Lz;
 t3=inv(diag(Init_L));
 t4=t3*t2;%
 t5=Luu-diag(Init_W)*Lw;
-t6=inv(diag(Init_U));
+% t6=inv(diag(Init_U));
-t7=t6*t5;%
+% t7=t6*t5;%
+t7=diag(Init_U)\t5;
 t8=deltG*(t4+t7);%%
 LxComa=Lx+t8;
 end

OPF.m

@@ -5,7 +5,7 @@ arrayA=zeros(21,10);
 sumCaseA_SE=0;
 sumCaseB_SE=0;
 sumCaseC_SE=0;
-for I=1:20
+for I=1:1
 close
 [kmax,Precision,UAngel,Volt,Busnum,PVi,PVu,Balance,Y,Angle,P0,Q0,r,c,GB,Linei,Linej,Transfori,Transforj,GenU,GenL,GenC,PG,QG,PD,QD,CenterA,PGi,PVQU,PVQL,Liner,Linex,Lineb,Transforr,Transforx,Branchi,Branchg,Branchb,Transfork0]= ...
     pf('E:\算例\feeder33\feeder33.txt');
@@ -28,14 +28,18 @@ mVolt=rVolt.*(1+normrnd(0,sigma,length(rVolt),1))';
 % mVolt=load('mVolt');
 % mVolt=mVolt.mVolt;
 
-% mVolt(19)=rVolt(19)*(1+sigma*4);
+mVolt(2)=rVolt(2)*(1-sigma*4);
 %% 画Case A的图
-figure('Color',[1 1 1]);
+% figure('Color',[1 1 1]);
 [Busnum,Loadi,Volt,PD,QD,rVolt,UAngel,RealPD,RealQD,rUAngel,Vbi,PDbi,QDbi,plotGapA]=subOPF([],PD0,QD0,mVolt,sigma);%全部有
+end
 subplot(4,1,1,'XTick',[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33]);
 CaseAREV=(Volt-rVolt)*100;%Relative Error of Voltage in Case A
 % CaseAREV=CaseAREV(2:end)*100;
+%真实值的
 plot(1:length(CaseAREV),abs(CaseAREV),'k.:','Marker','diamond');
+%测量值的
+% plot(1:length(CaseAREV),abs((mVolt-rVolt)*100),'c.:','Marker','diamond');
 box off;
 set(gca,'XTick',[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33])
 xlabel('节点号');
@@ -43,6 +47,7 @@ ylabel('
 subplot(4,1,2);
 CaseAREA=(UAngel-rUAngel)*100;%Relative Error of Angle in Case A
 % CaseAREA=CaseAREA(2:end)*100;
+%真实值的
 plot(1:length(CaseAREA),abs(CaseAREA),'k:','Marker','diamond');
 box off;
 set(gca,'XTick',[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33])
@@ -51,7 +56,10 @@ ylabel('
 subplot(4,1,3);
 CaseAREP=(PD-RealPD)./(RealPD+0.00001)*100;%Relative Error of PD in Case A
 % CaseAREP=CaseAREP(2:end)*100;
+%真实值的
 plot(1:length(CaseAREP),abs(CaseAREP),'k:','Marker','diamond');
+%测量值的
+% plot(1:length(CaseAREV),abs((PD0-RealPD)./(RealPD+0.00001)*100),'c.:','Marker','diamond');
 box off;
 set(gca,'XTick',[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33])
 xlabel('节点号');
@@ -59,7 +67,10 @@ ylabel('
 subplot(4,1,4);
 CaseAREQ=(QD-RealQD)./(RealQD+0.00001)*100;%Relative Error of QD in Case A
 % CaseAREQ=CaseAREQ(2:end)*100;
+%真实值的
 plot(1:length(CaseAREQ),abs(CaseAREQ),'k:','Marker','diamond');
+%测量值的
+% plot(1:length(CaseAREV),abs((QD0-RealQD)./(RealQD+0.00001)*100),'c.:','Marker','diamond');
 box off;
 set(gca,'XTick',[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33])
 xlabel('节点号');
@@ -73,7 +84,6 @@ CaseA_SE=(CaseA_SE/(length(notZeros)*2+length(Volt)))^.5;
 sumCaseA_SE=sumCaseA_SE+CaseA_SE;
 % arrayA(1:19,I)=Vbi;
 % arrayA(21,I)=CaseAE*1000;
-
 %% Case B
 % [Busnum,Loadi,Volt,PD,QD,rVolt,UAngel,RealPD,RealQD,rUAngel,Vbi,PDbi,QDbi,plotGapB]=subOPF(setdiff(1:Busnum,[18,21,22,29]),PD0,QD0,mVolt,sigma);%
 [Busnum,Loadi,Volt,PD,QD,rVolt,UAngel,RealPD,RealQD,rUAngel,Vbi,PDbi,QDbi,plotGapB]=subOPF(setdiff(1:Busnum,[2,3,5,20,24,27,28,10,11,12,13]),PD0,QD0,mVolt,sigma);%
@@ -156,8 +166,6 @@ fprintf('Case A    Case B    Case C
 fprintf('%f    %f    %f    \n',CaseAE,CaseBE,CaseCE);
 fprintf('三个Case目标值\n')
 fprintf('%f\t%f\t%f \n',objA,objB,objC)
-
-end
 %% 画测量值
 % subplot(4,1,1);
 % plot(1:Busnum,mVolt-rVolt,'k.:','Marker','pentagram')
@@ -309,3 +317,10 @@ fz=find(abs(plotGapA)==0);
 fz=fz(1);
 figure('Name','互补曲线')
 plot(1:fz-1,plotGapA(1:fz-1));
+figure('Name','最大不平衡量');
+%% 最大不平衡量
+% maxDismatchPQ = [0.3123e-10  0.1497e-10 0.7351e-10; 0.6854e-10 0.1973e-10 0.5824e-10];
+% bar(maxDismatchPQ);
+%% 计算时间
+calTime=[87 61; 211 87; 108 59;];
+bar(calTime,'stacked');

subOPF.m

@@ -45,7 +45,7 @@ Gap=(Init_L*Init_Z'-Init_U*Init_W');
 KK=0;
 plotGap=zeros(1,60);
 ContrlCount=size(Loadi,1)*2+Busnum*2+Busnum+length(Loadi)*2;
-kmax=100;
+kmax=100000;
 Precision=Precision/1;
 %% 加误差
 %找DG
@@ -90,10 +90,10 @@ lVolt(noMeasurei)=0.7*mVolt(noMeasurei);%
 uVolt(noMeasurei)=0.7*mVolt(noMeasurei);
 %错误数据
 %mVolt(2)=5;
-bigM=10;
+bigM=2;
-Vbi=sparse(0.5*ones(Busnum,1));
+Vbi=sparse(0.9*ones(Busnum,1));
-PDbi=sparse(0.5*ones(length(Loadi),1));
+PDbi=sparse(0.9*ones(length(Loadi),1));
-QDbi=sparse(0.5*ones(length(Loadi),1));
+QDbi=sparse(0.9*ones(length(Loadi),1));
 eps=10;
 % 第一遍，算连续的值
 fprintf('第1次迭代，算连续量。\n');
@@ -144,9 +144,11 @@ end
 % Gap=(Init_L*Init_Z'-Init_U*Init_W');
 Gap=1000;
 % KK=0;
+eps=1;
 fprintf('\n');
 fprintf('第2次迭代，算离散量。\n');
-while(abs(Gap)>Precision*1)
+while eps>0.001
+    while(abs(Gap)>Precision*10)
         if KK>kmax
             break;
         end
@@ -175,16 +177,17 @@ while(abs(Gap)>Precision*1)
         Mat_G=FormG(Volt,PD,QD,Loadi,bigM,mVolt,rVolt,sigma,Vbi,PDbi,QDbi,mPD,mQD,uPD,lPD,uQD,lQD,uVolt,lVolt);
         Mat_H=FormH(Busnum,Volt,PG,PD,QG,QD,Y,UAngel,r,c,Angle,Loadi);
         Ly=Mat_H;
-    if KK>0
+        %     if KK>20
-        eps=eps*0.1;
+        %         eps=eps*0.1;
-        if abs(eps)<1e-6
+        %         eps=Gap;
-            eps=1e-5;
+        %         if abs(eps)<1e-6
-        end
+        %             eps=1e-5;
-        eps;
+        %         end
-%        if any(Vbi>0.002)
+        %         eps;
-%            Vbi(Vbi>0.002)=1;
+        % %        if any(Vbi>0.002)
+        % %            Vbi(Vbi>0.002)=1;
+        % %        end
         %     end
-    end
         Lz=FormLz(Mat_G,Init_L,GenL,Busnum,PVQL,PD,RealPD,RealQD,Loadi,KK,PF,eps);
         Lw=FormLw(Mat_G,Init_U,GenU,Busnum,PVQU,PD,PD0,QD0,Loadi,KK,PF,eps);
         Lx=FormLx(deltF,deltH,Init_Y,deltG,Init_Z,Init_W);
@@ -201,6 +204,9 @@ while(abs(Gap)>Precision*1)
         Gap=(Init_L*Init_Z'-Init_U*Init_W');
         KK=KK+1;
     end
+    eps=eps*0.9
+    Gap=100;
+end
 %% 计算最大不平衡量
 AngleIJ=sparse(r,c,UAngel(r)-UAngel(c)-Angle',Busnum,Busnum);
 dP=PD+diag(Volt)*Y.*cos(AngleIJ)*Volt';