18 lines
786 B
Plaintext
18 lines
786 B
Plaintext
function [new_G,new_B,GB,Y,r,c,Angle] = modifyadmmatrix(ii,jj,G,GG,B,BB)
|
||
%**************************************************************************
|
||
% 程序功能 : 子函数——形成节点导纳矩阵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);
|
||
|
||
%% 化作极坐标形式
|
||
GB = G+B.*1i; %将电导，电纳合并，写成复数形式
|
||
Y = abs(GB); %求节点导纳幅值
|
||
[r,c] = find(Y);
|
||
Angle = angle(GB(GB~=0)); %求节点导纳角度 |