图搜索问题求解--实验报告

图搜索问题求解--实验报告

ID:38695937

大小:222.00 KB

页数:10页

时间:2019-06-17

图搜索问题求解--实验报告_第1页
图搜索问题求解--实验报告_第2页
图搜索问题求解--实验报告_第3页
图搜索问题求解--实验报告_第4页
图搜索问题求解--实验报告_第5页
资源描述:

《图搜索问题求解--实验报告》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、实验报告

2、

3、实验名称图搜索问题求解课程名称人工智能

4、

5、验证性、综合性实验报告应含的主要内容:一、实验目的及要求二、所用仪器、设备三、实验原理四、实验方法与步骤五、实验结果与数据处理六、讨论与结论(对实验现象、实验故障及处理方法、实验中存在的问题等进行分析和讨论,对实验的进一步想法或改进意见)七、所附实验输出的结果或数据设计性实验报告应含的主要内容:一、设计要求二、选择的方案三、所用仪器、设备四、实验方法与步骤五、实验结果与数据处理六、结论(依据“设计要求”)七、所附实验输出的结果或数据*封面左侧印痕处装订华北电力大学科技学院实验报告一、实验目的及要求1.熟悉PROLOG的运

6、行环境,进行prolog的基本编程练习。了解PROLOG语言中常量、变量的表示方法。PROLOG的简单程序结构,掌握分析问题、询问解释技巧;进行事实库、规则库的编写,并在此基础上进行简单的询问。具体实验课上相关内容,练习例1到例6的内容。2.图搜索问题求解。任选以下实际应用题目:爱因斯坦的超级问题、字谜问题、汉诺塔问题、八数码问题、八皇后问题、过河问题等,选两个。要求实验报告中包括:程序及其注释和说明、console表单中的程序运行结果。二、所用仪器、设备PC机和trincprolog编译软件三、实验原理PROLOG语言是一种以逻辑推理为基础的逻辑型程序设计语言,是一种陈述

7、性语言而不是过程性语言。PROLOG语言能够自动实现模式匹配和回溯、具备递归技术,而且语法简明,可以简化复杂问题求解。四、实验方法与步骤1熟悉trincprolog开发环境,编写简单的prolog程序,学习prolog的语法,进行事实库、规则库的编写,并进行简单的询问。2.按照所给题目选择汉诺塔与过河问题,熟悉其算法思想,编程并调试运行。3.写实验报告五、求解的问题与程序求解问题:汉诺塔问题代码:hanoi(N):-move(N,left,middle,right).move(1,A,_,C):-第页共页华北电力大学科技学院实验报告inform(A,C),!.move(N,

8、A,B,C):-N1isN-1,move(N1,A,C,B),inform(A,C),move(N1,B,A,C).inform(Loc1,Loc2):-nl,write('Moveadiskfrom'-Loc1-'to'-Loc2).求解问题:传教士与野人代码:get_integer(L,H,X):-L>H,!,fail.get_integer(L,H,L).get_integer(L,H,X):-L1isL+1,get_integer(L1,H,X).append([],X,X).append([A

9、X],Y,[A

10、Z]):-append(X,Y,Z).member(A

11、,[A

12、X]).member(A,[B

13、X]):-member(A,X).del_move:-retract(move(X,Y)),fail.del_move.del_stat:-retract(inistatu(X)),retract(desstatu(Y)),!.del_stat.insert_move(N):-insert_move0(N),insert_move1(N).insert_move0(0).insert_move0(N):-asserta(move(N,0)),asserta(move(0,N)),N1isN-1,第页共页华北电力大学科技学院实验报告in

14、sert_move0(N1).insert_move1(N):-get_integer(1,N,X),get_integer(X,N,Y),X+Y==0,!.legal1((X,Y)):-Y=:=0,X>=0,!.legal1((X,Y)):-X>=Y,X>=0,Y>=0.update((X,Y,0),Move,Statu1):-(A,B)=X,(C,D)=Y,(E,F)=

15、Move,C1isC+E,D1isD+F,A1isA-E,B1isB-F,Statu1=((A1,B1),(C1,D1),1).update((X,Y,1),Move,Statu1):-(A,B)=X,(C,D)=Y,(E,F)=Move,C1isC-E,D1isD-F,A1isA+E,B1isB+F,Statu1=((A1,B1),(C1,D1),0).connect(Statu,Statu1):-move(X,Y),update(Statu,(X,Y),Statu1),legal(Statu1).第页共页华北电

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。