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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
' q; L7 u3 q3 S# Q% T表示生成树的边集合
l=length(Z);
+ _, L( e( b1 C6 o: R- Ga(a==0)=inf;
k=1:l;
listV(k)=0;
listV(l)=l;
e=1;
while(e<1)
    min=inf;
    for i=1:l
" c. _" x/ k! x6 m/ ^& x" r: n) r        if listV(i)==1
+ X4 _" K, p9 Y( f            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
+ V- o' u: ~" h' y; O) u1 T                    b=a(i,j);
                    s=i;
                    d=j;
                end
6 ^  ]2 E/ H6 i; Q            end
        end
    end
    listV(d)=l;
+ l$ C( L# u2 F    distance(e)=b;
    source(e)=s;
    destinantion(e)=d;
, l9 Y! U' d* B3 X# n  r) I4 R) s3 _    e=e+1;
end

T=[source;destination];
8 K  U5 v9 Q" ]' l, [5 C" {for g=1:e-1
/ E: h# ], {4 N7 p6 l9 K0 n' m6 W    c(g)=Z(T(1,g),T(2,g));
* F% ?) S+ I9 n+ L0 A2 C$ Y6 B6 |# lend
c;
( `; s4 ?% A3 R  o2 q: l

  ?/ g3 G: P8 _# E2 ]; k- K5 h

李芳