农业专家系统实验报告

《农业专家系统实验报告》由会员分享，可在线阅读，更多相关《农业专家系统实验报告（9页珍藏版）》请在装配图网上搜索。

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

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

3、它们之间的不同，然后利用数据库根据动物 的不同之处出创建出一个表。埶据类型允诈Null ff懐动物名称varchar(50)H反刍幼物ndiarlJO)蹄类动物ndiarM哺乳动物ncharClJO)眼盯前方nchar(lO)n肓爪.nchar(lO)有犬齿ncharMn吃肉ncharflO)合下蛋nchar(lO)会飞ndiar(lD)育羽毛ndnarM有蹄ncharflO)負肉动物n char10)鸟nch8r(lJ0)能产妞ncharflO)E有毛岌nchar(lJO)善飞ndiar(UO)B黒白色ndnarflJO)会游注ncharME长腿nchar(lJO)辰脖子nchar(lJO)

4、n里罕绞nchar(ljD)黒斑点ncharM苗褐色ndiar(UQ)2、利用关系型数据库构建知识库（附截屏图）系统的知识库中只有两个谓词，规则和事实，利用关系数据库来构造知识 库时，只需建立两个表，即规则表和事实表。规则表包含推理用到的条件事实 和结论事实，针对每一事实，在事实表中存储。创建知识库的过程就是根据推理机制进行推理的过程，这个过程中根据如 果能够根据事实数据库中的动物的特征，然后再根据真实存在的事实，那样就 可以得到关于这种动物的推理的一个数据表，这样就组成了一个知识库；埶据类型允祥Mull值J动物名称varchar(SO)IS反刍幼物ndiarlJO)E蹄类动物ndiar(lQ

5、)B哺乳动物nthartlJO)眼盯前方nchar(lO)n肓爪.nchar(lJO)有犬齿ncharME有蹄ndiar(lJO)負肉动物n charlO)吕ncharflJO)能产妞n char (10)有毛岌nchar(lJO)善飞ndiar10)黒白色ndnarflJO)会游猱nchar(lQ)长腿nchar(UO)辰脖子nchar10)里罕绞nchar(ljD)黒斑点ncharM苗褐色ndiar(UQ)吃肉ndna10)合下蛋nchar(lJO)会飞ndiar(lD)育羽毛nd-iarM離讷确週驗祐辄購懿I駅有駐飜鯛癇番辭W睡事里盹講建縫駭1hTrnnnnnnnynnrn nnnny?

6、nTrnnnnnnnrnnIn nnynJnnfTyTrnnnnnpyn nnnnyJnnTyInnnnnn nnnnnJnnnnnnnInInnnnnn ynnnn鹘nnnnnnnFyfnnfnnn fnyynnnnnnnnTyTnnynry nnnnn3 SELECT 动物名称FROM Jdangw-j . dbo . I aLniantial L冋日ERE 鸟= and 善飞=芷,GC|SELECT - FROM 品品dba.色rd臥；品IjG0|动物容称i rfSwi、:（三）、推理机设计（附程序源代码） 动物识别15 条规则的中文表示是： 规则1：如果：动物有毛发 则 ：该动物是哺乳

7、动物 规则2：如果：动物有奶 则 ：该单位是哺乳动物 规则3: 如果：该动物有羽毛 则 ：该动物是鸟 规则4：如果：动物会飞，且会下蛋 则 ：该动物是鸟 规则5：如果：动物吃肉 则 ：该动物是肉食动物 规则6：如果：动物有犬齿，且有爪，且眼盯前方 则 ：该动物是食肉动物 规则7：如果：动物是哺乳动物，且有蹄 则 ：该动物是有蹄动物 规则8：如果：动物是哺乳动物，且是反刍动物 则 ：该动物是有蹄动物 规则9：如果：动物是哺乳动物，且是食肉动物，且是黄褐色的，且有暗斑点 则 ：该动物是豹 规则10：如果：如果：动物是黄褐色的，且是哺乳动物，且是食肉，且有黑条 纹 则 ：该动物是虎 规则11:如果：

8、动物有暗斑点，且有长腿，且有长脖子，且是有蹄类 则 ：该动物是长颈鹿 规则12：如果：动物有黑条纹，且是有蹄类动物 则 ：该动物是斑马 规则13：如果：动物有长腿，且有长脖子，且是黑色的，且是鸟，且不会飞 则 ：该动物是鸵鸟 规则14： 如果：动物是鸟，且不会飞，且会游泳，且是黑色的 则 ：该动物是企鹅 规则15：如果：动物是鸟，且善飞 则 ：该动物是信天翁 该程序为：.h stdio 641话时叶碍昭7FI71727au75;E?7rBWMb:I0 000H00000000 0 0000MinclUidle fine im ck_str i tf弓凹七爵点.， tauny ca 1 ur負第

