QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 2660|回复: 1
打印 上一主题 下一主题

求助:dijkstra的matlab程序后一段看不懂...

[复制链接]
字体大小: 正常 放大
athenaeee 实名认证       

4

主题

4

听众

112

积分

升级  6%

该用户从未签到

自我介绍
大家好!请多多指教~

新人进步奖

跳转到指定楼层
1#
发表于 2009-9-8 16:30 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
clear;
6 e! [. ?1 B. p4 u% uclc;
+ {/ x, A! \- }) D/ |, |M=10000;%无穷远距离
$ y# e" [( Q/ |; fa(1,:)=[0,50,M,40,25,10];
0 H9 ], ?8 O9 h6 Qa(2,:)=[zeros(1,2),15,20,M,25];
3 T6 F: j0 W2 Va(3,:)=[zeros(1,3),10,20,M];
, o! a, c$ M; u2 T* D5 fa(4,:)=[zeros(1,4),10,25];9 d- @7 y2 \, A8 a% G+ ^
a(5,:)=[zeros(1,5),55];
0 p' i9 S' ]+ ^3 t+ a1 u- ^a(6,:)=zeros(1,6);& W& f( l% J% w
a=a+a';%a66邻接矩阵,无向图
! }/ F$ W0 M* [: N. X' d4 Q/ zpb(1:length(a))=0;pb(1)=1;%存放p,t标号信息
, z: Q& N( S: {# gindex1=1;%存放标号顶点顺序
8 o" u8 m, Y5 O9 x/ X9 |index2=ones(1,length(a));%存放始点到第i点最短通路中第i顶点前一顶点的序号; ~$ }7 b( T) ~9 }0 A7 U
d(1:length(a))=M;d(1)=0;%存放由始点到第i点最短通路的值" v) [& Q+ g7 C" C0 T; d
temp=1;%算c1到其它点的最短路
& c0 m+ d& n, kwhile sum(pb)<length(a)3 u9 `5 v/ s" O
   tb=find(pb==0);%开始算第tb个顶点的最短路  g$ p+ P6 O( s# `/ l+ ^4 T
   d(tb)=min(d(tb),d(temp)+a(temp,tb));
9 ^. Z+ K; `% f2 K6 }6 p   tmpb=find(d(tb)==min(d(tb)));, O) x& u' g( t
   temp=tb(tmpb(1));+ N6 G1 {* R2 ~& y( q
   pb(temp)=1;" G" n8 e& ]& r9 n, s
   index1=[index1,temp];
, b4 q% ]" R6 ~0 x$ \+ G   index=index1(find(d(index1)==d(temp)-a(temp,index1)));
) Y2 ~" h5 E9 l! ]+ N* y' }5 P   if length(index)>=2
. X0 t4 D9 m4 U( C5 C$ ~      index=index(1);
* r5 B! q1 O% Z8 ^   end( l+ g8 `& k0 j: T
   index2(temp)=index;
* w3 H' i; \+ a% N: I! _2 Pend3 k2 k3 t; Z# e: k
d, index1, index2
6 a% m) D$ s7 [3 w0 S# y/ Z: |5 B5 B/ B# P8 d
从没加注释那一行就看不太懂了,求问啊,感激不尽!
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
athenaeee 实名认证       

4

主题

4

听众

112

积分

升级  6%

该用户从未签到

自我介绍
大家好!请多多指教~

新人进步奖

回复

使用道具 举报

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

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

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

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

蒙公网安备 15010502000194号

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

GMT+8, 2026-8-25 09:19 , Processed in 0.561898 second(s), 56 queries .

回顶部