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

李芳

function[T c]=Primf(Z)
/ D; q1 T% H; H% 表示邻接矩阵
' _2 ~0 {* b6 |1 ~7 j7 U0 f5 S%c表示生成树的权和
$ p5 S! ?" ~, ^9 i' s+ ?2 z% T表示生成树的边集合
l=length(Z);
4 b8 C; E' N/ K3 I5 y* {a(a==0)=inf;
k=1:l;
listV(k)=0;
listV(l)=l;
) @/ R* ^+ ]. I4 O6 Te=1;
; A; H5 I" G+ Lwhile(e<1)
    min=inf;
    for i=1:l
! F% H. Z. f! y# a        if listV(i)==1
7 h7 }  l+ y# b& J            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
- N+ P5 s5 a& n' a8 s                    b=a(i,j);
                    s=i;
; W3 c% c. f1 g- d( E: |                    d=j;
                end
            end
        end
$ G% \6 U1 g) p2 R2 P* p    end
    listV(d)=l;
    distance(e)=b;
    source(e)=s;
    destinantion(e)=d;
5 u) ]% {* g. B3 M6 q" L    e=e+1;
' b/ b, s* J7 t' ?end
1 ?  C0 ]" Y! t9 C
* L( t7 p1 J+ U$ rT=[source;destination];
for g=1:e-1
! u' _9 m; o2 W' M+ q    c(g)=Z(T(1,g),T(2,g));
end
c;
! b5 C, I5 X/ U) l

李芳