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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
, o0 c7 y* r9 f3 ~/ ?+ D%c表示生成树的权和
% T表示生成树的边集合
l=length(Z);
% H0 q! a# L4 e+ i3 ^1 ya(a==0)=inf;
2 T7 V  c* ^$ ]0 S+ u7 T& w! Kk=1:l;
listV(k)=0;
) @- ~( O9 o% C+ w3 u3 v* {& mlistV(l)=l;
' I8 t$ d$ T4 Me=1;
while(e<1)
    min=inf;
1 s/ z; h' l/ W8 q4 Y, p    for i=1:l
2 x0 O) H+ }" |/ X5 J+ |' r7 J        if listV(i)==1
5 X7 M: h: E" o: p2 A6 I% a            for j=1:l
                if listV(j)==0 & min>Z(i,j)
* o0 Q: q/ o! n0 ?4 Q$ G5 m                    min=a(i,j);
                    b=a(i,j);
                    s=i;
                    d=j;
                end
2 k- g% z  w. ?. z- x            end
        end
    end
# I/ q( K/ w; T, K    listV(d)=l;
    distance(e)=b;
. _7 D7 p3 L. ]  L4 T1 Y8 t    source(e)=s;
; J9 _) A' A# L- w" e# @) ~. l    destinantion(e)=d;
    e=e+1;
end

T=[source;destination];
for g=1:e-1
9 L6 c% O2 n2 h) ?* p+ t8 m, I4 b. F    c(g)=Z(T(1,g),T(2,g));
1 n8 |  }( w$ \) P4 e' [end
c;
6 b, o$ ?1 x. G- Z& D

0 U9 \! B( B( o6 o2 T) Q) D

李芳