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

查看: 5235|回复: 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; & s" g7 `* j# M* `' t; u; K clc;

%========================================================================== 2 Q. I6 H) c3 i' y2 T1 z %输入你的对称矩阵$ W# M; A0 Q. s) B3 i- S, z %==========================================================================

n=input('message')8 X% R: b+ X! B2 C w=zeros(n);9 ^! ~6 l% [ d: m" I% R8 ~ w=[]; % 只需输一半,另一半用转置即可 + W2 i; L& a3 s9 ]; m1 z, H+ f* h4 Q& gw=w+w';

M=10000000; %M 表示无限大

for i=1:n* b: h/ I( a/ E5 E$ P6 n/ i for j=1:n9 G9 S. x: N m; G4 @; C" b; b if w(i,j)==0 & i~=j $ ]3 j8 f% H5 o& z$ Z4 S w(i,j)=M; 9 [ V6 I3 A- B end# M) K% Q/ S) t1 y( a- ? end ]2 I4 C1 ^8 q$ W3 R9 } end ! u$ C" ^+ z, H+ P 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