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

original.not modified.

Browse Source
This commit is contained in:
facat
2012-05-22 11:33:21 +08:00
commit cb34aec845
83 changed files with 13475 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
modifyadmmatrix.m Normal file
View File

@@ -0,0 +1,23 @@
function [new_G,new_B,GB,Y,r,c,Angle] = modifyadmmatrix(ii,jj,G,B)
%**************************************************************************
% 程序功能 : 子函数——形成节点导纳矩阵Y
% 编 者：
% 编制时间：2010.12
%**************************************************************************
%% 支路导纳计算
new_G=G;
new_G(ii,jj)=new_G(ii,jj)-G(ii,jj);
new_G(jj,ii)=new_G(jj,ii)-G(jj,ii);
new_G(ii,ii)=new_G(ii,ii)+G(ii,jj);
new_G(jj,jj)=new_G(jj,jj)+G(ii,jj);
new_B=B;
new_B(ii,jj)=new_B(ii,jj)-B(ii,jj);
new_B(jj,ii)=new_B(jj,ii)-B(jj,ii);
new_B(ii,ii)=new_B(ii,ii)+B(ii,jj);
new_B(jj,jj)=new_B(jj,jj)+B(ii,jj);
%% 化作极坐标形式
GB = new_G+new_B.*1i; %将电导，电纳合并，写成复数形式
Y = abs(GB); %求节点导纳幅值
[r,c] = find(Y);
Angle = angle(GB(GB~=0)); %求节点导纳角度