农业专家系统开发-实验报告.doc

农业专家系统开发实 验 报 告课程：农业专家系统 行政班级：11软件2班 姓名：程茗 学号：1108054208一、实验目的 加深对知识表示方法的理解与认识，掌握知识特别是产生式知识在计算机内的存储方式；掌握知识库构建方法，利用关系型数据库建立知识库；选用适当的程序设计语言练习专家系统推理机的设计，编写推理程序；在上述基础上，根据农业专家系统的组成构建一个简单的农业专家系统。2、 实验方法1. 设计一个简单的医疗诊断专家系统。2. 使用Prolog语言编程实现该系统。3. 给出模拟运行结果。三、实验环境及开发工具实验环境：（1） 硬件环境：网络环境中的微型计算机。 （2） 软件环境：Windows操作系统，任选一种网络编程语言和数据 库管理系统开发工具：基于Visual Prolog的鸡疾病诊断专家系统4、 实验内容首先对一些常见动物的属性进行归纳，提出有用的信息再对这种动物进行描述，通过这一过程，得出大部分动物的特点，这样再通过智能语言对它进行编写。理解并掌握基于规则系统的表示与推理 学会编写小型的生产式系统，理解正向推理和反向推理的过程以及两者的区别 1.该系统可以识别孔雀、北极熊、狮子、长颈鹿、斑马、天鹅、鹦鹉在本系统中，知识库中的知识用产生式规则表示R1 IF 该动物有毛发 THEN 该动物是哺乳动物R2 IF 该动物有奶 THEN 该动物是哺乳动物R3 IF 该动物有羽毛 THEN 该动物是鸟R4 IF 该动物会飞AND会下蛋 THEN 该动物是鸟R5 IF 该动物吃肉 THEN 该动物是肉食动物R6 IF 该动物有犬齿AND 有爪AND 眼盯前方 THEN 该动物是肉食动物R7 IF 该动物是哺乳动物AND 有蹄 THEN 该动物是有蹄类动物R8 IF 该动物是哺乳动物AND 是嚼反刍动物 THEN 该动物是有蹄类动物R9 IF 该动物是哺乳动物AND 是肉食动物AND 是黄褐色们AND 头大鼻骨长 THEN 该动物是狮子R10 IF 该动物是哺乳动物AND 是肉食动物AND 是白而淡黄AND 皮肤是黑色的THEN 该动物是北极熊R11 IF 该动物是有蹄类动物AND有长脖子AND 有长腿AND 身上有暗斑点 THEN 该动物是长颈鹿R12 IF 该动物是有蹄类动物AND身上有黑色条纹 THEN 该动物是斑马R13 IF 该动物是鸟AND 有彩色羽毛AND 头小有竖立羽毛AND 会飞THEN 该动物是孔雀R14 IF 该动物是鸟AND 会游泳AND会飞AND 有黑褐色THEN 该动物是天鹅R15 IF 该动物是鸟AND 会说话 THEN 该动物是鹦鹉2 实验原理一个基于规则专家系统的完整结构示于图1。其中，知识库、推理机和工作存储器是构成专家系统的核心。系统的主要部分是知识库和推理引擎。知识库由谓词演算事实和有关讨论主题的规则构成。推理引擎由所有操纵知识库来演绎用户要求的信息的过程构成如消解、前向链或反向链。用户接口可能包括某种自然语言处理系统，它允许用户用一个有限的自然语言形式与系统交互；也可能用带有菜单的图形接口界面。解释子系统分析被系统执行的推理结构，并把它解释给用户。 图1 一个基于规则专家系统的完整结构 3.PROLOG源程序databasexpositive(symbol,symbol).xnegative(symbol,symbol).predicatesrun.animal-is(symbol).it-is(symbol).positive(symbol,symbol).negative(symbol,symbol).clear-facts.remember(symbol,symbol).ask(symbol,symbol).clausesrun:-animal-is(X),!,(nYouranimalmaybea(n)”write“,X),nl,nl,clear-facts.(nUnabletodeterminewhat”),run:-write“(youranimalisnn”),clear-facts.write“positive(X,Y):-xpositive(X,Y),!.positive(X,Y):-not(xnegative(X,Y)andnegative(X,Y):-xnegative(X!.negative(X,Y):-,Y).),ask(X,Y):(X,“,n”readln(,remember(X,Y,Reply).remember(X,Y,yes):-assertz(xpositive(X,Y).remember(X,Y,no):-assertz(xnegative(X,Y),fail.clear-facts:-retract(xpositive(-,-),fail.clear-facts:-retract(xnegative(-,-),fail.(nnPleasepressthespacebartoExit”),readchar(-).clear-facts:-write“it-is(mammal):-positive(has,hair).it-is(mammal):-positive(does,give-milk).it-is(bird):-positive(has,feathers).it-is(bird):-positive(does,fly)andpositive(does,lay-eggs).it-is(carnivore):-positive(does,eat-meat).it-is(carnivore):-positive(has,pointed-teeth)andpositive(has,claws)andpositive(has,forward-eyes).it-is(ungulate):-it-is(mammal)andpositive(has,hooves).it-is(ungulate):-it-is(mammal)andpositive(does,chew-cud).animal-is(cheetah):-it-is(mammal)andit-is(carnivore)andpositive(has,tawny-color)andpositive(has,black-spots).animal-is(tiger):-it-is(mammal)andit-is(carnivore)andpositive(has,tawny-color)andpositive(has,black-stripes).animal-is(giraffe):-it-is(ungulate)andpositive(has,long-neck)andpositive(has,long-legs)positive(has,dark-spots).animal-is(zebra):-it-is(ungulate)andpositive(has,black-stripes).animal-is(ostrich):-it-is(bird)andpositive(has,long-neck)andpositive(has,long-legs)andnegative(does,fly).animal-is(penguin):-it-is(bird)andpositive(does,swim)andnegative(does,fly)andpositive(has,black-and-white-color).animal-is(albatross):-it-is(bird)andpositive(does,fly-well).4事实数据库的设计与实现（附数据库截屏图）4.1推理机的使用当程序启动后，其情形如下图2所示。当编辑器窗口激活时，选择Engine - Reconsult，将会把文件装入到推理机。在对话框中，还将得到这样一个消息： Reconsulted from: .pieExeFILE4.PRO 无论用编辑器如何装入，其内容都不会保存到文件之中。如果想要保存内容，必须使用菜单命令File - Save。菜单File - Consult不管文件是否因编辑而打开，都会装载磁盘文件中的内容。一旦查阅过定理，就可以回