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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
% T表示生成树的边集合
l=length(Z);
$ Y9 ^! ?( P* p" Ba(a==0)=inf;
+ ~8 A4 L/ @# T% \* ik=1:l;
listV(k)=0;
listV(l)=l;
% m4 Y& S  B/ {3 F! ]2 r4 Y$ j* M, Je=1;
/ U4 z5 u; O+ L, Q! swhile(e<1)
    min=inf;
    for i=1:l
! ?! p9 \/ n1 T' ?( q        if listV(i)==1
            for j=1:l
# n7 x, U# U  L4 u( O, F                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
" {& k6 c+ G% r5 H% P                    b=a(i,j);
) k* L& V0 A$ R                    s=i;
                    d=j;
                end
2 Q$ `3 G6 Z2 Y            end
        end
    end
$ z6 Y* [7 Q* w4 W) T' h* @    listV(d)=l;
    distance(e)=b;
- d  d4 u: L1 _4 ?1 Y: q    source(e)=s;
    destinantion(e)=d;
. {# _4 o5 V3 h1 ]- F! V/ N; {    e=e+1;
/ F' a7 \  I4 q# rend

T=[source;destination];
8 e+ U: c7 }% ^1 Tfor g=1:e-1
) w* b3 H4 Y8 U6 e8 f; ?$ m0 C    c(g)=Z(T(1,g),T(2,g));
end
7 @& g, t2 T6 a1 ]. Qc;

李芳