(人工智能实验5.docVIP

实 验 报 告 专业 班级 学号 姓名 课程名称 学年201 -201 学期1 /2 课程类别 专业必修 限选 任选 实践 实验时间2014年 月 日 实验名称：小型专家系统设计与实现 实验目的和要求： 目的： 1. 加深理解专家系统的结构原理与实际应用。 2. 初步掌握知识获取的基本方法。 3. 掌握产生式规则知识表示方法及其编程实现方法。 4. 初步掌握知识库的组建方法。 5. 加深理解推理机的算法原理并初步掌握其编程实现方法。 要求： 1. 具体应用领域自选，具体系统名称自定 用产生式作为知识表示，用产生系统实现该系统。 用P语言程用 4. 所实现的专家系统必须上机运行演示；程序运行时，应有人机对话。 （4）系统编码如下： database xpositive(symbol,symbol) xnegative(symbol,symbol) predicates run fruit_is(symbol) positive(symbol, symbol) negative(symbol, symbol) clear_facts remember(symbol, symbol, symbol) ask(symbol, symbol) goal run. clauses run:- fruit_is(X),!, write(\nYour fruit may be a(n) , X), nl, nl, clear_facts. run:- write(\nUnable to determine what), write(your fruit is. \n\n), clear_facts. positive(X, Y):-xpositive(X, Y),!. positive(X, Y):-not(xnegative(X, Y)), ask(X, Y). negative(X, Y):-xnegative(X,Y), !. negative(X, Y):-not(xpositive(X, Y)), ask(X, Y). ask(X, Y):- write(X, it , Y, \n), readln(Reply), remember(X, Y, Reply). remember(X, Y, y):-asserta(xpositive(X, Y)). remember(X, Y, n):-asserta(xnegative(X, Y)), fail. clear_facts:-retract(xpositive(_, _)), fail. clear_facts:-retract(xnegative(_, _)), fail. clear_facts:-write(\n\nPlease press the space bar to Exit), readchar(_). fruit_is(cantaloupe):- positive(is,oval), positive(has,yellow_flesh), positive(has,yellow_peel). fruit_is(watermelon):- positive(is,oval), positive(has,red_flesh), positive(has,green_peel). fruit_is(pear):- negative(has,yellow_peel), positive(is,circular), positive(has,while_flesh). 实验结果（可附页）