Dijkstra算法的Matlab程序

%Dijkstra最短路算法Matlab程序用于求从各点之间的最短路距离
%D为邻接矩阵需要输入
%d为s到其它各点最短距离
%pre记载了最短路径生成路线
clear all
clc
D=[0 6 inf inf 5 6 inf 5 inf
    6 0 9 inf inf 9 inf 3 inf
    inf 9 0 7 inf inf 4 inf inf
    inf inf 7 0 6 4 6 inf 3
    5 inf inf 6 0 5 inf inf 4
    6 9 inf 4 5 0 5 inf inf
    inf inf 4 6 inf 5 0 inf inf
    5 3 inf inf inf inf inf 0 inf
    inf inf inf 3 4 inf inf inf 0];%这是邻接矩阵
[mn]=size（D）;%m行n列，这里m=n=9
E=zeros（mn）;%E为任意两点间最短距离矩阵
for s=1:m
    %当s=1时，就是求1这个点到其他各个点的最短距离，同理，当s=2时，……=9时。
    d=inf.*ones（1m）;%初始化
    d（1s）=0;%s点到s点的最短距离为0
    ok=zeros（1m）;%初始化，用来记录已经求得最短路径的点
    pre=zeros（1m）;%初始化
    while length（find（ok==1））        minD=inf;
        for k=1:m
           if ok（k）==0&&minD>d（k）
               minD=d（k）;
               y=k;
           end
        end
        if minD==i