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-25 17:23:23 +08:00
parent e515e5fd4a
commit 97822756be
26 changed files with 100 additions and 1891 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
jacobian_M.m
View File

@@ -1,61 +1,20 @@
function Jacob=jacobian_M(Busnum,Volt,Y,Angle,AngleIJMat)
function [Jacob]=jacobian_M3(Busnum,Volt,Y,Angle,UAngel,r,c)
%**************************************************************************
% 程序功能 : 子函数——形成雅可比矩阵Jacobian
% 编 者：
% 编制时间：2010.12
%**************************************************************************
%%参照图书馆6楼的书编写
%% 分别求雅克比矩阵的子阵H,L,N,J及有功无功分量P,Q
temp1=-Volt'*Volt.*Y;
AngleIJ=AngleIJMat-Angle;
temp11=Volt'*ones(1,Busnum).*Y;
temp2=sum(temp1.*sin(AngleIJ),2);
temp22 = sum(temp11.*sin(AngleIJ),2);
temp3 = sum(temp1.*cos(AngleIJ),2);
temp33 = sum(temp11.*cos(AngleIJ),2);
temp4=diag(temp2);
temp44=diag(temp22);
temp5=diag(temp3);
temp55=diag(temp33);
%计算Lii的累加项
t1=ones(Busnum,1)*Volt.*Y;
t2=sum(t1.*sin(AngleIJ),2);
t3=sum(t1.*cos(AngleIJ),2);
t4=diag(t2);
t5=diag(t3);
H = temp1.*sin(AngleIJ)-temp4;%
L = -temp11.*sin(AngleIJ);%
%L(1:Busnum,1:Busnum)=-temp44+;
L=L-t4;
N=-temp11.*cos(AngleIJ);%
%N(1:Busnum,1:Busnum)=-temp55-diag(diag(temp11.*cos(Angle) ) );
N=N-t5;
J = -temp1.*cos(AngleIJ)+temp5;%
%%
%Q = Q0+temp2'; %求有功分量P
%P = P0+temp3'; %求无功分量Q
%% 处理平衡节点和pv节点
% H(:,Balance) = 0;
% H(Balance,:) = 0;
% H(Balance,Balance) = 100; % 平衡节点对应的对角元素置一个有限数
% L(:,PVi) = 0;
% L(PVi,:) = 0;
% L = L+sparse(PVi,PVi,ones(1,length(PVi)),Busnum,Busnum); % PV节点对应的对角元素置为1
% J(:,Balance) = 0;
% J(PVi,:) = 0;
% N(:,PVi) = 0;
% N(Balance,:) = 0;
% Q(PVi) = 0; % 将pv节点的无功不平衡分量置零
% P(Balance) = 0; % 平衡节点的有功功率不平衡分量置零
%% 合成PQ和雅可比矩阵
t1=zeros(2*Busnum);
t1(1:2:2*Busnum,1:2:2*Busnum)=H;
t1(1:2:2*Busnum,2:2:2*Busnum)=N;
t1(2:2:2*Busnum,1:2:2*Busnum)=J;
t1(2:2:2*Busnum,2:2:2*Busnum)=L;
% t1(1:)
% PQ = cat(2,P,Q); % 形成功率不平衡分量列向量
%Jacob = cat(1,cat(2,H,N),cat(2,J,L)); % 形成Jacobian矩阵
Jacob=t1;
AngleIJ=UAngel(r)-UAngel(c)-Angle';
mat_AngleIJ=sparse(r,c,AngleIJ,Busnum,Busnum);
mat_IvAngleIJ=mat_AngleIJ';
H=sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*sin(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)-sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
N=-sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)*Y.*cos(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum)+sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
J=sparse(1:Busnum,1:Busnum,Y.*cos(mat_AngleIJ)*Volt',Busnum,Busnum)+Y.*cos(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
L=sparse(1:Busnum,1:Busnum,Y.*sin(mat_AngleIJ)*Volt',Busnum,Busnum)+Y.*sin(mat_IvAngleIJ)*sparse(1:Busnum,1:Busnum,Volt,Busnum,Busnum);
t1=[J,L;
H,N;
]';
Jacob=-t1;
end