配电网网架优化

基于粒子群的网架优化主程序，通过粒子群得到辐射型网架

function T1=changes（pti） %%% 网络结构分层显示
T1=[];
for i=1:size（p1）
    for j=1:size（p2）
        if p（ij）==1
            T1=[T1;ij]; %T1 为矩阵 p 中元素 1 所处位置组成的矩阵%
        end
    end
end
if ti==1
    for k1=1:6
        for k2=k1+1:6
            if T1（k11）-T1（k21）==0;
                a=T1（k21）
                T1（k21）=T1（k22）;
                T1（k22）=a; %同一行中两元素位置互换%
            end
        end
    end
    for k1=1:6
        for k2=k1+1:6
            if T1（k11）-T1（k21）==0; 
                %元素互换后，矩阵若仍存在： T1（k11）==T1（k21）
                % （k1                a=T1（k11）
                T1（k11）=T1（k12）;
                T1（k12）=a;
            end
        end
    end
    [cpos]=sort（T1（:2））; %% 第二列元素升序排列并与第一列元素互换位置 %%
    T1=T1（pos:）;
    B=T1（:1）;
    T1（:1）=T1（:2）;
    T1（:2）=B ;
else
    return;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        5738  2018-05-09 17:26  PSO\PSO.m
     文件        1512  2018-05-09 10:36  PSO\Tree.m
     文件         959  2018-05-09 19:47  PSO\changes.m
     文件         240  2018-05-08 20:20  PSO\f03.m
     文件         774  2018-05-08 20:21  PSO\f05.m
     文件         514  2018-05-08 20:22  PSO\fuzhi.m
     文件        2221  2018-05-09 17:24  PSO\qthd.m
     目录           0  2018-05-09 16:53  PSO\