人工智能实验报告(熟悉专家系统开发工具).docVIP

实验报告 实验目的 1．熟悉专家系统开发工具---- Visual Prolog，学习该工具的基本语法规则、使用技巧、程序构成； 2．学习示例程序，尝试编写小型完整Visual Prolog应用程序。 实验设备 计算机。domains person, activity = symbol predicates likes(person,activity) clauses likes(ellen,tennis). likes(john,football). likes(tom,baseball). likes(eric,swimming). likes(mark,tennis). likes(bill,X):-likes(tom,X). goal likes(bill,X). Example2： domains namelist = name* name = symbol predicates member(name,namelist). clauses member(Name,[Name|[]). member(Name,[_|Tail]):-member(Name,Tail). goal member(john, [leonard,john, eric, frank]). Example3： domains name = symbol predicates father(name,name) everybody clauses father(leonard,katherine). father(carl,jason). father(carl,marilyn). everybody :-father(X,Y),write(X, is ,Y,s father\n),fail. goal everybody. 求N！值的： PREDICATES factorial(unsigned, real) CLAUSES factorial(1, 1) :- ! . factorial(X, FactX) :- Y = X-1,factorial(Y, FactY), FactX = X*FactY . GOAL X=6,factorial(X, FactX). 实验记录 Example1： 设定目标为：likes(bill,X). 结果为： X=baseball 1 Solution Example2： 设定目标为：member(john, [leonard,john, eric, frank]). 结果为： Yes Example3： 设定目标为：everybody. 结果为： leonard is katherines father carl is jasons father carl is marilyns father No 求N！值的： 设定目标为：X=6,factorial(X, FactX). 结果为： X=6, FactX=720 1 Solution 实验结论（结果） 求N！值的： 该程序通过递归算法有效的解决了求N！值的问题。并熟悉了Visual Prolog软件开发平台。 实验心得与小结 通过这次实验我更加熟悉了 Prolog语言和该软件开发平台。对Prolog语言的基本语法规则和使用技巧有了更好的掌握。在使用Visual Prolog软件开发平台的过程中，我从对软件的不熟悉，经常出错，到会编写一些小型完整的Visual Prolog应用程序，在这过程中，我增长了很多知识。最后经过本次试验，我的动手能力和分析问题的能力得到提高。 实验成绩 成绩评定： 指导教师签名：