facat
/
pes2014-wronglowervoltagebound
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
pes2014-wronglowervoltagebound/FormH.m

13 lines
411 B
Mathematica
Raw Normal View History

删掉多余的函数参数，统一了ContrlCount Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-05-25 17:16:59 +08:00
function Mat_H=FormH(Busnum,Volt,PG,PD,QG,QD,Y,UAngel,r,c,Angle,QD_NON_ZERO,QD_NON_ZERO_IND)
用功率因数计算QD，收敛良好。 Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-05-24 10:07:18 +08:00
%%
随机测试缺负荷 Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-06-06 10:19:08 +08:00
QDcos=textread('D:\Project\<EFBFBD><EFBFBD>С<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<EFBFBD><EFBFBD>С<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<EFBFBD>ɺ<EFBFBD>919PDQDglys.txt');
QD(QD~=0)=PD(QD~=0)./tan(QDcos);
%QD(QD_NON_ZERO_IND)=QD_NON_ZERO;
用功率因数计算QD，收敛良好。 Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-05-24 10:07:18 +08:00
%%
已全部稀疏化 Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-05-24 10:34:04 +08:00
AngleIJ=sparse(r,c,UAngel(r)-UAngel(c)-Angle',Busnum,Busnum);
original.not modified.
2012-05-22 11:33:21 +08:00
dP=PG-PD-diag(Volt)*Y.*cos(AngleIJ)*Volt';
dQ=QG-QD-diag(Volt)*Y.*sin(AngleIJ)*Volt';
已全部稀疏化 Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-05-24 10:34:04 +08:00
original.not modified.
2012-05-22 11:33:21 +08:00
Mat_H=[dP;dQ;];
end