9、色/dltiatrm用苗天箔Tpfngu 1 n企:箕,ostr 1 eh呢为TzebraI!,-, qirai f 咔:建鹿tigEr蛊虎“Jrhht詞潇晌”;int nill*(ini-f3?,23,1?,5,fi,B31?3nt2,3,0TflTZ2,1,26Ti1 ,0,#, 21,1-E, 0+11,0, a 17,19,211,1 9,0,17,1fl,13 9用+即 + 门6”1$”1!汕+即 + 朋池血咖血后*J J血融用血籤点MJ爨脚, 7l0,B.QTfi,B,T2T3nB,fi,0,ffF； int KElleclJ-3lt+2iJ+2B.FZ7HZ6T25, Z+3,3

10、,13f13,11,0；class tacfcprluate:nt NMiinber;c-har Hdiiw21iiint Active;int ucc：public:氣机:宦 XNi?xF ；MijmBchar *L)strcpy Stans flL );tNiyiiber Num;ctiye-FalEe;T是己经推整 不舒含。I是己经推運，符合。Succonttoti; /是无-1是不知直巾是有*We st-HULLclhar *OetHameC)etLioint GetSiLiecQ(retwro Sucre;meill Fuitettconst tnt f!ict0aint Sueii

11、)(fictive-WctaSuccSucS;Fact *FiCt;class listprivate:int HMjinlier;pujiblic;listJLi.：stt itnt WuitQ HiiinbprWest NULL計int GetHumbErt);cldss rylerule: ;ruleQ(list L;ufriilefFre)L-Pre- ；delete Pre;Prp-L;电Ha毗；rule:;rulp(chidr *HISint P.int C)H&xtFre;PreL;Cone C;int rule: zOugriiC)eftar c;lnt Tag；lt *L;I

12、faut ;F-Fact;L-Pre:if(L HULL)芦口 ut: B,XnErt,&rb,;umi&(L*-HIILL)G etHunber ()F- KetHurabe r()breah;FTF-汕怀查找与规则前提锥中前提号相同的事戛if(L-CetHumbBr()e)iF(CBtSEICC( J true L-L-H&5t ；CQIltini|iJ& ； JiFtCF-iCetSLceinfalseJ return Ml亚訂如杲手实的断言为真则判斷下一牛前提，対假，则表示谟规 皿。169 if(F-CetSuce(-T r ue 11R return False;111 if(F-G

13、etS ucc()5F)112 L-L-IHeKt；113 contiirauE；11U COUtFV/H)-GetHuF115 F-JPiiitAGtd.True;1&置苕实的斷苔和滋活标志12B iF(L-EetHuinber( ) 0)121 Putfict(1.TrueJ;122 Tag- n；123 return False;W pise125 (ifCL-GetNij(nOer(Putftct(-1pFalse);127 91SP12 iF-P4itRct( liaise);12? Td旷l;己经推理，不渦合，13d return False131 L-LHeKt;132 FFac

14、tj133 Fort;；J13 if (ConE-F -Ge tlhtombt r ()H站 血酊It杳我结论断言对 證的專实136 F-F-HeKt;J137 iFCConcPutftct(1.True);139 return False;)PfD if(Tag-1UAH F-Fact;142 for(;)|if CBtHunber(仙即breah;11i5 FF-heKt;J118ft iF(Cnc仙了 F-Putftct(1 .True);return False;J29 coutBAnThis 加Imh! is F-GptNre()?n(Jl: 15W return True;151

15、return False;152 int frain(153 Next-Fact;161 Fact-F;11五2i4*；163 FFact;164 Fact-WJLL；whiles MjE倒序排列正过亲口16 (T-F；167 F=F-iHixt;16 T-HPXt=FJCt；16 Fact-T;J17H i-；171 chQ-*Rb;172 Ch1=U；179 chtgJ-L1;174 血苕=E；175 ch4- _;17C Ch5=B:177 ch6-ir ；178 RuleNULL；179 创始比规则库180 R hew rule(chvrulepiarulecfi);181 R- He

16、xt-Rille;182 Rule R;183 12叫5J*t ；184 R=Rulf;Qu?rn(); 讪 if(ii)n 18 breaki1W 9 R =R NKt ：讪 1 IfC*R)1191 break;192 if(!R)193 coot,I donst knoxenidll;19-4 cout aptaess aoy Icejj tu eicit. Xndll;195 getcharo；196 return True;197 19S |运行结果为：Rrtia illbh站 “如叭】in Qscrdc h=t 轮Mr学1卡honoruipju In L d L 3 .冇AC，十机吃肉”七|_砂和：丢GOBmb k&li，百 匚发丄p知aE.V-11無匕冲丫八