人工智能作业—迷宫问题.doc

人工智能 大 作 业 班级：13111 学号：13111 姓名： 一、问题描述 在如图所示的迷宫，找出从起点（1,1）到终点（4,4），要求步数最小. 1：初始状态，入口处。 2：目标状态，出口处 3：操作方式 下上右左 二、解题步骤： 1：设估价函数：f(n)=g(n)+h(n); g(n)=d(n); h(n)=|Yg-xn|+|Yg-yn|;: 2： 将迷宫问题转化为格子问题 3：按照操作步骤得到状态空间树如下： g=0,h=7,f=7 g=1,h=6,f=7 g=2,h=5,f=7 g=3,h=4,f=7 g=4,h=5,f=9 g=4,h=3,f=7 g=5,h=2,f=7 g=5,h=6,f=11 g=5,h=4,f=9 g=6,h=1,f=7 g=6,h=3,f=9 g=7,h=0,f=7 g=7,h=2,f=9 g=8,h=1，f=9 g=9,h=2,f=11, g=10,h=3,f=13 4 根据状态空间树得到open表，close表如下： 节点 父节点 f(n) 1 无 7 2 1 7 3 2 7 4 3 7 9 4 9 5 4 7 6 5 7 7 6 7 8 7 7 16 9 11 10 9 9 11 10 9 12 11 9 13 12 9 14 13 11 15 14 13 编号 节点 父节点 f(n) 8 8 7 7 7 7 6 7 6 6 5 7 5 5 4 7 4 4 3 7 3 3 2 7 2 2 1 7 1 1 无 7 根据上表得出路径为s1-s2-s3-s4-s5-s6-s7-s8-sg trace domains state=symbol database-mydatabase open(state,integer) closed(integer,state,integer) res(state) mark(state) fail_ predicates solve search(state,state) result searching step4(integer,state) step56(integer,state) equal(state,state) repeat resulting(integer) rule(state,state) road(state,state) goal solve. clauses solve:- search(s0,sg),result. search(Begin,End):- retractall(_,mydatabase), assert(closed(0,Begin,0)), assert(open(Begin,0)), assert(mark(End)),repeat,searching,!. result:- not(fail_),retract(closed(0,_,0)), closed(M,_,_),resulting(M),!. result:- beep,write(sorry dont find a road!). searching:- open(State,Pointer), retract(open(State,Pointer)), closed(No,_,_),No2=No+1, asserta(closed(No2,State,Pointer)), !,step4(No2,State). searching:- assert(fail_). step4(_,State):- mark(End),equal(State,End). step4(No3,State):- step56(No3,State),!,fail. step56(No4,StateX):- rule(StateX,StateY), not(open(StateY,_)), not(closed(_,StateY,_)), assertz(open(StateY,No4)),fail. step56(_,_):-!. equal(X,X)