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

查看: 5212|回复: 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; # w/ u9 |& Y. L" l- Y# vclc;

%==========================================================================3 j; O2 x5 C: p6 n% N: P0 v) q %输入你的对称矩阵' N; m% w' i6 v. n %==========================================================================

n=input('message')& g+ a. ^9 x2 M5 s9 y" ^! d' V w=zeros(n); , C7 a B) |" \/ z2 m" ^w=[]; % 只需输一半,另一半用转置即可 ' c( I+ e j. g7 j$ N# J" `* Aw=w+w';

M=10000000; %M 表示无限大

for i=1:n ! j& D% t' B) b7 c! E6 ?) ]+ c for j=1:n2 {9 s- p/ g- | if w(i,j)==0 & i~=j! Q! J: V. y9 _& t" M1 c* C+ w9 l w(i,j)=M; $ M. @+ S- }0 t% f8 _ end + y; V! j& b$ f+ aend+ z1 h1 M& |4 K9 S4 {# S/ ` end" k6 |$ s7 F+ r6 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