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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
% T表示生成树的边集合
. p, U& J, u% ^& @l=length(Z);
; M) k2 T: f+ I/ J- sa(a==0)=inf;
k=1:l;
" B3 c* U- z4 C8 xlistV(k)=0;
listV(l)=l;
- ?8 l+ E" w% \e=1;
  S0 _3 D& |! U1 pwhile(e<1)
    min=inf;
5 R, ?  j- B% T    for i=1:l
; L- S! s8 i5 P- D# f        if listV(i)==1
            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
                    b=a(i,j);
( v2 K  f1 O' y! I/ ?" X                    s=i;
5 D" U- c" D5 o5 i* }                    d=j;
7 D, Q; i: ~; z+ Q                end
, @# Y/ t* ]- X2 ?            end
5 ]: S! Z$ v; ^5 j        end
    end
; J7 ]" M" g- E( a    listV(d)=l;
    distance(e)=b;
    source(e)=s;
, J$ J( Q7 i* ?2 l. Z1 l* F    destinantion(e)=d;
+ r, F. R7 u! z2 m    e=e+1;
end

T=[source;destination];
# P1 Z- g" R8 w  N4 l" Vfor g=1:e-1
5 ?/ R. J4 e0 I$ }: r    c(g)=Z(T(1,g),T(2,g));
end
/ m1 C4 e. H: ], G% e' Ac;

/ u2 Q8 A: \* w" P5 C/ f* a1 a3 @

李芳