基于matlab Dijkstra算法的实现

zzh121300

function [l,z]=Dijkstra(W)
. X- h7 n" P' X7 g9 s( F" Rn = size (W,1);
for i = 1 :n
    l(i)=W(1,i);
$ k% z" Q  J+ H1 u' N1 i" F1 b    z(i)=1;
end
( ?( r6 X) V$ k& L! Vi=1;
while i<=n
, v7 M9 o- x2 }/ A0 I7 T: N    for j =1 :n
        if l(i)>l(j)+W(j,i)
            l(i)=l(j)+W(j,i);
; A- w! b. L( n9 O7 z            z(i)=j;
8 p  n8 L" L& S& v# t8 G/ Z/ R            if j                i=j-1;
0 ]- f( {$ g" b6 u% C9 W7 g, D            end
        end
( Y9 a7 l$ ]* q; a. N/ {/ F; A5 ]    end
    i=i+1;
end
% W =[ 0     2     1     8   Inf   Inf   Inf   Inf
%     2     0   Inf     6     1   Inf   Inf   Inf
5 Y$ d  p* ~& K' b: I" t%      1   Inf     0     7   Inf   Inf     9   Inf
7 I7 p9 L' r  l( p& b+ o%      8     6     7     0     5     1     2   Inf
# A( }: k% E' C4 g  {%    Inf     1   Inf     5     0     3   Inf     9
%    Inf   Inf   Inf     1     3     0     4     6
%    Inf   Inf     9     2   Inf     4     0     3
%    Inf   Inf   Inf   Inf     9     6     3     0  ];