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));                                      %求节点导纳角度