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

李芳

function[T c]=Primf(Z)
4 i* q9 C9 W2 U  V5 g/ l4 y% 表示邻接矩阵
%c表示生成树的权和
% T表示生成树的边集合
l=length(Z);
a(a==0)=inf;
. s$ d: q5 A1 x+ t. Z4 b8 Mk=1:l;
listV(k)=0;
* d4 h# E1 @/ R& e: D$ G' F  IlistV(l)=l;
e=1;
7 [6 `; m  d6 u+ F# E% Cwhile(e<1)
    min=inf;
8 u4 X8 A7 H! z! _" t    for i=1:l
6 g; }7 n+ N8 _! [5 r$ l/ x        if listV(i)==1
" |, _' F2 a* H. j+ p1 [; s8 A            for j=1:l
& @; K, z: N8 h8 ^9 A% ^                if listV(j)==0 & min>Z(i,j)
                    min=a(i,j);
                    b=a(i,j);
                    s=i;
                    d=j;
                end
; `" m1 j1 J$ `# ^) }! \2 m; y9 Z            end
" s+ x- n* y! v3 }        end
' U6 {5 Q7 Z: p: ^/ v) N8 @    end
    listV(d)=l;
    distance(e)=b;
    source(e)=s;
4 `9 m/ [! e2 z- ?( M    destinantion(e)=d;
; A2 a! I  l+ B9 ^6 n; |  }    e=e+1;
* f- e4 m: `  v6 f6 Y0 Yend

T=[source;destination];
! E+ M! C. c' efor g=1:e-1
    c(g)=Z(T(1,g),T(2,g));
end
c;
; `& B! I) n' a
) W& Q% \  m$ {* b; {
) V& w# v- ]1 m7 D% @( g

李芳