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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
% T表示生成树的边集合
l=length(Z);
( U& ^8 b7 C! Y! q2 X6 j* la(a==0)=inf;
k=1:l;
" |' h- _$ q" T3 c0 ^" |* Q0 clistV(k)=0;
listV(l)=l;
2 z2 c: X1 T# T. r' N5 `+ me=1;
+ T$ f6 }* b7 n. Q* f: {9 rwhile(e<1)
" |9 Z9 t8 ^" d! r    min=inf;
    for i=1:l
        if listV(i)==1
) K7 p0 R4 W2 H' X* _) P: I            for j=1:l
                if listV(j)==0 & min>Z(i,j)
5 e( k* x$ w7 o' [# ~7 F                    min=a(i,j);
  O" @* |3 z5 A* d  u' z) d3 Q/ C                    b=a(i,j);
                    s=i;
: r& y1 \6 M$ F5 Y. d( Z  h1 l                    d=j;
                end
: p% F/ A- G* S4 H            end
% ~- f( c. V1 E) @2 p  @        end
  _7 k4 |4 N4 t" w- R$ X    end
* n5 ?7 ^8 C1 M5 o8 q8 Z( l    listV(d)=l;
" b1 Z) _8 y- a& x5 M    distance(e)=b;
. J3 i# U6 V$ Y: N0 p    source(e)=s;
8 D, S1 y. t/ Y. @! H' E! O" u+ H    destinantion(e)=d;
' N$ _' a  j4 l- l    e=e+1;
end
0 S5 M- D& n3 h3 F
T=[source;destination];
' x( y3 c# b+ F- `for g=1:e-1
0 @, t# \, v" C& t6 j) p0 ?    c(g)=Z(T(1,g),T(2,g));
end
2 ?& G4 s) P4 V1 @4 ]1 @: Oc;

李芳