facat/pes2014
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

修复一个bug。潮流形成导纳矩阵的时候忘记加节点电导（G）了，所以老是不对。现在修复了。

Browse Source 
Signed-off-by: facat <dugg@21cn.com>
This commit is contained in:
facat
2012-12-25 12:03:27 +08:00
parent 28cb11581a
commit 4d982b92b2
8 changed files with 59 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
pf.m
View File

@@ -10,10 +10,10 @@ function [kmax,Precision,Uangle,U,Busnum,PVi,PVu,Balance,Y,Angle,P0,Q0,r,c,GB,Li
tic;
%% 读取数据文件
[Busnum,Balance,PQstandard,Precision,Linei,Linej,Liner,Linex,Lineb,kmax,Transfori ,...
Transforj,Transforr,Transforx,Transfork0,Branchi,Branchb,Pointpoweri,PG,QG,PD,QD,PVi,PVu,GenU,GenL,GenC,CenterA,PGi,PVQU,PVQL]= openfile(FileName);
Transforj,Transforr,Transforx,Transfork0,Branchi,Branchg,Branchb,Pointpoweri,PG,QG,PD,QD,PVi,PVu,GenU,GenL,GenC,CenterA,PGi,PVQU,PVQL]= openfile2(FileName);
%% 形成节点导纳矩阵
[GB,Y,r,c,Angle] = admmatrix(Busnum,Linei,Linej,Liner,Linex,Lineb,Transfori,Transforj,Transforr,...
Transforx,Transfork0,Branchi,Branchb);
Transforx,Transfork0,Branchi,Branchg,Branchb);
[P0,Q0,U,Uangle] = Initial(PG,PD,PQstandard,Pointpoweri,QG,QD,Busnum); %求功率不平衡量
%disp('迭代次数i 最大不平衡量');
%% 循环体计算
@@ -26,13 +26,9 @@ for i = 0:kmax
if m > Precision %判断不平衡量是否满足精度要求
[Uangle,U] = solvefun(Busnum,Jacob,PQ,Uangle,U); %求解修正方程，更新电压变量
else
%disp(['收敛，迭代次数为',num2str(i),'次']);
disp(['收敛，迭代次数为',num2str(i),'次']);
break %若满足精度要求，则计算收敛
end
end
toc;
PG=PG/PQstandard;
QG=QG/PQstandard;
PD=PD/PQstandard;
QD=QD/PQstandard;
end