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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
%c表示生成树的权和
% T表示生成树的边集合
6 @+ i' L& ^9 k7 O# m3 c: f5 Bl=length(Z);
  U; b+ B' a- ~! G0 v1 O, l* ba(a==0)=inf;
( N, b$ L6 {1 X& H2 tk=1:l;
listV(k)=0;
listV(l)=l;
e=1;
while(e<1)
  [% s- X* j# I    min=inf;
2 d6 k. e! n8 o3 _/ P+ c    for i=1:l
2 d" J9 ?8 Y0 q3 ]/ {8 _        if listV(i)==1
, Q# ]! w% L2 d            for j=1:l
1 B: L. F- u/ \2 z& Q! v6 a8 `                if listV(j)==0 & min>Z(i,j)
  y5 `1 A) w9 R0 o; I! r                    min=a(i,j);
                    b=a(i,j);
! H3 A5 l5 Z! T' @2 U                    s=i;
9 A8 ]; z1 ^+ f$ C                    d=j;
0 ^. j+ Y5 ~6 U; @7 W2 C                end
            end
" L) ^% e$ ?' y/ o        end
6 V' W2 L2 t2 h    end
4 T8 m: Q5 O" u; y1 q8 H    listV(d)=l;
# P. G2 a: n4 m: Q3 I    distance(e)=b;
    source(e)=s;
+ z; Z. s' k  j' E" c    destinantion(e)=d;
6 ]  T5 _1 D; F* M5 m' I2 N( @    e=e+1;
' D+ C6 ]! N+ C* I3 K& Xend

" y1 F% z" X# |' K0 T7 n4 R6 kT=[source;destination];
9 |/ a$ K* f1 C' m4 ^( v# ffor g=1:e-1
    c(g)=Z(T(1,g),T(2,g));
end
c;


5 t4 A5 T. j9 j

李芳

1 o% [6 q, H" }# u+ ^4 d( v