农业专家系统实验报告

1、实验报告课程：农业专家系统行政班级：09农信 姓名：王雪 学号：0908074115一、实验目的加深对知识表示方法的理解与认识，掌握知识特别是产生式知识在计算机内 的存储方式；掌握知识库构建方法，利用关系型数据库建立知识库；选用适当的 程序设计语言练习专家系统推理机的设计，编写推理程序；在上述基础上，根据农业专家系统的组成构建一个简单的农业专家系统。二、实验方法动物识别专家系统是流行的专家系统实验模型，它用产生式规则来表示知识，共15条规则、可以识别七种动物，这些规则既少又简单，可以改造他们，也可以加进新的规则，还可以用来识别其他东西的新规则来取代这些规则。三、实验环境及开发工具实验环境：（1

2、）硬件环境：网络环境中的微型计算机。（2）软件环境：Windows 操作系统，任选一种网络编程语言和数据库管理系统。开发工具：Microsoft SQL SeverC+编程语言四、实验内容（一）、知识表示（节选）动物分类专家系统由15条规则组成，可以识别七种动物，在15条规则中， 共出现30个概念（也称作事实），共30个事实，每个事实给一个编号，从编 号从1至U30,在规则对象中我们不存储事实概念，只有该事实的编号，同样规则的结论也是事实概念的编号，事实与规则的数据以常量表示。（二）、构建知识库1、事实数据库的设计与实现（附数据库截屏图）对动物进行比较和分析，找出它们之间的不同，然后利用数据库

3、根据动物的不同之处出创建出一个表列名数据类型允许Ml信理幼物名称varchar(50)反刍动物nchar(lO)1 I蹄类动物1nchar(lO)哺乳动物nchar(lO)眼盯前方nchar(lfl)有爪nchar(lO)n有犬街nchar(lO)11咆肉nchar(lO)会下蛋ndiar(lO)1合飞nchar(lO)E有羽毛ndnar(lO)有蹄nchar(lQ)食囱动物nchar(lO)鸟nchar(lC)能声蜗ncharfUJ)有毛发nchar(lO)善飞nchar(lO)黑白色nchar(lO)11P会辩泳nchar(lO)长腿ndiar(lO)-j长脖子nchar(lO)c里条皎n

4、diar(lO)黑斑点nchar(lQ)1黄褐色nchar(lO)2、利用关系型数据库构建知识库（附截屏图）系统的知识库中只有两个谓词，规则和事实，利用关系数据库来构造知识库 时，只需建立两个表，即规则表和事实表。规则表包含推理用到的条件事实和结 论事实，针对每一事实，在事实表中存储。这个过程中根据如果创建知识库的过程就是根据推理机制进行推理的过程，能够根据事实数据库中的动物的特征， 然后再根据真实存在的事实，那样就可以得到关于这种动物的推理的一个数据表，这样就组成了一个知识库;列名数据类型允许期雇号动物名称varchar(50)1 1皮刍动物nchar(lO) _.lzz蹄类动物nchar(

5、lO)哺乳动物nchar(lO)E眼盯前方ndnar(UO)有爪nchar(lQ)B有犬缶ndiar(lQ)唔肉nchar(lO)会下蛋nchar(lO)1会飞ndiar(W)B有羽毛ndnar(lO)有皤nchar(lQ)1食肉动物nchar(lO)鸟nchar(lO)1!_J能声蜗ndiar(lO)r1有毛发nchar(lO)n善飞nchar(lO)黑白色nchar(lO)j-2-L？：|会游泳nchar(lO)一一 1长腿ndiar(lO)i1长脖子nchar(UO)黑条纹neher(iO)n黑斑点nchar(io)黄褐色nchar(lO)蟠强用渊滕也噂肿断新粒梆卵铺解食避Sm 雄 氧

6、睡 m翅 螭 mi陋 n Y n nn Jin y n ny n1111noyi窿葭n ), n nn fin y n ny y n 11 n y y n3趣 R n ， 了v y yn *in n y ny y n i o n n y4韵 n f Yy y yn iin n y ny Z n fl n n n ?i5建 n n n n n ny 力f n nnf n n y n n n fi鹦 1111rln n nY fy n n n n n y n y y ii1耨 r n n n n IT n /n n y n n n n nm SELECT 动物名称 1 FROM danavrj “

7、 dbo . I 1 】JwHERE：鸟=丁 a-d 【善飞】13rSELECT - FROM. dbo , aniairi动物名称i 褚天斜-1（三） 、推理机设计（附程序源代码）动物识别 15 条规则的中文表示是：规则1 ：如果：动物有毛发则：该动物是哺乳动物规则2 ：如果：动物有奶则：该单位是哺乳动物规则 3: 如果：该动物有羽毛则 ：该动物是鸟规则 4 ：如果：动物会飞，且会下蛋则 ：该动物是鸟规则 5 ：如果：动物吃肉 则 ：该动物是肉食动物规则 6 ：如果：动物有犬齿，且有爪，且眼盯前方则 ：该动物是食肉动物规则 7 ：如果：动物是哺乳动物，且有蹄则 ：该动物是有蹄动物规则8 ：如

8、果：动物是哺乳动物，且是反刍动物则 ：该动物是有蹄动物规则9 ：如果：动物是哺乳动物，且是食肉动物，且是黄褐色的，且有暗斑点则 ：该动物是豹规则10 ：如果：如果：动物是黄褐色的，且是哺乳动物，且是食肉，且有黑条纹则 ：该动物是虎规则11:如果： 动物有暗斑点， 且有长 腿， 且有长脖子， 且是有蹄类则 ：该动物是长颈鹿规则12 ：如果：动物有黑条纹，且是有蹄类动物则 ：该动物是斑马规则13 ：如果：动物有长腿，且有长脖子，且是黑色的，且是鸟，且不会飞则 ：该动物是鸵鸟规则14 ：如果：动物是鸟，且不会飞，且会游泳，且是黑色的则：该动物是企鹅规则15:如果：动物是鸟，且善飞 则：该动物是信天翁

