数学建模社区-数学中国»论坛 › 【科学软件论坛】数学建模 › MATLAB论坛 › Matlab GUIDE › Matlab版的最短路程序谁有？

查看: 5185|回复: 3

Matlab版的最短路程序谁有？

[复制链接]

字体大小: 正常放大

from911

56 主题	2 听众	110 积分

升级 5%

该用户从未签到

电梯直达

1^#

发表于 2004-12-31 10:31 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

给共享一下！谢谢！

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

xing1

0 主题	2 听众	57 积分

升级 54.74%

该用户从未签到

2^#

发表于 2005-1-6 16:32 |只看该作者 |招呼Ta 关注Ta

这里给你个floyd算法的代码。

clear; 8 G0 ?! H! q; C8 Aclc;

%==========================================================================. R% Y2 |5 U: q) Q %输入你的对称矩阵# Y- x- ]& Y" d& Y2 {: O! E) k+ W %==========================================================================

n=input('message')! c6 P# {5 O8 }! G/ v8 g" @* @ w=zeros(n);3 {+ b7 L9 g/ y w=[]; % 只需输一半,另一半用转置即可: P# Y: R9 s/ r2 ?. B w=w+w';

M=10000000; %M 表示无限大

for i=1:n" F. l/ g/ [8 v9 D for j=1:n3 w% U! ~9 m+ }: }+ m- d4 d) r if w(i,j)==0 & i~=j . P+ J7 Q2 T& s+ ~) ?! z: O w(i,j)=M; 0 U" @) Y+ f/ Y* K7 R" } end- P" a [6 t2 N- V3 Y end, j4 z* f( _8 X: [4 k6 N end % ?$ v6 A, }0 }* x7 O( s path=zeros(length(w));

for k=1:n

for i=1:n

for j=1:n

if w(i,j)>w(i,k)+w(k,j)

w(i,j)=w(i,k)+w(k,j);

path(i,j)=k;

end

w, path

你也可以参考： http://mathserver.sdu.edu.cn/html/sxjm/texts/chapter5/5_3.htm