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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
# R2 M5 ^- ~' C+ H' {2 `%c表示生成树的权和
% T表示生成树的边集合
l=length(Z);
a(a==0)=inf;
, ?! S* O, K" Z5 D  qk=1:l;
5 Y3 ~& D9 C3 \' C, ]# S, e. NlistV(k)=0;
listV(l)=l;
e=1;
while(e<1)
    min=inf;
  a9 Y7 x% L5 L. r6 Q. ?1 X    for i=1:l
        if listV(i)==1
            for j=1:l
1 ?. r  Y5 E( ]( h  y# {( _. p* }                if listV(j)==0 & min>Z(i,j)
- }% ?. G. z$ w$ u( \4 @9 Y                    min=a(i,j);
7 K; c. \8 D$ X3 @- @8 z& l                    b=a(i,j);
, P, h/ i# s5 p% n( p                    s=i;
- i% Y% {) S0 o+ _, s8 M( L( L                    d=j;
. ]- a/ i& r* ?, @5 X                end
9 m  ~$ \# F7 J3 a9 f            end
        end
    end
8 u0 k5 A# v6 f/ ?& t8 j6 S5 O  u    listV(d)=l;
0 B3 J5 h- y$ _7 ~' e    distance(e)=b;
' V. e, H+ C) P8 s+ r    source(e)=s;
    destinantion(e)=d;
" g9 F* |. n$ [- k+ }2 P+ a  ?    e=e+1;
end
; m" w! I- _, w# _. j( m
T=[source;destination];
1 r% E) }$ r4 ^6 b& k8 s+ [for g=1:e-1
    c(g)=Z(T(1,g),T(2,g));
0 B2 v; a6 v+ y0 ~end
c;
# x  e; P* L' K$ Z5 n$ R

李芳

8 P8 H6 J$ V+ |6 Q9 D% d& u. ]  K