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

李芳

function[T c]=Primf(Z)
& x0 p& l9 l& n% h+ g9 f, W% 表示邻接矩阵
! \3 C5 C% {- W" ]  s%c表示生成树的权和
. z" a: `7 k" z$ i% T表示生成树的边集合
2 O% j2 `) Y' q+ t4 x8 g% D+ ]9 j) \l=length(Z);
a(a==0)=inf;
k=1:l;
' I+ i4 p2 ~, U! g2 {listV(k)=0;
listV(l)=l;
e=1;
7 N4 {  Y- Y; }0 u0 a  Dwhile(e<1)
    min=inf;
    for i=1:l
% o  [% i% u) |9 Z3 k5 D1 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);
                    s=i;
                    d=j;
6 ^. v# j4 L* V  |7 V                end
            end
        end
    end
    listV(d)=l;
- K1 j, l- b# g6 ?; d( Q' N    distance(e)=b;
; x" O  v5 T  k0 s% `    source(e)=s;
7 u; T! F% i# ^7 b* @% y    destinantion(e)=d;
3 e) w% \( Q8 }0 x    e=e+1;
2 j6 R# J' C4 W9 K: l" T7 ?end

& \8 e- e1 c0 J# J% Q5 R) NT=[source;destination];
for g=1:e-1
. o. E& j- b. a, F$ {    c(g)=Z(T(1,g),T(2,g));
6 h* e% _1 Z% f, F- `8 rend
6 O" Z+ Y8 T# Gc;

" p. R9 L, L3 ]6 \
( f, q/ j# C- b  U+ _5 p5 R

李芳