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

李芳

function[T c]=Primf(Z)
( D# E7 f  {1 @1 A) P, `) j9 h1 U% s% 表示邻接矩阵
8 x, k/ X; y- k( K2 g1 s- W%c表示生成树的权和
% T表示生成树的边集合
4 T$ u* N" Y" ?' X! X! q" m& fl=length(Z);
, v8 x6 m: L( u" z, s% va(a==0)=inf;
0 L7 J6 m1 y2 t' ak=1:l;
! t& D' ~. P- B/ r6 @) PlistV(k)=0;
listV(l)=l;
( H* d# W% q: J+ L% ?1 }, j9 G2 se=1;
while(e<1)
/ a# c# x9 R( }# O$ t0 O, _    min=inf;
; X6 a; t* b  K; v* Q; |8 w: R+ J    for i=1:l
# w/ |- n# k1 c; T7 \        if listV(i)==1
            for j=1:l
                if listV(j)==0 & min>Z(i,j)
( ^* ~- C9 Z2 I+ R$ R& a7 n                    min=a(i,j);
                    b=a(i,j);
                    s=i;
                    d=j;
2 ~, E* N% F9 o: O; w                end
            end
! M, m/ m/ |: \' a" h# Z        end
    end
    listV(d)=l;
    distance(e)=b;
- T' B& m' w$ y    source(e)=s;
- c/ j" r6 l3 f* f. w3 d    destinantion(e)=d;
    e=e+1;
; `( Z* g. y6 F% f" N5 }# |/ v# Q/ Fend

2 [- K) R) d6 v% T" gT=[source;destination];
for g=1:e-1
6 k) E) c7 d3 W6 D1 ]* K    c(g)=Z(T(1,g),T(2,g));
end
c;

李芳