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

已全部稀疏化

Browse Source 
Signed-off-by: facat <dmy@dmy-PC.(none)>
This commit is contained in:
facat
2012-05-24 10:34:04 +08:00
parent ca24c4f8d5
commit 9c5239bd1e
14 changed files with 166 additions and 936 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
func_deltH.m
View File

@@ -1,21 +1,24 @@
function deltH=func_deltH(Busnum,Volt,PVi,AngleIJMat,Y,GB,PGi)
dH_dPg=zeros(size(PGi,1),2*Busnum);
function deltH=func_deltH(Busnum,Volt,PVi,AngleIJMat,Y,GB,PGi,UAngel,r,c,Angle)
% dH_dPg=zeros(size(PGi,1),2*Busnum);
%
% for I=1:size(PGi,1)
% %dH_dPg(I,2*PVi(I)-1)=-1;王锡凡书上的公式
% %dH_dPg(I,2*PGi(I)-1)=1;暂时改一下20111227
% dH_dPg(I,PGi(I))=1;
% end
for I=1:size(PGi,1)
%dH_dPg(I,2*PVi(I)-1)=-1;王锡凡书上的公式
%dH_dPg(I,2*PGi(I)-1)=1;暂时改一下20111227
dH_dPg(I,PGi(I))=1;
end
dH_dPg=sparse(1:size(PGi,1),PGi,ones(size(PGi,1),1),size(PGi,1),2*Busnum);
dH_dQr=zeros(size(PVi,1),2*Busnum);
for I=1:size(PVi,1)
%dH_dQr(I,2*PVi(I))=-1;王锡凡书上的公式
%dH_dQr(I,2*PVi(I))=1;暂时改一下20111227
dH_dQr(I,PVi(I)+Busnum)=1;
end
% dH_dQr=zeros(size(PVi,1),2*Busnum);
% for I=1:size(PVi,1)
% %dH_dQr(I,2*PVi(I))=-1;王锡凡书上的公式
% %dH_dQr(I,2*PVi(I))=1;暂时改一下20111227
% dH_dQr(I,PVi(I)+Busnum)=1;
% end
dH_dQr=sparse(1:size(PVi,1),PVi+Busnum,ones(size(PVi,1),1),size(PVi,1),2*Busnum);
dH_dPD=[-eye(Busnum) zeros(Busnum)];
Angle=angle(GB);
dH_dx = jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat); %形成雅克比矩阵
%Angle=angle(GB);
dH_dx = jacobian_M3(Busnum,Volt,Y,Angle,AngleIJMat,UAngel,r,c); %形成雅克比矩阵
%deltH=[dH_dPg;dH_dQr;dH_dx'];%dH_dx 需要使用一下转置 暂时改一下
deltH=[dH_dPg;dH_dQr;dH_dPD;dH_dx'];
end