2602 最短路径问题Dihstra算法
2018-06-17 22:50:46来源:未知 阅读 ()
平面上有n个点(n<=100),每个点的坐标均在-10000~10000之间。其中的一些点之间有连线。若有连线,则表示可从一个点到达另一个点,即两点间有通路,通路的距离为两点间的直线距离。现在的任务是找出从一点到另一点之间的最短路径。
第一行为整数n。
第2行到第n+1行(共n行),每行两个整数x和y,描述了一个点的坐标。
第n+2行为一个整数m,表示图中连线的个数。
此后的m行,每行描述一条连线,由两个整数i和j组成,表示第i个点和第j个点之间有连线。
最后一行:两个整数s和t,分别表示源点和目标点。
仅一行,一个实数(保留两位小数),表示从s到t的最短路径长度。
5
0 0
2 0
2 2
0 2
3 1
5
1 2
1 3
1 4
2 5
3 5
1 5
3.41
1 #include<iostream> 2 #include<cstdio> 3 #include<cstring> 4 #include<cmath> 5 using namespace std; 6 double db_maxn=127; 7 double maxn=127; 8 struct node 9 { 10 double x; 11 double y; 12 }a[1001]; 13 double dis[1001]; 14 int vis[1001]; 15 int n; 16 double map[101][101]; 17 void Dijkstra(int u) 18 { 19 memset(vis,0,sizeof(vis)); 20 for(int i=1;i<=n;i++) 21 { 22 dis[i]=map[u][i]; 23 } 24 dis[u]=0; 25 vis[u]=1; 26 for(int i=1;i<n;i++) 27 { 28 double minn=99999999; 29 int k=-1; 30 for(int j=1;j<=n;j++) 31 { 32 if((dis[j]<=minn)&&vis[j]==0) 33 { 34 minn=dis[j]; 35 k=j; 36 } 37 } 38 vis[k]=1; 39 for(int j=1;j<=n;j++) 40 { 41 if((dis[j]>=dis[k]+map[k][j])&&vis[j]==0) 42 dis[j]=dis[k]+map[k][j]; 43 } 44 } 45 } 46 int main() 47 { 48 memset(map,db_maxn,sizeof(map)); 49 memset(dis,db_maxn,sizeof(dis)); 50 scanf("%d",&n); 51 for(int i=1;i<=n;i++) 52 { 53 scanf("%lf%lf",&a[i].x,&a[i].y); 54 //a[i].cd=sqrt((pow(abs(x),2))+(pow(abs(y),2))); 55 } 56 int m; 57 scanf("%d",&m); 58 for(int i=1;i<=m;i++) 59 { 60 int p,q; 61 scanf("%d%d",&p,&q); 62 double y=sqrt(pow(a[p].x-a[q].x,2)+pow(a[p].y-a[q].y,2)); 63 map[p][q]=y; 64 map[q][p]=y; 65 } 66 int u,v; 67 scanf("%d%d",&u,&v); 68 Dijkstra(u); 69 printf("%0.2lf",dis[v]); 70 return 0; 71 }
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
- Emergency Evacuation(最短下车时间)———(思维) 2020-04-11
- 牛客网中矩阵中的路径 2019-10-25
- QT使用LIBS添加绝对路径的dll引用 2019-10-18
- 剑指offer65:矩阵中的路径(二维数组,二分查找) 2019-09-02
- qt 旧项目编译运行提示 “启动程序失败,路径或者权限错误? 2019-08-29
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash