1.软件版本

matlab2013b

2.系统概述

1.支路电气介数计算

支路m-n的电气介数计算式如下：

2.节点电气介数计算

节点k的电气介数计算式如下：

其中，F(k)为与节点k连接的边的集合。

需要对测试系统得出支路和节点电气介数的计算值和分布情况。

参考所附文献《含HVDC和FACTS元件的电气介数计算第一部分》、《含HVDC和FACTS元件的电气介数计算第二部分》计算方法。潮流模型采用直流潮流模型即可。

HVDC、FACTS（包含TCSC和UPFC）三种简化模型在电气介数计算中的体现形式为：对测试系统，可以在系统任意数量和位置的线路上对以上三种简化模型进行选择。得出考虑三种模型后的系统中支路和节点的电气介数计算值和分布情况。

根据论文中提供的电气介数的计算流程：

步骤一：对网络进行简化，获得电网拓扑结构模型；

步骤二：连通性分析，使用图论中的连通性分析算法对整个网络进行划分为不同的区；

步骤三：计算各个不同区的导纳矩阵；

步骤四：选择一对在同一区域的发电负荷节点，并注入有功功率，然后计算潮流，并保证所有的发电负荷阶段均被选择；

步骤五：计算线路和节点的电气介数；

步骤六：计算其对应的累积分别；

3.部分源码

clc;
clear;
close all;
warning off;
addpath 'func\'
RandStream.setDefaultStream(RandStream('mt19937ar','seed',1));
mpc   = case118;
%节点数的初始化
BUS                            = mpc.bus;
GEN                            = mpc.gen;
BRANCH                         = mpc.branch;   
[r,c]                          = size(mpc.bus);   %r为节点数量  
Bus_Num                        = r;
[r,c]                          = size(mpc.branch);%r为支路数量
F_Num                          = r;
%步骤1：显示网络拓扑结构
[Connect,Cmatrix] = func_topology(BRANCH,BUS(end,1),0);
%步骤2：连通性分析，使用图论中的连通性分析算法对整个网络进行划分为不同的区
[S,Q]             = func_Adjacent_matrix(Cmatrix);
%步骤3：计算各个不同区的导纳矩阵
Ak                = func_Admittance_matrix_different_area(BUS,BRANCH,S,Q); 
%步骤4：选择一对在同一区域的发电负荷节点，并注入有功功率，然后计算潮流，并保证所有的发电负荷阶段均被选择；
Fo                = func_Lb_flow(Ak,BUS,GEN,Bus_Num,Connect,S,Q);
%步骤5：计算线路的电气介数
disp('线路电气介数：');
func_Line_JS(mpc,Fo,BRANCH,BUS,GEN,S,Bus_Num);
title('线路电气介数');
%步骤6：计算节点的电气介数
disp('节点电气介数：');
func_Node_JS(mpc,Fo,BRANCH,BUS,GEN,S,Bus_Num);
title('节点电气介数');
%步骤7：计算节点的度数
disp('节点的度数：');
func_Node_degree(BUS,BRANCH);

function Ak = func_Admittance_matrix(bus,line);

[nb,mb] = size(bus);
[nl,ml] = size(line);
%对导纳矩阵赋初值0 
Ak      = zeros(nl,nb);         

for k=1:nl
    I  = line(k,1);                     
    J  = line(k,2);
    Zt = line(k,3)+j*line(k,4);
    Yt = 1/Zt;
    Ym = line(k,5)+j*line(k,10);
    K  = line(k,9);
    
    %普通线路
    if (K==0)  & (J~=0)
       Ak(I,I) = Ak(I,I) + Yt + Ym;
       Ak(J,J) = Ak(J,J) + Yt + Ym;
       Ak(I,J) = Ak(I,J) - Yt;
       Ak(J,I) = Ak(I,J);
    end
    
    %对地支路
    if (K==0)&(J==0)               
       Ak(I,I) = Ak(I,I) + Ym;
    end
    
    %变压器线路
    if K > 0                        
       Ak(I,I) = Ak(I,I) + Yt + Ym;
       Ak(J,J) = Ak(J,J) + Yt / K / K;
       Ak(I,J) = Ak(I,J) - Yt / K;
       Ak(J,I) = Ak(I,J);
    end
    
    %变压器线路
    if K < 0                      
       Ak(I,I) = Ak(I,I) + Yt + Ym;
       Ak(J,J) = Ak(J,J) + K*K*Yt;
       Ak(I,J) = Ak(I,J) + K*Yt;
       Ak(J,I) = Ak(I,J);
    end
end

a = [nb+1:nl];
T = length([nb+1:nl]);
for ii = 1:T
    Ak(nb+ii,:) = Ak(line(a(ii),1),:);
end

[rr,cc] = size(Ak);

for ii = 1:rr
    for jj = 1:cc
        if abs(Ak(ii,jj)) > 100000
           Ak(ii,jj) = 0;
        end
    end
end