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

查看: 5300|回复: 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; 4 Q( b Z2 Q0 ~! U# o. @7 ~2 Oclc;

%==========================================================================' v2 j- w2 Q5 B u1 x. ? %输入你的对称矩阵- \" x) \1 n1 u4 h; z %==========================================================================

n=input('message')3 U4 H* R/ ?7 T2 L4 X7 y6 g w=zeros(n); 6 Q8 V" S. r: `; ow=[]; % 只需输一半,另一半用转置即可% g, `: i* k7 _2 H3 I w=w+w';

M=10000000; %M 表示无限大

for i=1:n6 x" o! l$ E C U: i for j=1:n6 R/ q9 o0 _" I$ m0 A8 R8 P1 g if w(i,j)==0 & i~=j3 G, `5 P8 O- Y p, @ d2 W9 j w(i,j)=M; ( J9 e) `2 _# o0 C end+ g5 Y& X$ Y D. U8 l$ n end9 ~; F* L% I! `6 {9 J& q/ _6 ~ end# ~" b& t5 `# A' B" j 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