图算法(二).pptVIP

图算法（二） 单源最短路经 Single-Source Shortest Path 单源最短路径 问题: 带权有向图G, 找出从给定源顶点s到其它顶点v的权最小路径。 “最短路径” = 最小权 路径的权是路径上所有边的权之和。 例：道路图 : 从福州大学到东街口的最短路径是什么? 权非负的单源最短路径算法（Dijkstra） 贪心算法 基本思想： 设置一个顶点集S，不断做贪心选择扩充这个集合。 一个顶点属于S当且仅当从源到该顶点最短路径长度已知。 权非负的单源最短路径算法（Dijkstra） 初始时,S仅包含源s, 算法每次从V-S中取出具有最短特殊路径 长度的顶点u加入S中。 特殊路径： 从源到G中某一顶点u且中间只经过S中顶点的路称为从源到u的特殊路径。 权非负的单源最短路径算法（Dijkstra） Const P133 maxvalue=99999.0 maxlength=100; Type Arr1=array[1..maxlength] of integer; Arr2=array[1..maxlength,1..maxlength] of real; Arr3=array[1..maxlength] of real; Var prev:Arr1; c:Arr2; dist:Arr3; s:array[1..maxlength] of boolean n:integer; 权非负的单源最短路径算法（Dijkstr） Procedure shortpaths(n,v:integer); {单源最短路径问题的Digkstra算法} Var i,j,u:integer; temp,newdist:real; begin for i:=1 to n do begin dist[i]:=c[v,i]; s[i]:=false; if(dist[i]=maxvalue) then prev[i]:=0 else prev[i]:=v; end; Dist[v]:=0;s[v]:=true; 权非负的单源最短路径算法（Dijkstra） For i:=1 to n-1 do begin temp:=maxvalue; u:=v; for j:=1 to n do if ((not s[j]) and (dist[j]temp)) then begin u:=j; temp:=dist[j]; end; s[u]:=true; 权非负的单源最短路径算法（Dijkstra） For j:=1 to n do if ((not s[j]) and (c[u,j]maxvalue))then begin newdist:=dist[u]+c[u,j]; if (newdistdist[j]) then begin dist[j]:=newdist; prev[j]:=u; end end end end; 权非负的单源最短路径算法（Dijkstra） 基于邻接表的算法（当图边数远小于|V|2时采用）P136 Const maxint=2147483647 maxlength=1000 Type pointer=^adjnode;//邻接表 adjnode=record v:integer; //顶点标号 w:integer; //权 next:pointer; //指向下一邻接点指针 end; 权非负的单源最短路径算法（Dijkstra） Function DeleteMin:integer； //取当前负距离最大（正距离最小）的顶点 Var i,k:integer; temp:longint; begin k:=0; temp:=-maxint; for i:=1 to n do if (dist[i]0) and (dist[i]temp) then begin temp:=dist[i];