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

李芳

function[T c]=Primf(Z)
% 表示邻接矩阵
( [( w8 n0 E5 ?%c表示生成树的权和
9 n, ?9 ^. ~8 J) X2 i' l% T表示生成树的边集合
6 m+ ?- a; a; U, w# {- Al=length(Z);
$ v& y) e6 W( c  ba(a==0)=inf;
k=1:l;
listV(k)=0;
6 ?8 U" A$ P' F, U) k( \listV(l)=l;
e=1;
* ]- Z9 c. J+ w% N' Lwhile(e<1)
# l3 ?1 @. ~5 t9 G% V    min=inf;
: G( w9 d' E* n5 o; k$ [/ S8 m    for i=1:l
        if listV(i)==1
            for j=1:l
                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
& H1 t2 S/ V% y8 f, T3 M) R( t                    b=a(i,j);
                    s=i;
5 Y6 H& L7 E5 n' J                    d=j;
! O) y" u, |& v7 S! c8 E                end
+ r7 J" a+ l5 a% W9 q( [            end
, O0 r4 c1 }; x, N        end
    end
    listV(d)=l;
6 E+ ^; [1 {3 P9 o* R    distance(e)=b;
9 r" b5 [8 U: ^# w& v7 u    source(e)=s;
    destinantion(e)=d;
+ D; N, s' ?  k    e=e+1;
. L$ _# `6 r6 F4 [. Dend

T=[source;destination];
( d' ]) \( m, Sfor g=1:e-1
    c(g)=Z(T(1,g),T(2,g));
+ Z* n% U! o( \/ M. lend
c;
$ Y5 ~' l* Z$ a- w! S

) p2 f$ |, s2 [- j. L0 g7 d

李芳