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

李芳

function[T c]=Primf(Z)
5 c: n, q' l( J" F$ N% 表示邻接矩阵
3 E" I- T' c7 d3 j' r8 s9 x, C%c表示生成树的权和
* a7 C, f" p4 Q) \' x+ e% T表示生成树的边集合
l=length(Z);
& M# |( Z) `  d* o- Wa(a==0)=inf;
7 w3 R9 l& q) A' e5 l) gk=1:l;
) {! x+ t( H- M. t6 i2 clistV(k)=0;
, L2 Y3 ?1 D" m2 k, c4 @listV(l)=l;
- C9 a( F7 i/ Z) x0 \: F, j$ v" ~e=1;
while(e<1)
4 H! F$ i  e0 z    min=inf;
2 e6 ]4 M1 j0 M0 Z  o# I    for i=1:l
        if listV(i)==1
5 X, G4 J6 C4 S: J$ _0 g            for j=1:l
                if listV(j)==0 & min>Z(i,j)
! j! t" i. O- Y! x                    min=a(i,j);
: P5 S2 }- ?1 ^  ~6 t, k5 c$ w                    b=a(i,j);
                    s=i;
$ @) N* d% m* K" ]                    d=j;
                end
1 v7 Y3 X/ X9 G+ g; j            end
. d0 j6 R, A2 `$ z4 [( }        end
' _# A% L* K% i  s- ]  Y0 x$ l    end
    listV(d)=l;
- F% o* F, |2 O# W7 B" O    distance(e)=b;
: q! L( f, F- `( v4 E8 X    source(e)=s;
$ Y1 @; A9 O4 h4 O5 L% w' s/ C% m    destinantion(e)=d;
$ d; S9 J# G$ p3 e" S    e=e+1;
end

T=[source;destination];
$ n: Y2 R7 F, f& pfor g=1:e-1
3 [3 T3 v& c" \- A; p, n- l    c(g)=Z(T(1,g),T(2,g));
$ m5 {4 ~9 V2 p2 aend
5 N5 c$ g/ l' o/ Jc;

4 Q4 N# l: Y4 i

李芳

# F6 V# J, n" N7 P, n2 G% H