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

查看: 5277|回复: 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; # m9 [7 S' ` [9 d2 E& f I" X clc;

%========================================================================== _1 _6 l" h+ D. d Q( X4 [; h- J %输入你的对称矩阵; f ~* M i2 ]6 }' R* f %==========================================================================

n=input('message')" O8 b$ @4 t# H w=zeros(n);2 ^8 {& e" E3 e w=[]; % 只需输一半,另一半用转置即可7 j0 z# q; N( r+ U4 P V w=w+w';

M=10000000; %M 表示无限大

for i=1:n% [; U4 L' g+ D. l9 i+ f" a; [/ N for j=1:n W7 q$ K/ e8 ~ if w(i,j)==0 & i~=j7 F+ e3 \. z1 k7 @4 | w(i,j)=M; - `' S* q0 W. ]- d end. D [* n4 y$ F- [ end # D& d+ n7 b+ v3 jend $ L& X/ Y5 e( x2 H1 d+ R 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