次短路（非严格）

Byte97

于 2014-10-28 20:10:48 发布

阅读量681

点赞数

分类专栏：图论文章标签：次短路 Pascal

本文链接：https://blog.csdn.net/Free__Radical/article/details/40554309

版权

这篇博客探讨了在图中寻找次短路的方法，特别是在最短路唯一的情况下。内容涉及如何通过SPFA算法先找出最短路径，然后通过删除边的方式重新计算以找到次短路。这是一个涉及图论和算法的问题。

摘要由CSDN通过智能技术生成

这里的次短路是指最短路只有一条情况下的次短路，如果有两条及两条以上的最短路时则输出最短路题目

求次短路的思路就是首先求出最短路后，记录最短路的路径，枚举删变（注意数组模拟链表要删双向边）后再次SPFA，求出即可。

program pro;
var
        i,j,n,m,num,tot:longint;
        min,cmin:real;
        flag:boolean;
        point:array[0..205]of record x,y:longint; end;
        link:array[0..45000]of record ke,po,ne,br:longint; pr:real; bj:boolean; end;
        pre:array[0..250]of record num,po:longint; end;
        que:array[0..10000]of longint;
        st:array[0..250]of longint;
        dis:array[0..250]of real;
        team:array[0..250]of boolean;

function fd(x,y:longint):real;
begin
        exit(sqrt(sqr(poin