prim最小树调试 哪里出错了 求高手指点

李芳

function[T c]=Primf(Z)
1 ?! I- s7 U' K5 N1 i. u, X7 W% 表示邻接矩阵
%c表示生成树的权和
& o  ?# h- Q. h7 l  l% T表示生成树的边集合
% H; e: m+ ~" Cl=length(Z);
0 U/ V/ n! l2 A5 c' V4 s8 t! Ka(a==0)=inf;
* s: g% ]% ?) D4 A( |$ Fk=1:l;
listV(k)=0;
0 f$ H' q1 G! i( u+ K( v8 v8 k2 rlistV(l)=l;
e=1;
while(e<1)
    min=inf;
    for i=1:l
        if listV(i)==1
            for j=1:l
# h  Y, R, D) d* v0 j                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
                    b=a(i,j);
                    s=i;
                    d=j;
                end
" S8 `3 V: G8 u* H( K% o& S/ H+ S. n            end
# n! e4 R: P0 j) c" K# m3 }        end
& J$ b7 u' m3 j" q; P    end
    listV(d)=l;
    distance(e)=b;
9 p0 w$ ?% K' I# K  d    source(e)=s;
    destinantion(e)=d;
# N4 a' z: a) ^7 C8 p    e=e+1;
end
- ^3 I6 v! _2 }0 s3 R' b
- x) |$ k; U7 w% DT=[source;destination];
for g=1:e-1
    c(g)=Z(T(1,g),T(2,g));
end
4 K) r: V+ [: |c;

' E* g+ ?! `( r5 J
7 |  v8 u0 X# x

李芳