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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
% i2 g5 M! e' c% T表示生成树的边集合
l=length(Z);
a(a==0)=inf;
k=1:l;
listV(k)=0;
listV(l)=l;
e=1;
* Q$ M- r3 Q' t( Twhile(e<1)
1 f# t3 K; P) o    min=inf;
    for i=1:l
        if listV(i)==1
2 g0 I$ j# f2 I) d2 l            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
; C! g8 l' }. t; x7 `                    b=a(i,j);
                    s=i;
$ m- v$ j# @% g  a, ~, e  H+ u/ C                    d=j;
  X7 K# b% o/ B2 X; |                end
+ R6 b, m3 ?" K5 ?5 f2 L            end
        end
    end
    listV(d)=l;
    distance(e)=b;
    source(e)=s;
    destinantion(e)=d;
    e=e+1;
end
( p/ r6 c' G, W9 o
/ _2 X, q. H9 C6 w0 F. w8 hT=[source;destination];
for g=1:e-1
. K) C4 b4 b5 X! [* R5 D    c(g)=Z(T(1,g),T(2,g));
* `$ }9 M/ I! u% C' R- ]end
6 f: m  o% E, Z6 w/ @  fc;
+ D, D1 M6 r% A. R

李芳