1.深度优先搜索【信息技术】.docVIP

深度优先搜索 一、搜索过程 深度优先搜索的搜索过程类似树的先序遍历，也叫回溯法。搜索过程如下： 从源节点开始发现有一节点v，如果v还有未探测到的边，就沿此边继续探测下去，当节点v的所有边都被探测过，搜索过程将回溯到最初发现v点的源节点。这一过程一直进行到已发现从源节点可达的所有节点为止。即 以给定的某个顶点V0为起始点，访问该顶点；V0相邻接且未被访问过的顶点V1，用V1作为新的起始点，重复上述过程；Vi时，就退回到新近被访问过的顶点Vi-1，继续访问Vi-1尚未访问的邻接点，重复上述搜索过程；S放到非扩展结点OPEN表中(后进先出的堆栈)，如果此结点为一目标结点，则得到一个解。OPEN为一空表，则搜索失败退出。OPEN表最前面(栈顶)的结点，并把它放入CLOSED的扩展结点表中，并冠以顺序编号ｎ。 ⑤ 否则，扩展结点ｎ，产生其全部子结点，把它们放入OPEN表的前头(入栈)，并配上指向ｎ的返回指针；如果没有后裔，则转向２。 　　递归过程为： 　　Procedure DEF-GO(step) 　　　for i:=1 to max do 　　　　if 子结点符合条件 then 　　　　　　if 子结点是目标结点 then 输出 else DEF-GO(step+1)； 　　　　　endif； enddo； 　　Program DFS； 　　　DEF-GO(1)； 　　Program DEF(step)； step:=0； repeat 　　step:=step+1； j:=0；p:=false repeat 　　　　j:=j+1； if 结点符合条件 then 　　　　　产生子结点入栈； 　　　　　　if 子结点是目标结点 then 输出 else p:=true； else 　　　　　　if j=max then 回溯 p:=false； endif； until p=true； until step=0； 　　Procedure BACK； step:=step-1； if step0 then 栈顶结点出栈 else p:=true；--已知８个数的起始状态如图1（ａ），要得到目标状态为图1(ｂ。1 求解时,首先要生成一棵结点的搜索树，按照深度优先搜索算法，我们可以生成图2的搜索树。图中，所有结点都用相应的数据库来标记，并按照结点扩展的顺序加以编号。其中，我们设置深度界限为５。粗线条路径表示求得的一个解。从图中可见，深度优先搜索过程是沿着一条路径进行下去，直到深度界限为止，回溯一步，再继续往下搜索，直到找到目标状态或OPEN表为空为止。 图 2program No8_DFS; 　　　　　　　　　　　　　　{八数码的深度优先搜索算法} Const Dir : array[1..4,1..2]of integer = ((1,0),(-1,0),(0,1),(0,-1)); maxN = 15;　　　　　　　　　　　　　　　　｛可以承受的最大深度｝ Type T8No = array[1..3,1..3]of integer; tList = record state : T8No; x0,y0 : integer; end; Var Source,Target : T8No; List,Save : array[0..maxN]of tList;　　　　　　　｛综合数据库，最优解路径｝ Open,Best : integer; procedure GetInfo;　　　　　　　　　　　　　　{见程序1} Function Same(A,B : T8No):Boolean; 　　　　　　{见程序1} function Not_Appear(New : tList):boolean; 　　　　{见程序1} procedure Move(N : tList;d : integer;var ok : boolean;var New : tList); {见程序1} procedure GetOutInfo;　　　　 　　　　　　　 {输出｝ var i,x,y : integer; begin writeln(total = ,best); for i:=1 to best+1 do begin for x:=1 to 3 do begin for y:=1 to 3 do write(Save[i].State[x,y], ); writeln; end; writeln; end; end; Procedure Recursive;