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

查看: 5183|回复: 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 }- @$ m* V% S- o; R& U2 d, @clc;

%==========================================================================) f1 f! i1 h$ B' H %输入你的对称矩阵0 `! m4 M2 v |/ V %==========================================================================

n=input('message'). e$ f2 g# U% X3 X1 R( K w=zeros(n); 3 E: [/ @; p& j( r+ Ow=[]; % 只需输一半,另一半用转置即可" r( c8 H5 x5 K+ G. e4 u w=w+w';

M=10000000; %M 表示无限大

for i=1:n2 B/ @2 w' h l; L) Q; X' ~ for j=1:n$ h* Z9 m8 ?* W1 c9 h( v. g, d if w(i,j)==0 & i~=j: O' g g; u# j. ^3 | m w(i,j)=M; R: _3 j/ U- c0 x9 C end k% W& T" W Q) Pend! t$ |- f) n2 K @ end! R2 @2 V6 d$ C& V7 V 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