dt.m

一个关于有向图最短路线的matlab程序

clear
x=[2 3 1;3 5 1;4 4 1;5 9 2;5 4 3;
6 5 2;6 3 3;6 1 4;7 5 3;7 7 4;8 1 5;8 8 6;9 5 5;
9 4 6;9 4 7;10 6 6;10 2 7;11 4 8;11 6 9;11 7 10;12 2 8;12 9 9;12 5 10;
13 1 11;13 2 12];
x1=x;y=[1 1 0;2 1 3;3 1 5;4 1 4]%初值
for k=5:13
I=find(x1(:,1)==k);%为节点K所在的行位置的列矩阵 
d=x1(I,2);m=x1(I,3);%d为节点K到对应节点的距离矩阵，m为K所对应节点的矩阵
mk=length(m);%为m的维数，同时也等于d和I的维数
clear mm
for i=1:mk
j=m(i);%j对应节点
mm(i,:)=find(y(:,1)==j);%找到对应j点在y中的行位置
end
[v,n]=min(d+y(mm,3));
y(k,:)=[k m(n) v];
end
z(1)=13;I=find(y(:,1)==13);m=y(I,2);
k=2;z(k)=m;
while m>1
k=k+1;
I=find(y(:,1)==m);
m=y(I,2);z(k)=m;
end
rood=z
Length=y(13,3)