QQ登录

只需要一步,快速开始

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

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

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

4

主题

4

听众

112

积分

升级  6%

该用户从未签到

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

新人进步奖

跳转到指定楼层
1#
发表于 2009-9-8 16:30 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
clear;
. H1 E* }7 [$ ^6 a. V0 Wclc;+ f- V2 `/ L: s9 l' `
M=10000;%无穷远距离9 i- f  X0 f4 l) y
a(1,:)=[0,50,M,40,25,10];1 v; o: r* X: U2 N' t# i9 n0 f
a(2,:)=[zeros(1,2),15,20,M,25];
9 X; T& W. U8 ^, Fa(3,:)=[zeros(1,3),10,20,M];+ E4 q& u/ G5 l
a(4,:)=[zeros(1,4),10,25];
; m+ k0 I+ Z9 J! wa(5,:)=[zeros(1,5),55];7 o6 y2 N0 Y: H. P8 t
a(6,:)=zeros(1,6);2 X! B7 x. v3 d2 S
a=a+a';%a66邻接矩阵,无向图
8 d: l5 D# e, y$ s) [pb(1:length(a))=0;pb(1)=1;%存放p,t标号信息4 d) v& R/ U) X# z8 _/ u! R
index1=1;%存放标号顶点顺序0 N- f( Q, z0 U) P$ e7 e0 G1 y0 U
index2=ones(1,length(a));%存放始点到第i点最短通路中第i顶点前一顶点的序号% V- s2 z2 C+ x1 y3 a7 G
d(1:length(a))=M;d(1)=0;%存放由始点到第i点最短通路的值/ J: u) j+ ?: E# v, m9 a% N2 C
temp=1;%算c1到其它点的最短路
) `  L$ b  `0 C: c* L7 owhile sum(pb)<length(a)
: |/ y4 m5 L7 G6 _0 U6 e) c   tb=find(pb==0);%开始算第tb个顶点的最短路
3 |) ^, G" X- ~) M5 W% Q   d(tb)=min(d(tb),d(temp)+a(temp,tb));# k3 Z8 h3 w; \$ Z& o9 l0 l3 R) V
   tmpb=find(d(tb)==min(d(tb)));
4 y& G9 b8 {/ W9 _2 D4 J   temp=tb(tmpb(1));
5 q  o! e: j+ n+ _9 a   pb(temp)=1;" x/ p/ |9 [2 b. y0 p
   index1=[index1,temp];
: v8 a8 l, I+ p4 g   index=index1(find(d(index1)==d(temp)-a(temp,index1)));* Y+ z/ |6 K% J
   if length(index)>=2/ E6 L" P8 b8 W. T5 ~, V3 q
      index=index(1);' A# w" ^+ U9 o/ i# \0 k, B7 W9 T
   end; j: R  x4 W, p3 e3 y( w
   index2(temp)=index;
% o, j5 H! X# \$ j# T* i* Z+ _1 m  eend
, [" C7 d. Y2 [# m+ ~2 [2 rd, index1, index2
% F8 @4 s6 a8 E5 ?. u
( D% {& z. ^$ E+ R从没加注释那一行就看不太懂了,求问啊,感激不尽!
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 03:16 , Processed in 0.449994 second(s), 57 queries .

回顶部