QQ登录

只需要一步,快速开始

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

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

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

4

主题

4

听众

112

积分

升级  6%

该用户从未签到

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

新人进步奖

跳转到指定楼层
1#
发表于 2009-9-8 16:30 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
clear;
9 o- Z3 i- M! J# I$ p" J) c9 g7 l! rclc;$ O- o# ~0 ~7 f, Z1 Y5 S
M=10000;%无穷远距离
; v/ E6 ~) C: x3 Sa(1,:)=[0,50,M,40,25,10];
8 q! c6 Z9 n+ n. ^, pa(2,:)=[zeros(1,2),15,20,M,25];- J! h( d! B# v
a(3,:)=[zeros(1,3),10,20,M];
( C) m1 r$ Y" b. e. X' Oa(4,:)=[zeros(1,4),10,25];5 V% L3 W6 h7 h: k1 I
a(5,:)=[zeros(1,5),55];" L/ S1 w. B( t& N
a(6,:)=zeros(1,6);$ I& x: \# Z* v
a=a+a';%a66邻接矩阵,无向图
! _+ c( D- X: |pb(1:length(a))=0;pb(1)=1;%存放p,t标号信息# {2 s' L$ R# y
index1=1;%存放标号顶点顺序8 R! t& _# }. N# \
index2=ones(1,length(a));%存放始点到第i点最短通路中第i顶点前一顶点的序号+ A  M2 A9 f5 A2 }% Y2 X" h
d(1:length(a))=M;d(1)=0;%存放由始点到第i点最短通路的值
+ v8 Q( d, _3 V! Y* x9 t9 G: a& etemp=1;%算c1到其它点的最短路% P# L* g; X/ R& ?# j4 t
while sum(pb)<length(a)! Z$ f4 q: {# {6 r2 e5 S* Z2 k
   tb=find(pb==0);%开始算第tb个顶点的最短路
) x: J7 W  j8 y" _   d(tb)=min(d(tb),d(temp)+a(temp,tb));
0 t) c6 k! x, v/ b! W% w   tmpb=find(d(tb)==min(d(tb)));: R& V1 F: S2 }. c/ F! T
   temp=tb(tmpb(1));
- p5 l# O. t: H0 w9 W; \( c   pb(temp)=1;
1 A" T, S: J& T   index1=[index1,temp];# p/ Z2 W3 C0 U" H% c/ [
   index=index1(find(d(index1)==d(temp)-a(temp,index1)));
( x# D. `) n0 H: u   if length(index)>=2( R7 A/ F. F) h3 S& A/ k5 p
      index=index(1);
' H3 Q/ s* O  v  e; F; b   end
% \- g, ]5 g3 e9 q1 h: z! o  ]6 }   index2(temp)=index;
0 o! R2 z6 ^( ]1 Rend
" V0 }, @+ w6 E& t6 \d, index1, index2
4 ~2 A5 x8 g3 m8 Q# g# S
, o8 P0 j. ], U0 a从没加注释那一行就看不太懂了,求问啊,感激不尽!
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 04:03 , Processed in 3.347776 second(s), 57 queries .

回顶部