Dijkstra、Floyd算法Matlab_Lingo实现

上传人:回**** 文档编号:124319955 上传时间:2022-07-24 格式:DOC 页数:11 大小:42KB
收藏 版权申诉 举报 下载
Dijkstra、Floyd算法Matlab_Lingo实现_第1页
第1页 / 共11页
Dijkstra、Floyd算法Matlab_Lingo实现_第2页
第2页 / 共11页
Dijkstra、Floyd算法Matlab_Lingo实现_第3页
第3页 / 共11页
资源描述:

《Dijkstra、Floyd算法Matlab_Lingo实现》由会员分享,可在线阅读,更多相关《Dijkstra、Floyd算法Matlab_Lingo实现(11页珍藏版)》请在装配图网上搜索。

1、Dijkstra算法Matlab实现。%求一种点到其他各点旳最短途径function min,path=dijkstra(w,start,terminal)%W是邻接矩阵应用举例:edge=2,3,1,3,3,5,4,4,1,7,6,6,5,5,11,1,8,6,9,10,8,9, 9,10;.3,4,2,7,5,3,5,11,7,6,7,5,6,11,5,8,1,9,5,11,9,8,10,9;.3,5,8,5,6,6,1,12,7,9,9,2,2,10,10,8,8,3,7,2,9,9,2,2;n=11; weight=inf*ones(n,n);for i=1:n weight(i,i)

2、=0;endfor i=1:size(edge,2) weight(edge(1,i),edge(2,i)=edge(3,i);enddis,path=dijkstra(weight,1,11)%start是起始点%terminal是终结点%min是最短途径长度%path是最短途径n=size(w,1); label(start)=0; f(start)=start;for i=1:n if i=start label(i)=inf; endends(1)=start; u=start;while length(s)(label(u)+w(u,v) label(v)=(label(u)+w(u

3、,v); f(v)=u; end end end v1=0; k=inf; for i=1:n ins=0; for j=1:length(s) if i=s(j) ins=1; end end if ins=0 v=i; if klabel(v) k=label(v); v1=v; end end end s(length(s)+1)=v1; u=v1;endmin=label(terminal); path(1)=terminal;i=1; while path(i)=start path(i+1)=f(path(i); i=i+1 ;endpath(i)=start;L=length(p

4、ath);path=path(L:-1:1);Floyd算法:matlab程序:%floyd算法,function D,path,min1,path1=floyd(a,start,terminal)%a是邻接矩阵%start是起始点%terminal是终结点应用举例:a= 0,50,inf,40,25,10 50,0,15,20,inf,25 inf,15,0,10,20,inf 40,20,10,0,10,25 25,inf,20,10,0,55 10,25,inf,25,55,0;D, path=floyd(a) %D是最小权值表%path是最短路线表。D=a;n=size(D,1);pa

5、th=zeros(n,n);for i=1:n for j=1:n if D(i,j)=inf path(i,j)=j; end endendfor k=1:n for i=1:n for j=1:n if D(i,k)+D(k,j)1;for(dian(i)|i#gt#1:sum(dian(j)|j#ne#i:x(j,i)=1);for(dian(i)|i#gt#1:for(dian(j)|j#ne#i#and#j#gt#1:level(j)level(i)+x(i,j)-(n-2)*(1-x(i,j)+(n-3)*x(j,i);for(dian(i)|i#gt#1:level(i)n-1-(n-2)*x(1,i);for(dian(i)|i#gt#1:bnd(1,level(i),100000);for(link:bin(x);

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!