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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
  e3 z* \2 R  ^* E2 o8 m! R: c%c表示生成树的权和
% T表示生成树的边集合
2 ?1 R! }! s- ml=length(Z);
# P" H& J# u  Y9 i' La(a==0)=inf;
k=1:l;
/ T' [, A$ I  C& flistV(k)=0;
& i  T5 _$ P8 V* A& m7 [. [* RlistV(l)=l;
e=1;
  {5 E  k* |% x& ewhile(e<1)
    min=inf;
5 T+ c+ ?' a) F    for i=1:l
        if listV(i)==1
            for j=1:l
" }0 n& `6 c8 U; E. ?4 ~% M2 V! g                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
                    b=a(i,j);
                    s=i;
. z9 P  |8 ~! y                    d=j;
                end
            end
        end
    end
    listV(d)=l;
    distance(e)=b;
2 _$ }( U  c% l    source(e)=s;
: m" b' k: U/ O, N    destinantion(e)=d;
6 F, u1 a; {& X& Z6 d    e=e+1;
1 {" `9 k) [- }: p) i/ C4 q, |; mend
/ a8 K# i) M! q2 ]* ?, b4 S1 S
- U8 E# E6 \6 C5 K* ~+ eT=[source;destination];
5 w9 O  }) W. N$ I  sfor g=1:e-1
3 s6 H  z( }$ v8 {    c(g)=Z(T(1,g),T(2,g));
end
) P+ Q, G2 M" m4 ]' vc;


1 A$ T- o4 @# S$ q  J, a( J6 d) |3 `5 m

李芳