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

李芳

function[T c]=Primf(Z)
4 c- `: @/ l/ g. E  G% 表示邻接矩阵
%c表示生成树的权和
% T表示生成树的边集合
l=length(Z);
6 Z( D- n0 h+ Ya(a==0)=inf;
k=1:l;
4 n3 d; |# c0 d$ t5 B1 |3 b' XlistV(k)=0;
/ w6 u/ U1 v2 j2 {& ZlistV(l)=l;
, g# @% O1 J8 }: ce=1;
! a% h# e' m  }* L& q+ Uwhile(e<1)
    min=inf;
    for i=1:l
) M2 f  R1 u$ G# w        if listV(i)==1
) T5 z6 m! a5 j3 r& H8 ?+ i            for j=1:l
                if listV(j)==0 & min>Z(i,j)
( E7 o, G/ v# P; \0 ~                    min=a(i,j);
                    b=a(i,j);
( z: S6 a" u6 m+ ?4 }. R$ h0 n                    s=i;
                    d=j;
: }1 B% f% n& ?7 z0 h0 ^                end
            end
5 D  D: k1 Q/ S6 y        end
    end
6 D! u7 k9 B) U: F4 h    listV(d)=l;
2 i) a  i; v) w. `    distance(e)=b;
    source(e)=s;
5 G! k- R9 |4 O- O( ~* h    destinantion(e)=d;
3 e3 X8 O3 L( H" s, Q) t- Z% O    e=e+1;
end

T=[source;destination];
8 C) F8 g; E/ h- D0 bfor g=1:e-1
) K) x4 ~2 o3 v    c(g)=Z(T(1,g),T(2,g));
: B9 [1 u9 W. h5 wend
) f% ~  C: P5 X8 ^4 G8 wc;
- h% {2 J5 X/ y5 m( w  H4 `- b% Q

  \  a) C% z( v) y9 _8 @

李芳

& P% |+ k$ }7 ~3 |9 a& b