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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
: I3 |/ i$ |1 g%c表示生成树的权和
+ A$ ~; o7 R2 f% T表示生成树的边集合
l=length(Z);
a(a==0)=inf;
- W! W) F2 Q; ^k=1:l;
listV(k)=0;
2 c8 Y! j" @" }8 s% WlistV(l)=l;
e=1;
while(e<1)
    min=inf;
    for i=1:l
        if listV(i)==1
            for j=1:l
                if listV(j)==0 & min>Z(i,j)
1 N* i: n3 r0 n; ?. {2 l                    min=a(i,j);
                    b=a(i,j);
                    s=i;
5 H; L/ J+ P/ r                    d=j;
1 m% E$ A& @9 g" `+ k- h. F! |                end
            end
, ^; c6 E& O3 e7 J; ?& |# K        end
# q% ~7 z6 t  P; b: o    end
$ q8 j- ^# C: L    listV(d)=l;
4 r7 d$ F8 j/ U' o6 G    distance(e)=b;
    source(e)=s;
: D1 n) B# v5 V, i    destinantion(e)=d;
1 ^+ ^& u& |+ @1 b3 a3 i/ w    e=e+1;
end

T=[source;destination];
/ K$ ?% g  ^6 }3 C+ l+ a. @# nfor g=1:e-1
6 Q& }( C' t4 ]/ S. X% h    c(g)=Z(T(1,g),T(2,g));
end
c;
) o. ?/ o3 d/ j7 q
6 H! N  H( C8 X$ e

李芳