QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 5237|回复: 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%

该用户从未签到

新人进步奖

这里给你个floyd算法的代码。

clear; 0 G. H) n/ R0 L+ I: t. g) l1 Oclc;

%========================================================================== 5 F* ?# b& u q1 V; V# J* S2 J %输入你的对称矩阵 1 w2 G/ e+ n- `% `+ @; n%==========================================================================

n=input('message') + e/ E2 Z, B! o7 w7 ww=zeros(n); 8 l E/ b4 ]7 m; O+ W3 A2 qw=[]; % 只需输一半,另一半用转置即可 7 Q4 M1 Z" Y0 p$ F# d1 H4 ~+ Xw=w+w';

M=10000000; %M 表示无限大

for i=1:n3 K/ S8 i! }! T& `; ~# k/ |* T; e for j=1:n1 N/ I, p* G$ ?" [, K2 K if w(i,j)==0 & i~=j1 f& D; D5 y3 W+ c3 [ w(i,j)=M; 0 z" v5 N4 T8 C9 T4 E end 6 j! A8 K( _; P) |* pend " W1 u2 u% B, Z) x" |0 {end , O- Z8 C% T9 B( f8 Q8 h$ {$ \ 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

end

end

end

w, path

你也可以参考: http://mathserver.sdu.edu.cn/html/sxjm/texts/chapter5/5_3.htm

回复

使用道具 举报

from911        

56

主题

2

听众

110

积分

升级  5%

该用户从未签到

回复

使用道具 举报

from911        

56

主题

2

听众

110

积分

升级  5%

该用户从未签到

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-7-11 09:53 , Processed in 0.322847 second(s), 67 queries .

回顶部