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

李芳

function[T c]=Primf(Z)
' e+ P! ]& z5 _% 表示邻接矩阵
4 }' w; B+ p+ m& L: Y4 J. e, I, i%c表示生成树的权和
9 W, I; _$ A+ ~, C% T表示生成树的边集合
l=length(Z);
a(a==0)=inf;
3 i& T( x3 ?1 d& Ik=1:l;
listV(k)=0;
) F4 J. w4 U; j% ^listV(l)=l;
e=1;
while(e<1)
    min=inf;
    for i=1:l
        if listV(i)==1
# W' t: u  c2 W: A            for j=1:l
                if listV(j)==0 & min>Z(i,j)
7 r. u6 G' v" p2 M! Z                    min=a(i,j);
                    b=a(i,j);
% t% E* \4 F- u, C                    s=i;
9 C6 U/ S( |! Q6 @7 U# Z, i                    d=j;
% f& g. T' t5 @1 y+ K5 f                end
3 \$ e% ~' a6 r' B% Y            end
        end
. ^1 N) q$ ~- Q5 g1 J! r    end
7 }7 o  m; v5 J8 S2 N    listV(d)=l;
1 s8 c! s& z# b5 ^& m$ B; v8 |  E    distance(e)=b;
! u7 Z. @2 [# h* t. U    source(e)=s;
3 n! E5 s$ r- @2 D/ a    destinantion(e)=d;
    e=e+1;
9 i; w3 t$ m" h/ w; w+ i& Lend
# }, Q3 K* S! {# R- F3 ?& \
T=[source;destination];
) A0 R2 D6 ]0 B  g/ x: P4 ~2 Yfor g=1:e-1
0 ?. J. X, u* p- c: F    c(g)=Z(T(1,g),T(2,g));
end
! L* Z/ P7 m  d5 K5 Oc;


9 g+ F+ `9 l0 p

李芳