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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
; }5 o+ Y( S( i) A0 Q6 Y% T表示生成树的边集合
l=length(Z);
a(a==0)=inf;
k=1:l;
# k' y& f* q$ w6 s% @listV(k)=0;
/ H/ k+ Y$ F" v, z# N# WlistV(l)=l;
e=1;
while(e<1)
    min=inf;
    for i=1:l
3 w( b) o+ }2 {. Q        if listV(i)==1
            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
                    b=a(i,j);
                    s=i;
, B- e- u& @4 y# y% ^" J: `6 ?& M                    d=j;
                end
            end
        end
    end
4 u9 g7 v  I3 l8 n( n/ C1 y6 l    listV(d)=l;
    distance(e)=b;
4 b! T8 O3 e* P    source(e)=s;
    destinantion(e)=d;
    e=e+1;
& q! x4 h3 P4 B6 ]* G# `+ ~" send

T=[source;destination];
+ O0 S6 r; X( j+ a% ^for g=1:e-1
( l: i8 R8 V, g; o    c(g)=Z(T(1,g),T(2,g));
: e! a& `# T$ C( p0 G4 p; send
6 K- y) z' B0 l0 ~1 D/ Mc;
- q2 O- q& h6 O4 P7 h

5 M  [- F; a$ |

李芳

. c% x- X) F/ f+ ]3 u0 f