下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、*最长路function l,t=dijkstra_long(A,v)n=length(A);V=1:n;s=v;l=A(v,:);t=v.*ones(1,n);ss=setdiff(V,s);nn=length(ss);for j=1:n-1 k=ss(1); for i=1:nn if l(k)l(ss(i)&l(ss(i)=inf k=ss(i); l(k)=l(ss(i); end end if l(k)=inf break; else s=union(s,k); ss=setdiff(V,s); nn=length(ss); end if length(s)=n break; els
2、e for i=1:nn if l(ss(i)=inf l(ss(i)=0; end for m=1:nn if l(ss(i)l(ss(m)+A(ss(m),ss(i)&A(ss(m),ss(i)=inf l(ss(i)=l(ss(m)+A(ss(m),ss(i); t(ss(i)=ss(m); end end if l(ss(i)l(ss(i) k=ss(i); l(k)=l(ss(i);%在当前一行距离中取最小值 end end if l(k)=inf%如果当前行最小值是无穷大,则结束 break; else%否则k点的最短路找到 s=union(s,k); ss=setdiff(V,s); nn=length(ss); end if length(s)=n%全部点的最短路都找到 break; else for i=1:nn%以k为生长点,如果通过k点会更短,则更改当前最短距离 if l(ss(i)l(k)+A(k,ss(i) l(ss(i)=l(k
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2026年正规版艺术品交易代理合同协议
- 2026年法律硕士联考备考全解析-法条解读与案例分析
- 会计基础知识试题及答案
- 2026年蚂蚁集团校招笔试高频题
- 2026年设计师作品集评分标准与备考资料
- 2026年情书歌曲说课稿幼儿园
- 2026年仓储货物入库合同协议
- 2026年财务管理师考试冲刺卷
- 2026年职业教育竞赛活动方案
- 2026年用电常识及安全知识
- 广师大环境学概论课件第4章 自然资源的利用与保护
- 玉米施肥技术课件
- 护理礼仪与人际沟通说课
- 巡察整改培训课件
- 酒店业务外包服务方案投标文件(技术方案)
- 政法委遴选笔试真题及答案详解
- GA 68-2024警用防刺服
- 霍乱防控知识试题及答案
- T/CSMT-KJ 001-2022超薄均热板性能测试方法
- 《食道癌基础知识》课件
- 酒店包厢服务流程培训
评论
0/150
提交评论