QQ登录

只需要一步,快速开始

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

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

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

4

主题

4

听众

112

积分

升级  6%

该用户从未签到

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

新人进步奖

跳转到指定楼层
1#
发表于 2009-9-8 16:30 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
clear;3 I0 T. R4 l% b+ N8 v
clc;
; X$ v  o" T2 D+ Z" k, \% w9 b9 C- VM=10000;%无穷远距离
8 j  S& n* y. x# k5 ]a(1,:)=[0,50,M,40,25,10];
( v$ A; b9 k5 l  x3 Z1 r- ca(2,:)=[zeros(1,2),15,20,M,25];
5 O2 [( B) m5 h' b6 F* Na(3,:)=[zeros(1,3),10,20,M];& @6 w  O0 _$ r! e& C( ]1 Y3 a
a(4,:)=[zeros(1,4),10,25];
7 t/ i4 K4 E4 R- O  S, `a(5,:)=[zeros(1,5),55];$ D" h% L# n1 Y2 P: |
a(6,:)=zeros(1,6);
: [6 x1 @" h% l  o# P& R7 [a=a+a';%a66邻接矩阵,无向图
0 r5 L7 U$ y6 w# Tpb(1:length(a))=0;pb(1)=1;%存放p,t标号信息
+ H  x( Y0 W* Q& |& [0 ^7 A: ?index1=1;%存放标号顶点顺序
' v! A* O8 g: w8 N/ O7 v! l4 B6 uindex2=ones(1,length(a));%存放始点到第i点最短通路中第i顶点前一顶点的序号
: e0 ~$ p* F$ Fd(1:length(a))=M;d(1)=0;%存放由始点到第i点最短通路的值
, f8 G, u' F! G* Y3 Xtemp=1;%算c1到其它点的最短路
- Q7 I0 M; N: X, Fwhile sum(pb)<length(a)
6 b  e8 q  N; B   tb=find(pb==0);%开始算第tb个顶点的最短路) b8 M  I6 {4 F
   d(tb)=min(d(tb),d(temp)+a(temp,tb));
$ `: C: E; P; S! e9 r- ~   tmpb=find(d(tb)==min(d(tb)));! S9 M! X$ L; L9 F* a
   temp=tb(tmpb(1));
6 d% r* H/ m- Y8 \6 j   pb(temp)=1;
1 b# J! K9 {5 H5 |# X8 Y9 |; z   index1=[index1,temp];
  j; Y1 |( |$ y0 K   index=index1(find(d(index1)==d(temp)-a(temp,index1)));
5 [9 P6 k) ]: o+ U+ Y+ Y   if length(index)>=2# U7 Q# @* M; I/ Z' O0 `& X
      index=index(1);
8 m5 o* z- E  [  y$ t   end
0 C6 w7 g$ c2 C+ Y' D: J   index2(temp)=index;. {9 i& [# x. C# e0 d4 Z) y
end5 h& l( @6 C/ D' h2 }8 q
d, index1, index2 ' k3 ?, ~4 Y- d# v* M, d; \

+ v$ q5 r4 _5 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-7-10 11:30 , Processed in 0.412803 second(s), 57 queries .

回顶部