优化稀疏化。删掉了很多注释。

Signed-off-by: facat <dmy@dmy-PC.(none)>
2012-05-24 21:06:34 +08:00
parent 9c5239bd1e
commit f2781393a7
11 changed files with 37 additions and 173 deletions
--- a/admmatrix.m
+++ b/admmatrix.m
@@ -1,4 +1,4 @@
-function [G,B,GB,Y,r,c,Angle]  = admmatrix(Busnum,Linei,Linej,Liner,Linex,Lineb,Transfori...
+function [GB,Y,r,c,Angle]  = admmatrix(Busnum,Linei,Linej,Liner,Linex,Lineb,Transfori...
    ,Transforj,Transforr,Transforx,Transfork0,Branchi,Branchb)
 %**************************************************************************
 %  程序功能 : 子函数——形成节点导纳矩阵Y
@@ -26,7 +26,7 @@ end
 %% 化作极坐标形式
 GB = G+B.*1i;                                                              %将电导，电纳合并，写成复数形式
 Y = abs(GB);                                                                %求节点导纳幅值
-Y=full(Y);
+%Y=full(Y);
 [r,c] = find(Y);
 Angle = angle(GB(GB~=0));                                      %求节点导纳角度
 %Angle=angle(GB);