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

李芳

function[T c]=Primf(Z)
2 n# z. R- ]6 F, M" k" k  q& @# D* \% 表示邻接矩阵
%c表示生成树的权和
+ C6 o5 r7 z7 r# s8 V( x% T表示生成树的边集合
# t5 o, d2 a2 zl=length(Z);
a(a==0)=inf;
k=1:l;
listV(k)=0;
5 ^4 T) Y, \; ]& ]4 c, RlistV(l)=l;
# s$ S3 U) q0 E2 S1 t; R% Me=1;
- Q* d7 M; x2 r5 n; n" a) m  lwhile(e<1)
    min=inf;
5 e. ~4 t; J; z3 v/ f; y    for i=1:l
. H( h# }. |( I( K( y        if listV(i)==1
/ y  M# @2 g! p/ a            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
: u9 }& l; y; R6 W7 C                    b=a(i,j);
                    s=i;
9 _) h5 ^8 t$ H# e7 O9 X( T  K                    d=j;
                end
: Q  i% w  y. W            end
: \; H4 f' m% s8 |* s        end
    end
    listV(d)=l;
    distance(e)=b;
    source(e)=s;
# q+ Y! `) B4 _) ^7 g    destinantion(e)=d;
* R; o4 u. P. y  U( g' L    e=e+1;
end
3 g, N: o& t7 ~9 R9 J) w
" |; ]9 s" j. M. F% h1 E$ PT=[source;destination];
: w  Y# m1 L8 J! D/ |for g=1:e-1
: ]6 _5 \# e8 y! \+ h  b4 V    c(g)=Z(T(1,g),T(2,g));
end
c;

. p" X. d- ^6 R: _" Q) a8 T. K! j/ q. z- Q

李芳