9、该程序为：#include itincludlE HincludlF Cstdioi .lh Hincludt define True 1 ttdeFioe IT alse 0McFine iDontKnoiu -1Char -str-checud豆刍动物，.twwew码类/物JruFirwl哺工动物”orward_eyesB?盯前方”.Pclais有瓜、“皿皿睦卜百犬齿1 Peat ne a t吃肉1 J1刑eg)要下有叫合飞，festticr sfj-羽毛” ,un gul 11香野” ,-c.i m ： uer食肉社物：J h i r d鸟“广g i mi 1 及能产妍,.hasjisi

10、r有 至次*H*善-H, + black &uh it?_c o lor典 Q, ,hcan_5win潍淞，. long .1 叫。3朦wng-neck 工脖子/black, etripe喉室经 + dark 而吐5黑僚点”， “t mnLEi。尸黄褐色”Mg讦oh信天曲”pengui喳相jFEt de“蛇国：zMir斑马”. thgira FFu长领鹿H, tig的定先 七tie e匕h若豹“评，1int hiiepl町7熊.吊,较S.叫呼/青i,aa,i38,.心121,11, Q,fl,n23f 17,135,13,-9,%，417,1/13.T,3 gh13 IM, 3% fl,。,i

11、s.a.i.e.a.t.H*.o.B.a.a.o.fie.B.e.a.a.ofe.z.e.Q.a.a. 疗，Qj,%h”,W占诙/，%*壮力，int rltCJOfi,29,28F27,24,25,2li,3l3Tl3T13T12,12T11T-HTfl；class fact03i char *Cet Ndt?()035 char *L；036 L-ncw char2l;ira? 5trcpntLnaiip)；KIV return L;ft39 int CetNuraber() return Number j 仙 1 int GetftCtO M2 return Retire;) M3 int

12、 Get5-Uicc(J M4 return Suec; MS yaid PutAict(const int HctO.int SueQ) Md ftctive-fictO； 仙子 Sucu-SUCD;； MS f act *Fact ； C1355 liSt帆肿priuatp： 851 int Hunbft ;052 public:053 list *Hext；聘& Ugtum彻倡】精品资料567fty.M123s678Q-12345ft/SQ-0 1 K的脑格心删肺删肺帧幅M肺肺肺gn/50707071n/6?07晓efllHkinber=-Nura；ftextHULL；) int Get

13、Humber() return 削rahpr； cla5E rule (char *Namp;list *PrE； int Gone; public: rule *Hes t;rulefchasr N? int P ,int C);*rule();int Quer()；Mid G-tNdnt() coutName; rule ：:r u：le ()Next; delete Pre;Pre-rL; ) delete rule: :ruilF( charP J pint t)IM i;list *L;Pre HULL;HgKSHULL：23567s9o123-5678_n OBOBOB峭岫OBOB

14、脚叫呼叫叫叫加的加的岷1 01 O1111Nam&=nEN charstrleii(IN)*1 ;1strcpp(INam&tN); ia； uhilerPit=Ei) L=neu listfPi+J); L-Nirxt=Pre; Pre=L;J CbhC=C int ryle：Qu&rp() char c; Int Tag=D； list *L；IFact *F； F=FMt； L=Pre; LF(LHULLi coutnErrorBB; whiletLt-HULL) F=Fact; fort;) if CEet Humber C)-F- Set Humber ()IF-$MH”查找与规则前

15、提链中前提号相同的事实LF(L-EetHumber()t)UftF ?tretsucct)-true)Newt；cntinue;if(F-6etSucc()-false) return Hl”；”，如果串实的断言点真叫判断下一个工程，号直.则表示诬仄P15B9 0 123 4 54789。12345 6 子卧 y 9 123 s B 1111111 111 222 2 22222? 333 333H11 11 111111-111 111 111 力 11 111if(F-GetSuEC()-TruJreturn False;lF(F-EetSucc()=Fale)LL-NBKticontin

16、ue;)coutGetNaiine( )GBtHunber(fl)FfPutWctW JruH馈置事实的断言和激活标志if (L ?GetHumt?er()Putfict(1,True;Tagj-1;return False;elseif(L-GetHumber()Putftct(-1+FalseHTag-1； 已经推理，不符合qreturn False;L=L-Hext；F-Fact;for(； Ge LHu mb er ()break ;“杳梃言论断言对应的事实113白F-F-NextO137iF(CnniicPutAct(1BIrup);139return False;1。ifCTagr

17、-1J1M(F-FiCt；1U2For(GeIHumber()也break;1U5F-F-Hext;146lf(CnncFutAct(l.True);1U8return- False;149coutnThisis ,GetHof(5tr(i-l)”雨始化事实库，例序排列.159F-new f act(ipStr| i-1 );16 0F-Hext*FaEtj161Fact-F;16?163F-Fact;1仙Fa 曲 HULL;1fi5whilefFj 7把例序排列F过来.166(T-F；U7F-F Hext;16ST-Hext-Fact;169Fact=T;170i- 8；171ChO-R;172Eli11|=U；173chi?-11;174cnte；175皿 *=，176177皿 Wtr ；178Rule-HULL;179Fdi (i+ +